Condition apres boucle for

bonjour

dans le code suivant que j'ai réalisé , j'ai un petit souci pour mettre en forme une ligne

le voici :

Sub Bouton509_QuandClic()
Dim cell As Range

With Sheets("accueuil")

For Each cell In Range("C21:C100").Cells
If cell.Value > Range("C19").Value Then
MsgBox " Anomalie de numérotation !  "
Sheets("accueil").Select
End If
  Next cell    'jusque là ca marche 
Sheets("compta").Select   'accès à cette page si  cell.Value <= Range("C19").Value  ,ce que je n'arrive pas à mettre en forme car elle apparait quand meme .

   End With

End Sub

voyez vous comment je pourrais faire acceder à la page "acceuil" condition si la condition première n'est pas réalisée ?

Merci

Bonjour,

Si j’ai bien compris :

Dans la feuille "accueil", si la valeur d’une cellule de la plage C21:C100 est supérieure à la valeur de C19, on sélectionne la feuille "accueil" sinon, on sélectionne la feuille "compta".

Sub Bouton509_QuandClic()
Dim Cel As Range
    With Sheets("accueil")
        For Each Cel In .Range("C21:C100")
            If Cel.Value > .Range("C19").Value Then
                MsgBox " Anomalie de numérotation !  "
                .Select
                Cel.Select
                Exit Sub
            End If
        Next Cel
        Sheets("compta").Select
    End With
End Sub

A+

Merci "frangy " ! un tres belle solution qui marche , une question cependant pour la compréhension :

que signifie la ligne

Cel.Select

dumoins son role ?

merci

C'est simplement pour pointer la cellule qui est en dépassement.

A+

Merci à toi !