gratifiant > microsoft.* > microsoft.excel

C15 (21/07/2005, 09h51)
Bonjour à tous et toutes,

N'ayant pas eu de réponse à un post précédent je me permets de le relancer.

A l'ouverture d'un classeur j'affiche un Userform (Prénom) dans lequel
l'utilisateur saisit son prénom (par exemple C15).

J'ai donc fait la procédure suivante, qui marche bien.

Public x As Variant
________________________________

Public Sub Workbook_Open()

Sheets("Accueil").Select
Form_Prénom.Show
x = Form_Prénom.Prénom.Value

End Sub
_________________________________
A la fermeture du fichier j'affiche, par un clic sur un bouton un autre
Userform (Fermeture) dans lequel je voudrais que s'inscrive un message du
style :
"Bravo
C15
Vous avez bien travaillé !"

J'ai créé une zone de texte (Prénom2) pour que s'y affiche le prénom saisi
dans l'autre formulaire.

J'ai essayé ceci mais cela ne marche pas :

_____________________________
Sub Bouton7_QuandClic()

Sheets("Fin").Select
Range("G15").Select

Form_Fermeture.Show
Form_Fermeture.Prénom2.value = x ' C'est là que cela coince
!
End Sub
___________________________________

Merci de votre aide

A+

C15
Youky (21/07/2005, 10h59)
Salut,
il te faut déclarer ta variable x en Général Déclaration
tu inscris:
Public x As String

cé tout
Youky

"C15" <MéfiezVousDesSpams> a écrit dans le message de news:
42df53fc$0$306$7a628cd7...
[..]
C15 (21/07/2005, 13h26)
Bonjour Youky,

C'est bien ce que j'avais fait avec ceci
Public x As Variant

Ce que je ne sais pas trop c'est
faut-il créer une zone de texte ou une zone d'intitulé pour faire
apparaître le prénom saisi dans le 1er formulaire ?
quelle propriété utiliser dans l'un ou l'autre cas por récupérer cette
valeur x ?

Merci de ton aide

A+

C15
"Youky" <bruno.jeune-nospam> a écrit dans le message de news:
%23xCwiJdjFHA.1412...
[..]
Youky (21/07/2005, 16h43)
Oui, je viens de comprendre ce que tu ne fait pas ,
il te faut faire un textbox, la personne doit écrire son prénom
Seulement après tu récupères ce nom, par exemple lors de la fermeture de
l'userform
ou plutot par un bouton "Continuer"
pour récupérer x sous ce bouton
x=UserForm1.TextBox1.text
et pour le remettre à la fermeture du fichier si tu mets un Controle label
cé A dans la barreOutils
UserForm1.Label1.Caption=x
Youky
"C15" <MéfiezVousDesSpams> a écrit dans le message de news:
42df8681$0$306$7a628cd7...
[..]
C15 (21/07/2005, 21h27)
Rebonsoir,

Désolé mais cela ne marche pas.

Voila ma procédure :

A l'ouverture de mon fichier, j'ai le 1er formulaire qui
s'affiche, pour y saisir le prénom
_____________
Public x As Variant
_______________
Sub Workbook_Open()

Sheets("Accueil").Select
Form_Prénom.Show
x = Form_Prénom.Prénom.Text

End Sub
_____________________

Sur le bouton OK du 1er formulaire, j'ai :
__________________________
Private Sub OKButton_Click()
x = Form_Prénom.Prénom.Text
Form_Prénom.Hide
End Sub
_________________________

Sur un bouton de mon dernier feuillet, j'ai :
_________________________________
Sub Bouton7_QuandClic()
MsgBox ("Bravo " & x & vbCrLf & "Vous avez parfaitement réussi cet
exercice" & vbCrLf & "Cliquer sur le bouton " & "OK " & "pour fermer le
fichier")

Form_Fermeture.Show
Form_Fermeture.Récup_Prénom.Caption = x

End Sub
______________________

Pour info la msgbox marche parfaitement, mais je n'ai toujours pas le prénom
qui s'affiche dans le 2ième formulaire.

Merci encore pour ton aide

A+

c15

"Youky" <bruno.jeune-nospam> a écrit dans le message de news:
O0400JgjFHA.1044...
[..]
Youky (22/07/2005, 10h59)
Il faut déclarer dans un module en general-déclaration ton Public x As
Variant

Sub Workbook_Open()
Sheets("Accueil").Select
Form_Prénom.Show
'ca sert à rien à l'ouverture y connait pas x = Form_Prénom.Prénom.Text
End Sub
> _____________________


"C15" <MéfiezVousDesSpams> a écrit dans le message de news:
42dff715$0$301$7a628cd7...
[..]
C15 (24/07/2005, 21h43)
Rebonsoir Youki,

Cela marche ...à peu près.

En fait sur mon avant dernier feuillet j'ai mis un bouton avec la procédure
suivante :
____________________
Sub Bouton7_QuandClic()

Sheets("Fin").Select
Range("G15").Select
'MsgBox ("Bravo " & x & vbCrLf & "Vous avez parfaitement réussi cet
exercice" & vbCrLf & "Cliquer sur le bouton " & "OK " & "pour fermer le
fichier")

Form_Fermeture.Show
Form_Fermeture.Récup_Prénom.Caption = x
End Sub
____________________

Lorsque j'arrive sur cet avant dernier onglet, je clique sur le bouton 7 qui
me fait passer au dernier feuillet ("Fin") et me fait apparaître mon
Userform ("Fermeture") dont Récup_Prénom est vide.

Par contre si je reviens en arrière (feuillet N-1) et que je reclique sur ce
bouton 7, le prénom saisi tout au début s'affiche bien !

Comment se fait-ce et comment corriger ?

Merci de ton aide

A+

C15

"Youky" <bruno.jeune-nospam> a écrit dans le message de news:
%23EywGupjFHA.2792...
[..]
Youky (25/07/2005, 17h22)
Re salut,
essai comme ceci si le textbox n'a pas été modifié
Remplace par les noms que tu as donné
Form_Fermeture.Récup_Prénom.Caption=userform1.text box1.text

Ca va aller Youky

"C15" <MéfiezVousDesSpams> a écrit dans le message de news:
42e3ef5d$0$309$7a628cd7...
[..]
C15 (25/07/2005, 19h17)
Rebonsoir,

J'ai appliqué ce que tu as dit et là pas mieux ;-((

Par contre ce que j'ai fait, j'ai inversé les 2 commandes pour avoir :

Form_Fermeture.Récup_Prénom.Caption = Form_Prénom.Prénom.Text
Form_Fermeture.Show

Et là ça marche !

Merci encore de ton aide précieuse

A+

C15

"Youky" <bruno.jeune-nospam> a écrit dans le message de news:
%23NQL2xSkFHA.3148...
[..]
Youky (25/07/2005, 20h53)
Cé tout go alors.......!
Youky
"C15" <MéfiezVousDesSpams> a écrit dans le message de news:
42e52079$0$308$7a628cd7...
[..]
Discussions similaires