croiser donnée selon plusieurs critére Fermé

Question

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


Configuration: Windows XP / Internet Explorer 8.0

michel_m · Answer

Bonjour,
si les listes 1 et 2 sont longues (dans l'exemple 5000 lignes) solution par VBA
 
https://www.cjoint.com/?3CwnBcIVCRU

via55 · Answer

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

Thierry · Answer

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

Croiser donnée selon plusieurs critére

3 réponses

Discussions similaires