Discussion :

[Leodams]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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?

[Leodams]

Merci casefayere

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

I need to learn any more !!!

[BlueMonkey]

Bonsoir,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir BlueMonkey,

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"

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

bonne remarque, suis-je étourdi !

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

Bonne soirée

[Leodams]

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

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

[BlueMonkey]

Bonsoir Casefayere,

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

En fait mes ajouts étaient juste pour justifier que je poste un code 20 min 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.

A+

[eriiic]

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