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 -
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.
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.
A voir également:
- Copier Valeur ComboBox d'un UserForm sur feuille avec increment
- Comment faire un livret avec des feuilles a4 - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
C'est ce que tu as trouvé ?
Dim DerLig As Integer
With Worksheets("Listing")
DerLig = .Range("N" & Rows.Count).End(xlUp).Row + 1
.Range("N" & DerLig).Value = ComboBox1.Value