Discussion :

[Paulopiv]

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

[Daniel.C]

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 :

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

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 :

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

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