Envoyer les données d'une ComboBox

[degap05]

Bonjour,

Avec votre aide, j'aimerais modifier le code ci-dessous.
Celui-ci envoi les données de la Combobox vers la première ligne vide, de la colonne "A", en partant du bas.
J'aimerais compléter ce code de manière qu'il écrive les données de la ComboBox toujours sur la première ligne vide de la colonne "A", en partant du bas, mais sur autant de ligne que de cellules remplies en colonne "B".

Private Sub CommandButton1_Click()
Dim derlig
Application.ScreenUpdating = True
With Sheets("Récapitulatif")
derlig = .Range("A65536").End(xlUp).Row + 1
.Cells(derlig, 1).Value = ComboBox1.Value
End With
Application.ScreenUpdating = False
Unload Me
End Sub

Merci d'avance.

 

[CBernardT]

Re : Envoyer les données d'une ComboBox

Bonjour degap05 et le forum,


Ajout d'uns boucle afin de decendre les cellules vides de la colonne A jusqu'à la dernière cellule de la colonne B.

Private Sub CommandButton1_Click()
Dim derlig1 As Integer, derlig2 As Integer, i As Integer
Application.ScreenUpdating = True
With Sheets("Récapitulatif")
derlig1 = .Range("A65536").End(xlUp).Row + 1
derlig2 = .Range("B65536").End(xlUp).Row
For i = derlig1 To derlig2
.Cells(i, 1).Value = ComboBox1.Value
Next i
End With
Application.ScreenUpdating = False
Unload Me
End Sub

 

[degap05]

Re : Envoyer les données d'une ComboBox

Bonjour CBernardT,

Merci pour ta solution qui fonctionne parfaitement.
Salutations