Macro vérification contenu de cellule

Bonjour,

Je souhaiterai faire une macro qui, sur une plage de cellule vérifie le contenu de chaque cellule, le compare au contenu de la cellule suivante et en fonction du résultat inscrive du texte dans une 3eme cellule.
Ex: pour la plage A1:E50 si une cellule =Bonjour, et que la suivante sur la ligne = au revoir alors C1=ok

J'arrive à le faire en vérifiant les cellule une par une mais le code fait 3km...
Ex: If range("A1")="Bonjour" and range("B1")="Au revoir" then range("C1")="ok"


Comme vous pouvez vous en douter tester chaque cellule de cette façon sur 50 lignes c'est très fastidieux.

Si quelqu'un a une solution pour optimiser je suis preneur.

Merci d'avance ;)

Bonjour,

Première approche

Code:

---

1 2 3 4 5 6 7 8 9

Sub sc() For i = 1 To 5 For j = 1 To 50 If Cells(i, j) = "Bonjour" And Cells(i, j + 1) = "Au revoir" Then Cells(i, j + 2) = "ok" End If Next j Next i End Sub

---

Mais il faudrait être plus clair, peut-on avoir par exemple
Bonjour, Au revoir, Bonjour, Au revoir sur la même ligne dans des cellules contiguës

JP

Bonjour JP,

Ton code m'a été très utile j'ai juste eu a modifier le range et ça marche parfaitement, merci beaucoup :)