Bonjour à tous et toutes,
Dans un fichier, j'ai un formulaire où je saisis un prénom avec la procédure suivante :
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
___________________________________
Comment corriger cele ?
Merci de votre aide
A+
C15
Dans un fichier, j'ai un formulaire où je saisis un prénom avec la procédure suivante :
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
___________________________________
Comment corriger cele ?
Merci de votre aide
A+
C15