Vérification des incohérences

Bonjour,

Toujours le même sujet je voudrais comparer les valeurs de la colonne E avec ceux de la colonnes M
Le valeurs son peuvent être des chiffres ou des lettres.
S'ils sont identiques ne rien faire
S'ils sont différentes alors appliqué une couleur sur les cellules concernées.

Voici le code modifié mais il ne compare pas car j'ai testé et me mets en jaune toutes les cellules même-ci elles sont identiques

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub verif_incohérence() Dim i&, Lg& ' variable &=as long Lg = Range("E" & Rows.Count).End(xlUp).Row ' recherche la dernière ligne de ta liste For i = 1 To Lg 'boucle pour faire les cellule 1 par 1 If Cells(i, 5) <> Cells(i, 6).Offset(0, 6) Then 'comparaison Cells(i, 5).Interior.Color = vbYellow 'mise en couleur de a1 Cells(i, 7).Offset(0, 6).Interior.Color = vbYellow 'mise en couleur de b1 End If Next i End Sub

---

Merci de votre aide

Bonsoir,

Citation:

---

Toujours le même sujet...

---

tout le monde n'est pas censé avoir vu ton sujet

En fonction de ce que tu dis, je compare colonne E/colonne M sur la même ligne et colore les cellules différentes :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub verif_incohérence() Dim i&, Lg& ' variable &=as long Lg = Range("E" & Rows.Count).End(xlUp).Row ' recherche la dernière ligne de ta liste For i = 1 To Lg 'boucle pour faire les cellule 1 par 1 If Cells(i, 5) <> Cells(i, 13) Then 'compare col E et Col M sur la meme ligne Cells(i, 5).Interior.Color = vbYellow 'mise en couleur de col E Cells(i, 13).Interior.Color = vbYellow 'mise en couleur de col M End If Next i End Sub

---

Si ce n'est pas ce que tu veux, expliques-toi mieux en devinant que les abonnés n'ont pas vu ton premier sujet

Bonne soirée

Bonsoir

C'est à dire tu veux comparer deux à deux les cellules de la colonne E avec celles de la colonne M sur la même ligne?

Merci casefayere

c'est exactement ça!
Je me suis trompé avec les offset

Citation:

---

I need to learn any more !!!

---

Bonsoir,

Citation:

---

tu veux comparer deux à deux les cellules de la colonne E avec celles de la colonne M sur la même ligne?

---

Il me semble que c'est bien ce que souhaite Leodams.
Les MFC me semblent gérer ça très bien sans VBA. ;)

Sinon comme le code était fourni, une version légèrement modifié du code de Casefayere.
(modif :
- comme dans le sujet les 2 colonnes désignés par des lettres, autant que ça apparaisse dans le code. (ça évite les erreurs de calcul ;) )
- le retrait de la couleur si le résultat de la comparaison change entre 2 exécution.

Une autre version du code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub verif_incohérence() Dim i&, Lg& ' variable &=as long Lg = Range("E" & Rows.Count).End(xlUp).Row ' recherche la dernière ligne de ta liste For i = 1 To Lg 'boucle pour faire les cellule 1 par 1 If (Range("E" & i) <> Range("M" & i)) Then Range("E" & i).Interior.Color = vbYellow Range("M" & i).Interior.Color = vbYellow Else Range("E" & i).Interior.Pattern = xlNone Range("M" & i).Interior.Pattern = xlNone End If Next i End Sub

---

Bonsoir BlueMonkey,

Citation:

---

comme dans le sujet les 2 colonnes désignés par des lettres, autant que ça apparaisse dans le code.

---

tu as raison mais je voulais respecter le choix de Leodams de passer par "Cells"

Citation:

---

e retrait de la couleur si le résultat de la comparaison change entre 2 exécution.

---

bonne remarque, suis-je étourdi !:oops:

Un petit coucou à Mercatog (ça fait longtemps, pour ma part)

Bonne soirée

Je vois que plusieurs possibilité pouvait s’offrir à moi.
Je n'ai vraiment pas encore cette facilité de dire choisir tel ou tel code.

J'en suis au step je tâtonne et je creuse et dans le l'urgence demande un coup pousse.

J’apprécie vraiment :zoubi:

oh les gars j'ai poster une autre interrogation, il y a même pas 20 minutes alors RDV là-bas:mrgreen:!

Bonsoir Casefayere,

Citation:

---

Envoyé par casefayere

tu as raison mais je voulais respecter le choix de Leodams de passer par "Cells"
bonne remarque, suis-je étourdi !:oops:

---

En fait mes ajouts étaient juste pour justifier que je poste un code 20 min :aie: après que tu es déjà posté une correction fonctionnelle.
(la seule conversion Cells / Range ne justifiait pas un post).
Donc loin de moins l'idée de dire qu'il manquait quelque chose d'indispensable dans ta solution ; elle corrigeait déjà complètement le problème. :ccool:

A+

Citation:

---

Bonsoir à tous,

tu as raison mais je voulais respecter le choix de Leodams de passer par "Cells"

---

Et bien pour faire plaisir à tout le monde utilise Cells(i,"E") ;-)

eric

Bonjour le forum,eriiic,BlueMonkey,Leodams,mercatog

Vos remarques sont sympas mais
Allez ! j'insiste, je rappelle le titre du sujet "Vérification des incohérences" alors quand je vois ça dans le code original de Leodams :

Code:

---

1 2 3

If Cells(i, 5) <> Cells(i, 6).Offset(0, 6) Then 'comparaison Cells(i, 5).Interior.Color = vbYellow 'mise en couleur de a1 Cells(i, 7).Offset(0, 6).Interior.Color = vbYellow 'mise en couleur de b1

---

Dans un but pédagogique, je voulais l'orienter sur l'utilisation des cells et des offset et j'ai envie de lui rappeler la base en vérifiant ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub savoir() 'cells(ligne,colonne)ligne et colonne commencent à 1 MsgBox Cells(1, 1).Address '= $A$1 MsgBox Cells(2, 1).Address '= $A$2 MsgBox Cells(1, 2).Address '= $B$1   'pour 0ffset décalage à partir de cells en ligne,pas de décalage en ligne = 0,en colonne = 0 MsgBox Cells(1, 1).Offset(0, 0).Address '= $A$1 donc offset inutile MsgBox Cells(2, 3).Offset(1, 0).Address '= $C$3   End Sub

---

Allez ! je n'insiste plus, bonne journée