J'ai adapté un petit code qui renvoie dans la cellule A1 la valeur saisie dans le textbox.
Je voudrais améliorer mon code.
Au lieu de limiter à A1 je souhaiterais coller sur toutes les cellules de la colonne A lorsque la colonne B (même ligne) n'est pas vide.
Je vous donne mon code de départ
Private Sub CommandButton1_Click()
Range("A1") = TextBox1.Value
Unload Me
End Sub
Re : Textbox envoyer valeur saisie dans les cellules de la colonne A si cellule colon
Bonjour,
une possibilité :
Private Sub CommandButton1_Click()
For Each c In Range("A:A")
If Not IsEmpty(c.Offset(, 1)) Then
c.Value = TextBox1.Value
End If
Next c
Unload Me
End Sub
Re : Textbox envoyer valeur saisie dans les cellules de la colonne A si cellule colon
Bonjour Chris,
avec ceci:
Code:
Private Sub CommandButton1_Click()
Dim cellule As Range
For Each cellule In Range("B1:B" & Range("B65535").End(xlUp).Row)
If cellule <> "" Then Cells(cellule.Row, 1) = TextBox1.Value
Next cellule
Unload Me
End Sub