Discussion :

[thomasdu40]

Bonjour,

J'ai écris le code ci-dessous mais il ne fonctionne pas du tout. Il n'affiche aucune erreur à l'écran.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm2_Activate()
Dim Maj As String
Maj = UserForm1.ComboBox1.Value
Label1.Caption = UCase(Maj)
End Sub

Pour résumer : Dès que l'UserForm 2 s'ouvre, dans le champ Label1 de ce userform s'affiche le contenu du ComboBox1 présent dans le UserForm1.

Merci.

[casefayere]

Bonjour,
quand tu actives ton USF, le combo n'as pas encore de valeur donc code bizarre dans "UserForm2_Activate()"

[gFZT82]

Bonjour,

J’ai effectué un test qui se déroule correctement avec

Code Userform1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
    Me.ComboBox1.Value = "Bonjour !"
End Sub

Code Userform2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim Maj As String
    Maj = UserForm1.ComboBox1.Value
    Label1.Caption = UCase(Maj)
End Sub

Code Module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Test()
    Load UserForm1
    UserForm2.Show
End Sub

Cordialement.

[thomasdu40]

Bonjour à vous deux.

Merci pour les réponses. J'ai apporté les corrections afin de répondre à mon problème et celui-ci est résolu.

Post clôturé.