Bonjour à tous,
J'ai créé 3 boutons dans un module qui fait appel à mon userform :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Bouton_Srce1_Clic()
UserForm1.cboChoixSrce.Text = ThisWorkbook.Worksheets("Feuil5").Range("B1").Value
UserForm1.Show
 
End Sub
 
Sub Bouton_Srce2_Clic()
UserForm1.cboChoixSrce.Text = ThisWorkbook.Worksheets("Feuil5").Range("C1").Value
UserForm1.Show
 
End Sub
 
Sub Bouton_Srce3_Clic()
UserForm1.cboChoixSrce.Text = ThisWorkbook.Worksheets("Feuil5").Range("D1").Value
UserForm1.Show
 
End Sub
et un autre dans l'userform :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub cboChoixSrce_Change()
If ThisWorkbook.Worksheets("Feuil5").Range("B1").Value <> UserForm1.cboChoixSrce.Text Then
  ThisWorkbook.Worksheets("Feuil5").Range("B1").Value = UserForm1.cboChoixSrce.Text
  End If
 
End Sub
je souhaiterai dans le même sens que le changement de la source dans mon UserForm1.cboChoixSrce.Text change aussi la cellule correspondante à chacun des trois boutons (A1, B1 et C1). autrement dit si je clique sur le bouton 1, je veux:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ThisWorkbook.Worksheets("Feuil5").Range("B1").Value = UserForm1.cboChoixSrce.Text
et si je clique sur le bouton 2 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ThisWorkbook.Worksheets("Feuil5").Range("C1").Value = UserForm1.cboChoixSrce.Text
etc...

Merci pour votre aide.

j e tente de faire un truc comme ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub cboChoixSrce_Change()
If Bouton_Srce1 Then
  If ThisWorkbook.Worksheets("Feuil5").Range("B1").Value <> UserForm1.cboChoixSrce.Text Then
     ThisWorkbook.Worksheets("Feuil5").Range("B1").Value = UserForm1.cboChoixSrce.Text
  End If
ElseIf Bouton_Srce2 Then
  If ThisWorkbook.Worksheets("Feuil5").Range("C1").Value <> UserForm1.cboChoixSrce.Text Then
     ThisWorkbook.Worksheets("Feuil5").Range("C1").Value = UserForm1.cboChoixSrce.Text
  End If
End If
End Sub
mais ça marche pas...