Repetition avec boucle for

bonjour

j'ai juste un petit soucis avec le bout de code que j'ai ecris et qui est celui ci

For i = 16 To 21
    For j = ColDep + 2 To ColFin + 2
     If Cells(i, j) <> "V" Then
     MsgBox " personne n'est disponible le : " & j - 2 & ""
     End If
     Next
     Next

je voudrai que mon programme passe en revu chaque colonne et s'il ne trouve pas la lettre V alors que le msgbox n'apparaisse qu'une fois par colonne lue et non pas à toutes les cellules dans laquelle la lettre V ne se trouve pas sur la plage scannée

la plage se situe entre ColDep et ColFin qui sont les colonnes debut et fin et entre les lignes 16 et 21

je ne vois pas comment faire ou comment sortir de la boucle for au bon moment

Merci pour votre aide ou conseil

Bonjour

Si j'ai compris ton problème tu veux savoir s'il y a au moins un V dans la colonne entre la ligne 16 et la ligne 21

Essayes ceci

  For J = Coldep + 2 To ColFin + 2
    If Application.CountIf(Range(Cells(16, J), Cells(21, J)), "V") = 0 Then
      MsgBox " personne n'est disponible le : " & J - 2 & ""
    End If
  Next J

Merci mille fois Banzai ! ca marche et c'est exactement ce que je voulais obtenir !

Rechercher des sujets similaires à "repetition boucle"