Re : Detecter derniere cellule de chaque colonne
Bonjour,
Une autre solution toujours en cherchant la première cellule vide
Code=VB:
Private Sub CommandButton1_Click()
Dim x, y, z, i As Long
x = Columns(1).Find("", Cells(Rows.Count, 1), xlValues, , 1, 1, 0).Row
y = Columns(2).Find("", Cells(Rows.Count, 2), xlValues, , 1, 1, 0).Row
z = Columns(3).Find("", Cells(Rows.Count, 3), xlValues, , 1, 1, 0).Row
i = Columns(4).Find("", Cells(Rows.Count, 4), xlValues, , 1, 1, 0).Row
Sheets("Sheet1").Cells(x, 1) = TextBox1.Value
Sheets("Sheet1").Cells(y, 2) = TextBox2.Value
Sheets("Sheet1").Cells(z, 3) = TextBox3.Value
Sheets("Sheet1").Cells(i, 4) = TextBox4.Value
End Sub