Excel VBA - - Msg Box lorsque la cellule répond aux critères
- Problème
- Solution
- Remarque
Problème
![](http://img.brin-designs.com/img/games/462/excel-vba-msg-box-when-cell-meets-criteria.png)
Bonjour, ce sera probablement très simple pour quelqu'un, mais je vais avoir un jour de cauchemar. Tout ce que je veux, c'est une formule VBA qui fera apparaître une boîte de message lorsqu'une cellule affiche un critère spécifique.
Quelqu'un peut-il aider?
Solution
Ce code suppose que ce que vous recherchez se trouve dans la colonne A.
Private Sub Find_Criteria () Dim i Dim Dim rr = Range ("A65536"). End (xlUp) .Row i = 1 Pour i = i à r If Range ("A" & i) = "critères" Alors MsgBox "trouvé" & "" & Range ("A" & i) .Address End Si Next i End Sub Si vous recherchez certains critères dans une plage de cellules, essayez quelque chose comme ceci. Private Sub Find_Criteria () Dim i As Variant Dim FindRange As Range Définissez FindRange = Range ("A1: K50") pour chaque i dans FindRange If i = "critère" puis MsgBox "trouvé" & "" & i.Address fin si suivant i End Sub
Remarque
Merci à Helper pour cette astuce sur le forum.