M
michal51
Guest
Bonjour,
je voudrais savoir comment je pourrais, en plus de la Msgbox, in sérer le résultat ("i" dans le cas présent) dans une cellule de la feuil 2 (A1 par exemple)
Voici ce que j'ai:
Private Sub CommandButton6_Click()
Dim a As Integer, i As Integer
For a = Range("U65536").End(xlUp).Row To 2 Step -1
If Range("F" & a) <> "Attente" Then Rows(a).Delete: i = i + 1
Next a
MsgBox "Nb de lignes suppimées : " & i
End Sub
Merci
je voudrais savoir comment je pourrais, en plus de la Msgbox, in sérer le résultat ("i" dans le cas présent) dans une cellule de la feuil 2 (A1 par exemple)
Voici ce que j'ai:
Private Sub CommandButton6_Click()
Dim a As Integer, i As Integer
For a = Range("U65536").End(xlUp).Row To 2 Step -1
If Range("F" & a) <> "Attente" Then Rows(a).Delete: i = i + 1
Next a
MsgBox "Nb de lignes suppimées : " & i
End Sub
Merci