Insertion ligne boucle

Bonjour à tous la communauté,

voilà je suis en train de réfléchir à un nouveau projet, et j'ai un nouveau problème !

j'ai un userform avec 3 combobox nommé cb1 cb2 cb3 et un bouton validé

quand je clique sur valider je souhaite que les valeurs se mettent dans les lignes les unes en dessous des autres

mon code

rows("2:2").insert
range("a2").value = cb1.value
rows("2:2").insert
range("a2").value = cb.2.value

etc etc ...

vous conviendrez que le code n'est pas optimisé !!!

je suis preneur de toutes idées de boucle ou autre !!!*

merci

Bonsoir,

vous conviendrez que le code n'est pas optimisé !!!

En effet, il serait bon de qualifier... et mettre en place des éléments facilitateurs !

Supposons, on nomme Cible la cellule A1 de la feuille concernée

Sub cmdValider_Click()
    Dim i%
    With [Cible]
        .Cells(2, 1).Resize(3).Insert xlShiftDown
        For i = 1 To 3
            .Cells(i + 1, 1) = Controls("cb" & i).Value
        Next i
    End With
End Sub

NB- .Cells(2, 1).Resize(3).EntireRow.Insert

si tu dois introduire des lignes entières.