Condition si texte dans une cellule

Bonjour,

J'aimerai que dans la colonne i si il est indiqué "Late" dans au moins une des case de cette colonne ( si possible regarder jusqu'à la dernière case de la colonne i) , qu'un pop up s'affiche pr me dire que je ss en retard. mais quand je marque les codes suivants ça ne fonctionne pas :

Sub TEST()

Windows("outils de gestion des demandes.xlsm").Activate

Sheets("move to QUEST").Activate

If Range("i1":"i48").Value Like "*Late*" Then

MsgBox "Be careful, delays "

End If

End Sub

Ce qui ne fonctionne pas c'est la ligne suivante : If Range("i1":"i48").Value Like "*Late*" Then.

Dans l'exemple je prends de i1 à i48 pour simplifier.

Pouvez vous m'aider c'est super important.

Merci d'avance.

bonjour,

une proposition

Sub aargh()
    With Workbooks("outils de gestion des demandes.xlsm").Sheets("move to QUEST")
        col = "I"
        dl = .Cells(Rows.Count, col).End(xlUp).Row
        Set pl = .Cells(1, col).Resize(dl)
        If Not pl.Find("Late", lookat:=xlPart, MatchCase:=False) Is Nothing Then
            MsgBox "Be careful, delays "
        Else
            MsgBox "No delays"
        End If
    End With
End Sub

Bonjour H2SO4,

Merci déjà pour ta réponse.

En copiant collant tout ton codage (à l'exception de Sub aargh())

ça m'affiche tout le tant le pop up "Be careful, delays " même si il n'y a pas late dans la cas :/

Je ne comprend pas d'où vient le problème

Bonjour,

le titre de la colonne contiendrait-il "late" ?

bonjour,

non la colonne s'appelle indicator

Bonjour,

c'est lié à tes données dont je ne dispose pas.

mets-nous un fichier exemple qui donne le mauvais résultat.

Bonjour,

je viens de mettre ci-joint le fichier en question. le bouton est sur la première feuille.

et les modifications en seconde feuille.

Merci d'avance.

Bonjour,

la colonne contient une formule qui contient "late", je n'avais pas prévu ce cas de figure.

voici une correction

Sub TEST()

With Workbooks("outils de gestion des demandes - Copie.xlsm").Sheets("move to QUEST")
        col = "I"
        dl = .Cells(Rows.Count, col).End(xlUp).Row
        Set pl = .Cells(1, col).Resize(dl)
        If Not pl.Find("Late", lookat:=xlPart, MatchCase:=False, LookIn:=xlValues) Is Nothing Then
            MsgBox "Be careful, delays "
        Else
            MsgBox "No delays"
        End If
    End With
End Sub

Merci ça marche parfait

Effectivement je n'avais pas penser que cela impacterai la macro

Bonne journée