Bonjour,
Voici une traduction « maison » de ce bout de code :
For Each cell In Sh1.Range("D1:D" & Sh1.Range("D" & Rows.Count).End(xlUp).Row
Examine chaque cellule de la plage D1 à D(x) de la feuille Sh1; (x) est le numéro de la dernière ligne renseignée déterminé avec Sh1.Range("D" & Rows.Count).End(xlUp).Row.
1 2
| Set rg = Sh2.Range("R:R").Find(what:=cell.Value, lookat:=xlWhole)
If Not rg Is Nothing Then |
Si tu trouves une valeur identique à cette cellule dans la colonne R de la feuille Sh2, alors…
If rg.Offset(0, 23).Value = "READ-ONLY" Then MsgBox "READ-ONLY trouvé sur compte " & rg
Si la valeur de la cellule située en colonne AO de la même ligne est "READ-ONLY" alors affiche le numéro de compte.
En espérant que cette explication pourra te satisfaire.
Cordialement.
Partager