Copier Valeur ComboBox d'un UserForm sur feuille avec increment

Résolu
freeycap Messages postés 87 Statut Membre -  
freeycap Messages postés 87 Statut Membre -
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. freeycap Messages postés 87 Statut Membre
     
    Ca y est j'ai trouvé...
    Merci à ceux qui ont pris la peine de lire ma question.

    Y.
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonsoir,
      C'est ce que tu as trouvé ?
          .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, 2) = Me.ComboBox1
      
      0
    2. freeycap Messages postés 87 Statut Membre
       
      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. freeycap Messages postés 87 Statut Membre
       
      tres efficace
      0