[VBA-E] Comparer des cellules

Bonjour a tous,

J'avais pose une question recemment sur ce forum, et j'aimerais un complement d'informations a cette question.

Precedente question ici : http://www.developpez.net/forums/sho...d.php?t=133411

Donc ce que je voulais savoir etait uniquement comment faire pour que la colonne D soit un champ calcule automatiquement, et non juste une fois la macro execute.

Mon code actuel :

Code:

---

1 2 3 4 5 6 7

For i = 5 To z If CStr(Range("a" & i)) = Mid(Range("c" & i), 3, 5) Then Range("d" & i) = "OK" Else Range("d" & i) = "NON" End If Next i

---

Merci

Bah ce moment la dans la colonne D tu met une fonction directement en utilisant les fonction SI, stxt et autres fonctions qui font des extraits de chaines :)

ben tu met une formule excel... dans ta colonne D..

Code:

---

=SI(A2=C2;"OK";"NON")

---

Citation:

---

Envoyé par bbil

ben tu met une formule excel... dans ta colonne D..

Code:

---

=SI(A2=C2;"OK";"NON")

---

---

Code:

---

1 2 3

For i = 5 To z Range("d" & i) = SI((Range("a" & i)) = Mid(Range("c" & i), 3, 5), "OK", "NON") Next i

---

Ca me dit "Sub or fonction not defined" en me montrant SI

Nan mais le SI tu le met pas dans la macro tu le met dans la cellule D en face de tes lignes :D

Citation:

---

Envoyé par illight

Nan mais le SI tu le met pas dans la macro tu le met dans la cellule D en face de tes lignes :D

---

Ben ouais mais ca m'interesse pas, mon but est d'avoir le truc dans la macro.
Que l'utilisateur n'ai rien a faire ...

si tu ve remplir (de formule ) la colonne D par macro ...

Code:

---

1 2 3 4 5

For i = 5 To z Range("d" & i).Formula = "=IF(A" & i & "=C" & i & ",""OK"",""NON"")"   Next i

---