XL 2019 remplir des colonnes avec une textbox et une combobox

GALOUGALOU à dit:

bonjour prudhomme12 bonjour le forum

je n'ai pas bien saisi votre demande, remplir uniquement la ligne active ou toute la colonne. je vous propose deux solutions.

si vous désirez remplir uniquement les colonnes F et G de la ligne active quelle que soit la cellule sélectionnée.

VB:

Private Sub CommandButton1_Click()
TextBox1.Value = Format(Now, "hh:mm")
Dim rw As Long
rw = ActiveCell.Row

        If Range("a" & rw) <> "" Then Range("f" & rw) = TextBox1.Value: Range("G" & rw) = ComboBox1.Value
        Unload Me

End Sub

si vous désirez remplir toute la colonne à partir de la ligne 2

Code:

Private Sub CommandButton1_Click()

TextBox1.Value = Format(Now, "hh:mm")


Dim Derligne As Long


Derligne = Range("a65536").End(xlUp).Row

    For I = 2 To Derligne

        If Range("a" & I) <> "" Then Range("f" & I) = TextBox1.Value: Range("G" & I) = ComboBox1.Value

  

    Next I

    Unload Me

End Sub

cordialement
galougalou

Cliquez pour agrandir...