Copier Valeur ComboBox d'un UserForm sur feuille avec increment

Résolu
Bonjour,

En cliquant sur un bouton placé dans mon UserForm1, je veux copier la valeur de mon ComboBox1 de mon UserForm1 sur la Feuil3 de mon document, à partir de la ligne 2 sur la colonne A.
Et surtout, à chaque fois que je clique sur le bouton pour copier la valeur (parce que les valeurs sont rattachées à des noms différents après), je veux qu'elle se place sur la ligne vide suivante de la colonne A.

Voici ce que j'ai essayé :

Private Sub CommandButton1_Click()

With Worksheets("FEUIL3")
UserForm1("ComboBox1").Range("ComboBox1").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With

End Sub

Ben... ca marche pas...
Ou est le problème... j suis un peu newbie, mais j'essaie...
Merci pour votre aide.

Y.

1 réponse

  1. Ca y est j'ai trouvé...
    Merci à ceux qui ont pris la peine de lire ma question.

    Y.
    0
    1. Contributeur
      Bonsoir,
      C'est ce que tu as trouvé ?
          .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, 2) = Me.ComboBox1
      
      0
    2. c'est ca que j'ai trouvé :

      Dim DerLig As Integer

      With Worksheets("Listing")
      DerLig = .Range("N" & Rows.Count).End(xlUp).Row + 1
      .Range("N" & DerLig).Value = ComboBox1.Value
      0
    3. tres efficace
      0