1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Sub Alertes()
Dim f As Worksheet, Ref As Range, LigneRef As Long, NumLigne As Long, Trouve As Boolean
' Le nom de feuille est à adapter, et le "ThisWorkbook" implique que le
' module contenant le code est dans le même classeur que la feuille.
Set f = ThisWorkbook.Sheets("Feuil1")
NumLigne = 0
Message = "La combinaison ""KO"" en colonne C et ""GISD"" en colonne G a été trouvée sur la ou les ligne(s) : " & vbNewLine
With Range(f.Range("C:C"), f.UsedRange)
Set Ref = .Find("KO", , xlValues, xlWhole)
If Not Ref Is Nothing Then
' On s'assure que c'est bien en colonne C, que la chaine "KO" a été trouvée
If Ref.Column = 3 Then
LigneRef = Ref.Row
If Ref.Offset(0, 4) = "GISD" Then
MAJMessage LigneRef
Trouve = True
End If
Do
Set Ref = .FindNext(Ref.Offset(1))
NumLigne = Ref.Row
' Lorsque la recherche ramène à la première cellule trouvée, on sort de la boucle.
If NumLigne = LigneRef Then Exit Do
If Ref.Offset(0, 4) = "GISD" Then
MAJMessage LigneRef
Trouve = True
End If
Loop
If Trouve Then MsgBox Message
End If
End If
End With
End Sub |
Partager