Croiser donnée selon plusieurs critére
Thierry
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis a la recherche de la bonne formule et du bon mode opératoire pour croiser deux feuilles de calcul,
Je souhaites croisées deux feuilles de calcul pour savoir si les données de la premiere sont idem a la deuxieme et faire ressortir les lignes de différences en fonction de deux colonnes
Merci d'avance pour vos conseils
Win XP
Excel 2003
Je suis a la recherche de la bonne formule et du bon mode opératoire pour croiser deux feuilles de calcul,
Je souhaites croisées deux feuilles de calcul pour savoir si les données de la premiere sont idem a la deuxieme et faire ressortir les lignes de différences en fonction de deux colonnes
Merci d'avance pour vos conseils
Win XP
Excel 2003
A voir également:
- Croiser donnée selon plusieurs critére
- Tableau croisé dynamique plusieurs colonnes - Guide
- Comment faire un camembert sur excel avec plusieurs données - Guide
- Météo xiaomi aucune donnée - Forum Xiaomi
- Puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). ✓ - Forum Excel
- Maya cherche des mocassins noirs ou rouges en taille 40. filtrez la table selon ses critères. combien y a-t-il de résultats ? - Forum Graphisme
3 réponses
Bonjour,
si les listes 1 et 2 sont longues (dans l'exemple 5000 lignes) solution par VBA
https://www.cjoint.com/?3CwnBcIVCRU
si les listes 1 et 2 sont longues (dans l'exemple 5000 lignes) solution par VBA
https://www.cjoint.com/?3CwnBcIVCRU
Bonjour
Une possibilité en VBA :
Sub compare()
nom1="Feuil1" 'Mettre entre les " le nom de la 1ere feulle
nom2="Feuil2" 'nom 2eme feuiille
X=2 ' numéro de la 1ere ligne à vérifier
col1="B"
col2="F" 'Les 2 colonnes à vérifier ici B et F
der=sheets(nom1).range(col1 & x).End(xldown).row 'recherche derniere ligne non vide sur la premiree feuille
For n=1 to der
If sheets(nom1).range(col1 & n).value <>sheets(nom2).range(col1 & n).value then sheets(nom1).range(col1 & n).interior.colorindex=3:sheets(nom2).range(col1 & n).interior.colorindex=3 'colorie les cellules différentes
If sheets(nom1).range(col2 & n).value <>sheets(nom2).range(col2 & n).value then sheets(nom1).range(col2 & n).interior.colorindex=3:sheets(nom2).range(col2 & n).interior.colorindex=3 'colorie les cellules différentes
Next n
End sub
ALT F11 pour ouvrir l'éditeur
Insertion Module
Coller la macro dans la fenetre et fermer l'éditeur
pour executer
Onglet Developpeur
Macros
Executer
Cdlmnt
Une possibilité en VBA :
Sub compare()
nom1="Feuil1" 'Mettre entre les " le nom de la 1ere feulle
nom2="Feuil2" 'nom 2eme feuiille
X=2 ' numéro de la 1ere ligne à vérifier
col1="B"
col2="F" 'Les 2 colonnes à vérifier ici B et F
der=sheets(nom1).range(col1 & x).End(xldown).row 'recherche derniere ligne non vide sur la premiree feuille
For n=1 to der
If sheets(nom1).range(col1 & n).value <>sheets(nom2).range(col1 & n).value then sheets(nom1).range(col1 & n).interior.colorindex=3:sheets(nom2).range(col1 & n).interior.colorindex=3 'colorie les cellules différentes
If sheets(nom1).range(col2 & n).value <>sheets(nom2).range(col2 & n).value then sheets(nom1).range(col2 & n).interior.colorindex=3:sheets(nom2).range(col2 & n).interior.colorindex=3 'colorie les cellules différentes
Next n
End sub
ALT F11 pour ouvrir l'éditeur
Insertion Module
Coller la macro dans la fenetre et fermer l'éditeur
pour executer
Onglet Developpeur
Macros
Executer
Cdlmnt
Merci pour ces infos, la solution est seulement via VBA ?
Je ne maitrise pas vraiment, malheuresement !!
Avez vous une autre solution, oui en effet le fichier traite plus de 5000 lignes,
Merci pour votre retour
Je ne maitrise pas vraiment, malheuresement !!
Avez vous une autre solution, oui en effet le fichier traite plus de 5000 lignes,
Merci pour votre retour
Re
peut être une solution avec une MFC mais suppose que les 2 tableaux soient sur la même feuille
Supposons le 1er tableau en plage A2:G5000
Copier le tableau feuille 2 et le coller en J2 il va donc se positionner sur la plage J2:P5000
Selectionner toute cette plage puis Accueil - MFC - Nouvelle regle - Utilisier une formule ... et entrer la formule =J2<>A2 avant de chosir un format de couleur
Toutes les cellules differentes du 2eme tableau seront mises en couleur
Cdlmnt
peut être une solution avec une MFC mais suppose que les 2 tableaux soient sur la même feuille
Supposons le 1er tableau en plage A2:G5000
Copier le tableau feuille 2 et le coller en J2 il va donc se positionner sur la plage J2:P5000
Selectionner toute cette plage puis Accueil - MFC - Nouvelle regle - Utilisier une formule ... et entrer la formule =J2<>A2 avant de chosir un format de couleur
Toutes les cellules differentes du 2eme tableau seront mises en couleur
Cdlmnt
