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

Comparer colonne - problème avec <>

Créer une discussion

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
R

Romain31

XLDnaute Occasionnel
Bonjour à tous,

Je cherche à comparer les données de la colonne A de la feuille 1 et celles de la colonne A de la feuille 2, quelque soient leur place dans la colonne.
On ne tient donc pas compte de leur position, on ne les compare pas par paire.
La macro données_identiques fonctionne bien et colorie sur la feuille 1es valeurs qui se retrouvent sur la feuille 2 (certaines sont placées au même endroit sur les deux feuilles, d'autres non).

Je souhaite faire l'inverse, et colorier en feuille 1 les données différentes.
Je pensais qu'en conservant ce code et en employant <> au lieu du signe =, cela fonctionnerait.

If Sheets("Feuil1").Range("a2").Offset(i, 0) <> Sheets("Feuil2").Range("a2").Offset(c, 0) Then

Sheets("Feuil1").Range("a2").Offset(i, 0).Interior.ColorIndex = 7

Surprise, toutes les valeurs sont coloriées.
Où est l'erreur, avez-vous une solution ?

Je joins le fichier.

Merci pour votre aide, et bonne journée.
 

Pièces jointes

Trier par date Trier par votes
Re : Comparer colonne - problème avec <>

Bonjour Romain31,

Juste parce que j'ai un doute ... on est d'accord qu'une mise en forme conditionnelle qui utiliserait la fonction NB.SI te permettrait d'obtenir le même résultat?

Edit: Salut Marc 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Comparer colonne - problème avec <>

Bonjour Romain, Bonjour Modeste 🙂

comme tu ne tiens pas compte de leur position, tu compare chaque donnée des 2 feuilles 2 à 2
il y a forcément un moment où tu vas tomber sur une valeur différente sur l'autre feuille, et donc tu colories tout
il ne faut colorier que si toutes les comparaisons sont différentes

peut-être enlever la couleur sera plus simple

Code: 
    For i = 0 To Sheets("Feuil1").Range("a65000").End(xlUp).Row - 2
           
        For c = 0 To Sheets("Feuil2").Range("a65000").End(xlUp).Row - 2
        
            Sheets("Feuil1").Range("a2").Offset(i, 0).Interior.ColorIndex = 7
            
            If Sheets("Feuil1").Range("a2").Offset(i, 0) = Sheets("Feuil2").Range("a2").Offset(c, 0) Then
            
                Sheets("Feuil1").Range("a2").Offset(i, 0).Interior.ColorIndex = xlNone
                Exit For
                
            End If
            
        Next
    Next

Mais la remarque de Modeste est parfaitement justifiée 😉
 
Vote positif 0 Vote négatif
Re : Comparer colonne - problème avec <>

Merci tototiti2008 pour ce code qui marche impec.
Effectivement, comme le dit modeste, j'aurais pu le faire avec une formule et une MFC.
J'avais mis i = variant comme type de variable mais je pense qu'il y a mieux.
 
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

Discussions similaires

  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
500
patricktoulon
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
508
CortoXls
C
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
681
Gestionnaire_rh
G
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
221
Lu76Fer
  • Question Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
502
AIXELS
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
819
jurassic pork
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
524
telemarrk
T
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
262
KRUG WOO
K
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
713
Zonmé
Z
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
573
guiyom
G
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
425
crocrocro
C
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
671
AtTheOne
Y
  • Question Question
XL 2019 copier/coller colonne vers ligne
Réponses
4
Affichages
501
sylvanu
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
654
GClaire
G
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
M
  • Question Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
793
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…