Boucle sur formule

bonjour à tous et toutes,

J'ai placé le code suivant à l'activation de ma feuille.

If Range("F2").Value = "0" Then

MsgBox "on peut supprimer la ligne !", vbOKOnly

End If

ma question :

sachant que j'ai 200 lignes sur mon tableau, serait-il possible afin d'éviter de recopier ce code pour chaque ligne en changeant la cellule à chaque fois, de faire une boucle genre cel => cel + 1 ?

merci

Bonjour,

A mettre dans la feuille concernée

Private Sub Worksheet_Activate()
Dim F1 As Range
Dim i As Integer

Dim DernLigne As Long
DernLigne = Range("F" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("Feuil1").Range("F2:F" & DernLigne)

    For i = 2 To F1.Rows.Count
        If Cells(i, 6).Value = 0 Then
            MsgBox "on peut supprimer la ligne " & i & "  !", vbOKOnly
        End If
    Next i
End Sub

merci c'est ce que je voulais !!

chapeau.

Re,

Avec l'ajout dans le code pour la suppression de la ligne après validation du message

Private Sub Worksheet_Activate()
Dim F1 As Range
Dim i As Integer

Dim DernLigne As Long
DernLigne = Range("F" & Rows.Count).End(xlUp).Row
Set F1 = Sheets("Feuil1").Range("F2:F" & DernLigne)

    For i = 2 To F1.Rows.Count
        If Cells(i, 6).Value = "" Then Exit For
            If Cells(i, 6).Value = 0 Then
                MsgBox "on peut supprimer la ligne " & i & "  !", vbOKOnly
                Cells(i, 6).EntireRow.Delete
                i = i - 1
            End If
    Next i
End Sub

c'est encore mieux, merci!