Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Vérification des doublons

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Leodams
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Leodams

Guest
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.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Vérification des doublons

Bonsoir le Forum
Code: 
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
 
Vote positif 0 Vote négatif
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 ?
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Vérification des doublons

re
il faut la modifier comme ceci

Code: 
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
 
Vote positif 0 Vote négatif
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
Code: 
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
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Vérification des doublons

bonsoir le forum
la même sans offset

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Autres Je cherche à extraire des cellules en ordre croissant et sans doublons Les colonnes de référence ne peuvent être triées.
Réponses
5
Affichages
153
Dranreb
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
195
F22Raptor
F
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
362
job75
P
  • Question Question
Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs
Réponses
4
Affichages
296
Perceval973
P
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
B
  • Question Question
Microsoft 365 Remplacer les lettres d'une formule par des lettres dans une cellule
Réponses
1
Affichages
300
JHA
J
J
  • Question Question
Microsoft 365 répartition des pourboire au service
Réponses
6
Affichages
377
Jean-Eric
F
  • Question Question
XL 2016 doublons
2
Réponses
19
Affichages
2 K
finarobert
F
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
896
picc
P
C
  • Question Question
XL 2016 Suivi des entretiens véhicules
Réponses
2
Affichages
912
clethu
C
  • Question Question
Microsoft 365 Surlignage des cellules comportant des doublons
Réponses
3
Affichages
448
JCS32
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
699
ftpo69
F
  • Résolu(e)
XL 2019 Définir un nom d'un champ lors d'une macro
2
Réponses
28
Affichages
2 K
vgendron
  • Résolu(e)
XL 2013 (RESOLU) Couleur unique à chaque doublon différent
Réponses
11
Affichages
909
chaelie2015
L
  • Question Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
618
l.et.lilou
L
P
  • Résolu(e)
Microsoft 365 Crée un VBA pour repérer des doublons sur un tableur excel
2 3
Réponses
31
Affichages
4 K
patrick965
P
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
549
sylvanu
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
673
Etoto
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
664
job75
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
1 K
djidji59430
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…