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

Comparer deux feuille et surligner les valeurs

  • Initiateur de la discussion Initiateur de la discussion patrice29
  • 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 !

P

patrice29

Guest
Bonjour à tous 🙂 ,

Veuillez excuser d’avance mon incompétence sur excel je suis complètement novice.

D’un coté, j ais une feuille excel de 6 colonnes
Sur x ligne

De l’autre j’ ais une feuille excel de 1 colonne sur x ligne

Je souhaiterais comparer ma seconde feuille excel par rapport à la colonne 5 de ma première feuille.

Si des donnée correspondent surligner la ligne correspondante sur la feuille 1 .

Pour résumer 🙂 , je voudrais comparer 2 feuilles , si une valeur est présente sur les deux feuilles surligner la ligne correspondant à la cellule trouvé.

Quelle est la meilleur et la plus simple manière de faire cela ?

Merci d’avance 🙂 .
 
Re : Comparer deux feuille et surligner les valeurs

Bonjour,

Sélectionner la plage en colonne A de la feuille 2
Menu Insertion - Nom - Définir - taper un nom, par exemple "liste" (sans les "")
Sélectionner la plage de la feuille 1, par exemple A1:L20
Menu Format - Mise en forme conditionnellle
Choisir "la formule est" (au lieu de "la valeur de la formule est")
Taper : =NB.SI(liste;$E1)>0
Onglet Format - Motifs - choisir une couleur - OK - OK

mjo
 
Re : Comparer deux feuille et surligner les valeurs

Je joins ma feuille pour faire plus facile.

Dans un premier temps je dois dedoublonner ma feuille 1.

Ensuite comparer le résultat avec ma feuille 2 pour ne laisser apparaitre que les lignes des doublons sur la feuille 1.

Pour telecharger le fichier :


Merci d'avance.

EDITION : Merci de mettre des données bidons dans les fichiers. Merci.
Pascal76
 
Re : Comparer deux feuille et surligner les valeurs

Salut Patrice, mjo, le Forum

Patrice ton fichier contient des données confidentielles c'est trés dangereux (Vulalongueurdetesdonnées)

Je l'ai juste ouvert puis refermer. Je te conseil vivement de le remplacer (si c'est possible sinon demande au Modérateur 🙂 ) par un fichier contenant des données bidons car selon la formule consacrée "le Forum ne saurais être responsable etc etc... voir la Lien supprimé paragraphe 3

Bon courage

PS: Comme Quoi!!! Mon message n'a plus de raison d'être mais "Ti pas Ti pas on arrive au même resutat" Merci Pascal de veuiller au grain
 
Dernière édition:
Re : Comparer deux feuille et surligner les valeurs

Il est vrais que je me suis un peu précipité.
Le fait est que je suis tellement novice que je n'arrive meme pas à inserer une macro de dedoublement .

Merci de votre réactivitée.
 
Re : Comparer deux feuille et surligner les valeurs

Super !!! 🙂
Il y avait des parametre que je n 'avais pas compris.

Maintenant est il possible de supprimer les lignes non surligner facilement?

Encore merci 🙂
 
Re : Comparer deux feuille et surligner les valeurs

Génial !!!
Seulement je ne sais pas ou aller cherche le code ni comment l'appliquer sur mon dossier.
dans macro surement ?

Merci d'avance.
 
Re : Comparer deux feuille et surligner les valeurs

Je viens de comprendre , il faut aller dans visual editor 🙂

Si je veux mettre un deuxieme parametre :
Ici j ais un Range noms , je voudrais concerver un Range Voiture supplementaire qui se trouve dans une fueille 3

Sa se passe comment dans se cas?

Code:
Sub Bouton1_QuandClic()
Dim i As Long

For i = Range("a65536").End(xlUp).Row To 2 Step -1
    If Application.CountIf(Range("noms"), Cells(i, 3)) = 0 Then
        Rows(i).Delete
    End If
    
Next i

End Sub

Merci d'avance 🙂
 
Re : Comparer deux feuille et surligner les valeurs

J ais adapté le script à mon tableau.

il s'execute durant 15 minutes et efface toutes les données la la feuille qui contient 5 000 lignes.

voici mon code:

Code:
Sub Bouton1_QuandClic()
Dim i As Long

For i = Range("a5536").End(xlUp).Row To 2 Step -1
    If Application.CountIf(Range("mail"), Cells(i, 3)) = 0 Then
        Rows(i).Delete
    End If
Next i

End Sub

Merci d'avance.
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…