Private Sub CommandButton1_Click() toto = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row For i = 1 To toto If Cells(i, 1).Value "" Then trouve i: Exit For Next MsgBox "premire case vide en colonne A : " & trouve End Sub
Private Sub CommandButton3_Click() toto = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row For i = 1 To toto If Cells(i, 1).Value = "" Then Cells(i, 1).Select: Exit For Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question