Discussion :

[luko6]

bonjour à tous,
j' ai une combobox qui affiche les valeurs de ma colonne A (ce sont des personnes)
ce que je voudrais, c'est que lorsque je choisi une personne, une ligne s'insere automatiquement à la ligne d'en dessous
merci d'avance

[ESVBA]

je place la valeur sélectionnée dans la dernière ligne de la colonne "B" (les valeurs sont en "A") lorsque l'on quitte la combobox :

Code :

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

1
2
3
4
5
6
7
Private Sub ComboBox1_LostFocus()
    If ComboBox1 <> "" Then
        With Range("B" & Rows.Count).End(xlUp)
            .Value = ComboBox1.List(ComboBox1.ListIndex, 0)
        End With
    End If
End Sub

[mercatog]

Code :

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

1
2
3
Private sub combobox1_change()
sheets("feuil1").rows(combobox1.listindex + 3).insert  '3 à adapter
End Sub

Edit: j'ai supposé que tes données débutent en A2 (pour le choix de 3)

[luko6]

merci je vais essayer de l'adapter
je voudrais qu'en fonction de la valeur de mon combobox, il se place sur cette valeur , puis de décale d'une ligne et en insere une