Comment mettre dans une autre colonne à partir d'une ComboBox?

Bonjour,

Je dois envoyer des mots sélectionner dans une autre colonne que celle de départ via une comboBox selon le choix de l'utilisateur, je suis débutant en VBA, quelqu'un pourrait m'aider ? c'est pour un projet "étudiant".

Merci d'avance.

Paulopiv

Bonjour,

En supposant que la combobox soit sur un userform, alimenté par les cellules de la colonne A. Les valeurs sélectionnées dans la combobox sont recopiiées en colonne C dès qu'elles sont sélectionnées.
1. Alimentation de la combobox (inutile si tu as défini la propriété "rowsource".

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Activate() 'alimentation de la combobox à partir de la colonne A Dim c As Range With Sheets("Feuil1") For Each c In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)) Me.ComboBox1.AddItem c.Value Next c End With End Sub

---

2. recopie de la valeur sélectionnée :

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox1_Change() Dim Ligne As Long 'première ligne disponible en colonne C : With Sheets("Feuil1") Ligne = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(Ligne, 3) = Me.ComboBox1.Value End With End Sub

---