Code Vba Pour Comparer Deux Feuilles | Excel-Downloads

• Je soutiens Excel Downloads

Connexion S'inscrire Effectuez une recherche sur Excel Downloads...

Effectuez une recherche sur Excel Downloads...

Partout Discussions Ce forum Cette discussion Rechercher dans les titres uniquement Note Par: Rechercher Recherche avancée…

• FORUMS Nouveaux messages Rechercher dans les forums
• TÉLÉCHARGEMENTS POUR LES PROFESSIONNELS Gestion commerciale Gestion de projets Gestion du personnel Tableaux de bord Comptabilité Immobilier Bourse POUR LES PARTICULIERS Budgets et comptes Plannings et calendriers UTILITAIRES LEÇONS ET TUTORIAUX Fonctions Excel Vba RESSOURCES PEDAGOGIQUES Rechercher une ressource
• ACTUALITÉS
• TUTOS EXCEL FORMULES ET FONCTIONS VBA POWER QUERY POWER PIVOT POWER BI AUTRES APPLICATIONS Recherche de tutos vidéos
• MEMBRES Visiteurs en ligne Nouveaux messages de profil Rechercher des messages de profil

Connexion S'inscrire Quoi de neuf Effectuez une recherche sur Excel Downloads...

Effectuez une recherche sur Excel Downloads...

Partout Discussions Ce forum Cette discussion Rechercher dans les titres uniquement Note Par: Rechercher Recherche avancée…

• Nouveaux messages
• Rechercher dans les forums

Menu Connexion S'inscrire Installer l'application Installer How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• FORUMS
• Questions
• Forum Excel

Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif. code vba pour comparer deux feuilles Créer une discussion Répondre

• Initiateur de la discussion Initiateur de la discussion raniou010
• Date de début Date de début 21 Juin 2018

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 !

Connexion S'inscrire

raniou010

XLDnaute Nouveau

bonjour a vous tous , c'est ma première publication , je veux bien un code VBA pour comparer deux feuilles Excel ( si A de premier = A de deuxième et E de premier = X de deuxième et AM de premier = Y de deuxième alors je sélectionne les lignes dans la premiere feuille ou bien je mets les lignes dupliquées dans une nouvelle feuille car je vais faire des modification dans ces ligne mais au premier temps je veux les trouver . c'est mon premier test qui n'est pas du tout bon Code: Sub test() Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet Dim I As Long Windows("test.csv").Activate 'Nom du classeur Set w1 = Sheets("histo") 'Feuille qui contient les duppliques Set w2 = Sheets("duplic") 'Feuille qui contient l'historique des vols Set w3 = Sheets("traitement") 'Feuille qui doit faire apparaitre les vols duppliques daans histo For I = 2 To w1.Range("c65536").End(xlUp).Row If Application.WorksheetFunction.CountIf(w2.Range("a:a"), w1.Range("a" & I)) = 0 Then w1.Range("a" & I & ":a" & I).Copy Destination:=w3.Range("a65536").End(xlUp).Offset(1, 0) End If Next MsgBox "TERMINE" End Sub

• 1
• 2
• 3

Suivant 1 de 3

Aller à la page

Aller Suivant Dernier Trier par date Trier par votes

vgendron

XLDnaute Barbatruc

Bonjour et bienvenu peux tu poster ton fichier exemple pour que l'on travaille directement dessus Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

Hello ton fichier en retour avec un bouton à cliquer dans ton fichier.. il n'y avait pas de lignes communes. donc rien à identifier et à copier dans la troisième feuille ==> j'ai donc ajouté une ligne pour le test Fichier supprimé à la demande de l'auteur du post Dernière édition: 28 Juin 2018 Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

euh.. non, ce n'est pas plus clair.. désolé.. avec ton fichier fourni peux tu expliquer et montrer quelles lignes de quelle feuilles doivent etre recopiées dans la feuille traitement.. ??

raniou010 à dit: dans l'exemple j'ai 23 lignes dans duplicates alors je doit les trouver dans histo Cliquez pour agrandir...

si tu les trouves.. alors. que fais tu.. si tu ne les trouves pas.. que fais tu? et dans le fichier.. on ne les trouve pas non plus.. aucune ligne commune entre les deux feuilles.. Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

pfffff... va vraiment falloir faire un effort pour expliquer... je ne comprend rien ! ton fichier "Trafic_histo_fevrier_2018"===> ca correspont à la feuille "Histo" du premier fichier? les lignes jaunes sont celles qui doivent etre identifiées et donc copiées dans traitement??? tu parles de filtres.. dans la feuille "Duplic" ==> Filtre sur Colonne A : 24/02/2018 ==> UNE SEULE ligne==> colonnne X = DLH2222 - Colonne X = A si je filtre aussi dans la feuille "HISTO" colonne A: 24/02/2018==> 159 lignes ==> filtre colonne E pour avoir "DLH2222" ===> AUCUNE ligne (y aurait il une subtilité entre "DLH222 et LH222" ???) ce que j'ai compris,jusqu'à présent c'est: l'INFO cherchée est constituée du "Flight Date Block" ET "Flight No" ET "ARR_Dep" cette info dans la feuille DUPLIC correspond aux colonnes A X et Y cette info dans la feuille HISTO correspond aux colonnes A E et AM Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

???????? Vote positif 0 Vote négatif

raniou010

XLDnaute Nouveau

🙁 laisses tomber vgendron je sais , je suis pas bonne en explication des choses , merci quand même , bonne journée Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

peut etre ceci.. au cas ou.... Cette macro liste les DOUBLONS présents dans la feuille Histo et les mets dans la feuille Traitement... VB: Sub DOUBLONS() Application.ScreenUpdating = False Dim TabHisto() As Variant With Sheets("Histo") finH = .UsedRange.Rows.Count TabHisto = .Range("A1:AN" & finH).Value 'on met toutes les infos de la feuille Histo dans un tablo End With For I = LBound(TabHisto, 1) To UBound(TabHisto, 1) - 1 'on check les doublons If TabHisto(I, 1) = TabHisto(I + 1, 1) And TabHisto(I, 5) = TabHisto(I + 1, 5) And TabHisto(I, 39) = TabHisto(I + 1, 39) Then TabHisto(I, 40) = "VRAI" End If Next I For I = LBound(TabHisto, 1) To UBound(TabHisto, 1) 'on parcourt tout le tableau "Histo" If TabHisto(I, 40) = "VRAI" Then 'si c'est un doublon With Sheets("Traitement") 'on colle les info dans la feuille traitement .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = TabHisto(I, 1) For j = LBound(TabHisto, 2) + 1 To UBound(TabHisto, 2) .Range("A" & .Rows.Count).End(xlUp).Offset(0, j - 1) = TabHisto(I, j) Next j End With End If Next I Application.ScreenUpdating = True End Sub Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

VB: Sub IntToHeure() With Sheets("Duplic") Set ici = Application.InputBox("Sélectionnez la colonne à convertir", Type:=8) fin = .UsedRange.Rows.Count colonne = ici.Column For I = 2 To fin test = Format(.Cells(I, colonne), "0000") .Cells(I, colonne) = (Left(test, 2)) & ":" & Right(test, 2) Next I End With End Sub Vote positif 0 Vote négatif

raniou010

XLDnaute Nouveau

vgendron à dit: VB: Sub IntToHeure() With Sheets("Duplic") Set ici = Application.InputBox("Sélectionnez la colonne à convertir", Type:=8) fin = .UsedRange.Rows.Count colonne = ici.Column For I = 2 To fin test = Format(.Cells(I, colonne), "0000") .Cells(I, colonne) = (Left(test, 2)) & ":" & Right(test, 2) Next I End With End Sub Cliquez pour agrandir...

merciiiiiiiiiiiiiiiiii infenimenttt Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

raniou010 à dit: mais pour ce code ca donne pas le resultat attendu 🙁 merci quand meme Cliquez pour agrandir...

Justement !! c'est quoi le résultat attendu ? peux tu faire manuellement le travail sur quelques lignes en expliquant la logique.. Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

Salut Comme tu ne réponds pas aux questions que je te pose...je ne suis toujours pas sur d'avoir compris... La question c'est : MONTRE MOI une ligne ou plusieurs qui SONT des duplicates en attendant: Voici ce que j'ai compris pour l'instant: Regarde et corrige moi.. 1) votre systeme informatique créé un fichier "Histo.csv" 2) Dans ce fichier, il y a des vols dupliqués ==>soit parce que ils ont la meme date et le meme numéro et le meme sens (Colonnes A, AM et E) ==> soit parce que il n'y a pas de numéro de vol (Colonne E = vide) 3) tu veux retrouver TOUS ces vols dupliqués pour pouvoir les modifier la nouvelle macro que je viens de faire (dans la Pièce jointe) fait un tri sur les colonnes A E et AM met une formule en AN (cette formule a besoin du tri précédent) cette formule montre les "dupliqués" la macro fait ensuite un filtre pour ne voir QUE les dupliqués la macro copie les Dupliqués dans la feuille que j'ai appelée "DuplicatesHisto" Fichier supprimé à la demande de l'auteur du post Dernière édition: 28 Juin 2018 Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

ouh laa... je pense avoir compris un élément important... les duplicates sont DEJA identifiés par votre système informatique DANS le fichier duplicate !! ===> Correct?? et donc. ce que tu veux.. pour chaque duplicate, retrouver la ligne correspondante dans le fichier Histo pour pouvoir la modifier...==>Correct? Vote positif 0 Vote négatif

raniou010

XLDnaute Nouveau

exactement !!!! il faut trouver les lignes pour les modifier Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

ok ! on progresse... maintenant, question suivante.. Comment souhaites tu que la macro fonctionne? ==> que veux tu qu'elle fasse? 1) je suppose que tu vas modifier toutes les lignes UNE par UNE à la MAIN 2) 1er exemple de fonctionnement ==>dans une troisième feuille: tu as la ligne duplicate, et juste en dessous la ligne Histo correspondante ==> comme ca, tu peux voir les deux lignes en meme temps tu modifies les lignes "histo" ==> Tu valides, et les modifs sont enregistrées dans la feuille Histo d'origine 2eme exemple de fonctionnement ==> tu cliques sur une ligne duplicate ===> tu cliques sur un bouton ==> la macro t'emmene directement sur la ligne correspondante dans Histo ==> tu modifies cette ligne, et tu valides ==> la ligne duplicate disparait de la feuille duplicate.. 3eme exemple..???peut etre as tu une idée précise de comment tu veux travailler pour moidifier les lignes histo? Vote positif 0 Vote négatif

• 1
• 2
• 3

Suivant 1 de 3

Aller à la page

Aller Suivant Dernier 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 Répondre Insérer les messages sélectionnés…

Discussions similaires

U

• Question Question

Autres Quelques fois ça bug feuilles cachées

• un internaute
• 26 Septembre 2025
• Forum Excel

Réponses 2 Affichages 201 26 Septembre 2025 cathodique D

• Question Question

XL 2021 Formule Excel dans VBA

• dl87671
• 22 Décembre 2025
• Forum Excel

Réponses 3 Affichages 62 22 Décembre 2025 dl87671 D D

• Question Question

XL 2019 VBA Définir une zone d'impression

• dadaze
• 7 Septembre 2025
• Forum Excel

Réponses 5 Affichages 460 7 Septembre 2025 dadaze D

• Résolu(e)

XL 2021 Problème réaffectation variable Objet

• treza88
• 20 Novembre 2025
• Forum Excel

Réponses 2 Affichages 112 20 Novembre 2025 treza88 M

• Résolu(e)

XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2

• MATLEA
• 8 Octobre 2025
• Forum Excel

Réponses 3 Affichages 287 8 Octobre 2025 MATLEA M A

• Question Question

XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé

• atalec
• 18 Juin 2025
• Forum Excel

Réponses 1 Affichages 507 18 Juin 2025 sylvanu

• Résolu(e)

XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?

• anthoYS
• 26 Octobre 2025
• Forum Excel

2 Réponses 16 Affichages 384 26 Octobre 2025 anthoYS

• Question Question

XL 2019 Prénoms à souhaiter

• lynyrd
• 9 Novembre 2025
• Forum Excel

2 Réponses 15 Affichages 442 9 Novembre 2025 lynyrd

• Résolu(e)

XL 2021 Bug dans code vba

• thunder23
• 26 Mars 2025
• Forum Excel

Réponses 8 Affichages 717 31 Mars 2025 thunder23 F

• Question Question

Microsoft 365 Problème mémoire insuffisante

• FCMLE44
• 21 Août 2025
• Forum Excel

Réponses 5 Affichages 768 23 Août 2025 TooFatBoy

• Résolu(e)

XL 2016 Excel code vba motus

• papychat1
• 28 Janvier 2025
• Forum Excel

Réponses 11 Affichages 562 28 Janvier 2025 papychat1 S

• Question Question

XL 2021 Listing Album Panini

• Sydneysyd666
• 15 Juin 2025
• Forum Excel

Réponses 5 Affichages 506 15 Juin 2025 job75 G

• Question Question

XL 2021 Macro pour changer les titres de fichier d'archive

• GAB76
• 28 Février 2025
• Forum Excel

Réponses 3 Affichages 636 13 Mars 2025 fanch55 J

• Question Question

XL 2021 transfert listview vers feuille excel

• Jobart
• 2 Avril 2025
• Forum Excel

Réponses 9 Affichages 654 15 Avril 2025 Piment P C

• Résolu(e)

XL 2021 Additionner résultats d'une boucle for en vba

• Claudinedu13
• 8 Novembre 2024
• Forum Excel

Réponses 9 Affichages 658 8 Novembre 2024 Claudinedu13 C N

• Question Question

Microsoft 365 Code VBA

• Nathan027
• 11 Septembre 2024
• Forum Excel

Réponses 7 Affichages 946 13 Septembre 2024 TooFatBoy F

• Question Question

Microsoft 365 aide VBA excel

• francis beauregard
• 29 Novembre 2024
• Forum Excel

Réponses 4 Affichages 704 2 Décembre 2024 Oneida T

• Résolu(e)

XL 2019 Filtrer certains champs au démarrage avec vba

• telemarrk
• 17 Mars 2025
• Forum Excel

2 Réponses 15 Affichages 1 K 21 Mars 2025 telemarrk T

• Résolu(e)

XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.

• piga25
• 19 Février 2025
• Forum Excel

Réponses 7 Affichages 730 19 Février 2025 piga25 F

• Question Question

XL 2021 probleme dans la macro

• fab5152
• 3 Juin 2025
• Forum Excel

Réponses 4 Affichages 634 4 Juin 2025 kiki29 Partager ce contenu : Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp E-mail Partager ce contenu Copier le lien

• FORUMS
• Questions
• Forum Excel

• Nous accordons de l'importance à votre vie privée

  Nous utilisons des cookies essentiels pour faire fonctionner ce site, et des cookies facultatifs pour améliorer votre expérience.

  Voir plus d'informations et configurer vos préférences

  Accepter tous les cookies Refuser les cookies facultatifs
  • Cookies essentiels
  Ces cookies sont nécessaires pour activer les fonctionnalités de base telles que la sécurité, la gestion du réseau et l'accessibilité. Vous ne pouvez pas les rejeter.
  • Cookies optionnels
  Nous fournissons des fonctionnalités améliorées pour votre expérience de navigation en configurant ces cookies. Si vous les rejetez, les fonctionnalités améliorées ne seront pas disponibles.
  • Cookies de tierces parties
  Les cookies définis par des tiers peuvent être nécessaires pour alimenter les fonctionnalités en collaboration avec divers fournisseurs de services à des fins de sécurité, d'analyse, de performance ou de publicité.
  • Utilisation détaillée des cookies
  • Politique de confidentialité
  Enregistrer les préférences de cookies

Retour