Croiser donnée selon plusieurs critére
Thierry
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 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
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 -
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 -
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-
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
-
