remplir une cellule avec la valeur du dernier ComBox utilisé

[exene]

Bonjour,

J'utilise un USF avec 3 comboBox pour alimenter des feuilles. Le Combox 1 sert à alimenter la feuille 2; le Combox2 à alimenter la feuille 3, le Combox 3 à alimenter la feuille 4. Je voudrais que dans la feuiile 5 cela soit la valeur du dernier Combox utlisé qui soit affiché sans affecter le contenu des trois feuilles précédentes.

Par exemple je saisie TOTO dans le Combox 1, je valide et TOTO doit apparaitre dans la colonne A de la feuille 2 et TOTO doit être affiché dans la cellule A1 de la feuille 5

Merci

 

[JNP]

Re : remplir une cellule avec la valeur du dernier ComBox utilisé

Bonjour Exene 🙂,
Pas sûr d'avoir compris 🙄

Private Sub CommandButton2_Click()
If ComboBox1 <> "" Then
Worksheets("Feuil5").Range("A1") = ComboBox1.Value
Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1) = ComboBox1.Value
End If
If ComboBox2 <> "" Then
Worksheets("Feuil5").Range("A1") = ComboBox2.Value
Worksheets("Feuil3").Range("A" & Worksheets("Feuil3").Range("A65536").End(xlUp).Row + 1) = ComboBox2.Value
End If
If ComboBox3 <> "" Then
Worksheets("Feuil5").Range("A1") = ComboBox3.Value
Worksheets("Feuil4").Range("A" & Worksheets("Feuil4").Range("A65536").End(xlUp).Row + 1) = ComboBox3.Value
End If
UserForm1.ComboBox1.Value = ""
UserForm1.ComboBox2.Value = ""
UserForm1.ComboBox3.Value = ""
End Sub

Bon WE 😎

 

[exene]

Re : remplir une cellule avec la valeur du dernier ComBox utilisé

Bonjour,
Tu avais tout compris, cela fonctionne.
Merci et bon WE.