remplir une cellule avec la valeur du dernier ComBox utilisé

exene

XLDnaute Accro
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
 

Pièces jointes

  • UserForm.xls
    47.5 KB · Affichages: 52
  • UserForm.xls
    47.5 KB · Affichages: 58
  • UserForm.xls
    47.5 KB · Affichages: 57

JNP

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

Bonjour Exene :),
Pas sûr d'avoir compris :rolleyes:
Code:
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 :cool:
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon