Vérification des doublons

[Leodams]

Bonjour,

Je viens de m'inscrire sur le forum car je recherche un code en VBA qui me permettra de repérer les erreurs dans des bases de données Excel.

Voici ce que je cherche :

j'ai des valeurs dans la colonnes A qui doit être identique à celle de la colonne B
exemple A1=B1
Si ce n'est pas le cas mettre en couleur les cellules.
Exemple A1<> B1 alors mettre en jaune les cellules.

C'est tout bête je pense 😕

Et j'en profite pour vous posez la question, quel méthode je dois avoir pour améliorer mes connaissance sur le VBA.

Merci.

 

[jpb388]

Re : Vérification des doublons

Bonsoir le Forum

Sub Test()
Dim i&, Lg& ' variable &=as long
Lg = Range("A" & 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, 1) <> Cells(i, 1).Offset(0, 1) Then 'comparaison
        Cells(i, 1).Interior.Color = vbYellow 'mise en couleur de a1
        Cells(i, 1).Offset(0, 1).Interior.Color = vbYellow 'mise en couleur de b1
    End If
Next i
End Sub

lire les livres,les tutoriels(forum,développer.com etc) et surtout pratiquer,pratiquer et encore pratiquer

 

[Leodams]

Re : Vérification des doublons

Bonsoir,

Merci pour ta réponse je fait le test de suite !!

 

[Leodams]

Re : Vérification des doublons

ça fonctionne !!!

Mais si je veux adapter ce code pour comparer d'autre colonnes entre elle quels sont les ligne à modifier ?

 

[Leodams]

Re : Vérification des doublons

Merci beaucoup en modifiant les offset j'ai compris comment comparer la colonnes A avec d'autre colonnes que la B

Résolu

 

[jpb388]

Re : Vérification des doublons

re
il faut la modifier comme ceci

Sub Test()
 Dim i&, Lg&, Ctl As Range ' variable &=as long
 Set Ctl = Application.InputBox("Sélectionner une cellule de la colonne de gache à traiter" _
    , "Choisir la colonne", , , , , , 8)
 Lg = Cells(Rows.Count, Ctl.Column).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, Ctl.Column) <> Cells(i, Ctl.Column).Offset(0, 1) Then 'comparaison
         Cells(i, Ctl.Column).Interior.Color = vbYellow 'mise en couleur de a1
         Cells(i, Ctl.Column).Offset(0, 1).Interior.Color = vbYellow 'mise en couleur de b1
     End If
 Next i
 End Sub

Attention macro faite pour 2 colonnes l'une à coté de l'autre

 

[Leodams]

Re : Vérification des doublons

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

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

 

[jpb388]

Re : Vérification des doublons

bonsoir le forum
la même sans offset

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 'comparaison
         Cells(i, 5).Interior.Color = vbYellow 'mise en couleur de a1
         Cells(i, 13).Interior.Color = vbYellow 'mise en couleur de b1
     End If
 Next i
 End Sub

ton erreur vient d'ici
Cells(i, 5) <> Cells(i, 6).Offset(0, 6) soit la colonne l et pas m

 

[Leodams]

Re : Vérification des doublons

Ok thanks

Merci de m'avoir dit ou été mon erreur.
Je me suis en mêlé les Offset.

 

[jpb388]

Re : Vérification des doublons

re
de rien et c'est comme ça qu'on apprend