Extraire les données communes de 3 feuilles

suistrop

XLDnaute Impliqué

• 19 Octobre 2009

• #2

Re : Extraire les données communes de 3 feuilles

salut kenavo,

Sans nous dire ce qu'on doit comparer et quel résultat tu souhaites c est vraiment dur de t aider.

a+ avec plus d 'explications.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 19 Octobre 2009

• #3

Re : Extraire les données communes de 3 feuilles

bonsoir suistrop kenavo le forum
oui surtout que dans le fichier il n'y a pas de ref identique !!!!
ou alors 002148 c'est pareil que 0002148 ?
et le format texte pareil que les chiffres?
enfin je suis comme suistrop ?????????????????
a+
papou

 

Vote positif 0 Vote négatif

K

kenavo

Guest

• 19 Octobre 2009

• #4

Re : Extraire les données communes de 3 feuilles

Bonsoir

Pas clair en effet oui je veux recuperer les codes barre identique identique au 3 feuilles (mais dans une feuille il y a un format différent, pour ça je vais refaire le format afin que toutes les feuilles aient le code barre sous le même format : 00XXXX)
En fait ce tableau n est qu' une petite partie du vrai : je dois avoir assez peu de code barre identique

Je pensais à la fonction recherchev mais ça ne fonctionne pas...

 

Dernière modification par un modérateur: 19 Octobre 2009

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Octobre 2009

• #5

Re : Extraire les données communes de 3 feuilles

Bonsoir


Pour un début de piste

Code:

Sub Macro1()
Dim ws1 As Worksheet: Set ws1 = Sheets("Feuil1")
Dim ws2 As Worksheet: Set ws2 = Sheets("Feuil2")
Dim ws3 As Worksheet: Set ws3 = Sheets("Feuil3")
Dim wsF As Worksheet
Sheets.Add: ActiveSheet.Name = "TEMP": Set wsF = Sheets("TEMP"): wsF.Activate
ws1.Range("A1:A" & ws1.[A65536].End(xlUp).Row).Copy wsF.[A65536].End(xlUp)(2)
ws2.Range("A1:A" & ws2.[A65536].End(xlUp).Row).Copy wsF.[A65536].End(xlUp)(2)
ws3.Range("A1:A" & ws3.[A65536].End(xlUp).Row).Copy wsF.[A65536].End(xlUp)(2)
    With wsF.Range("A1:A" & wsF.[A65536].End(xlUp).Row)
        .NumberFormat = "0000000"
        .HorizontalAlignment = xlRight
    End With
End Sub

 

Vote positif 0 Vote négatif

K

kenavo

Guest

• 19 Octobre 2009

• #6

Re : Extraire les données communes de 3 feuilles

Merci Staple1600

Niveau macro je suis nul : je travaille dessus avec un bouquin ( excel et VBA) mais je vais travailler a ton code

Merci beaucoup

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Octobre 2009

• #7

Re : Extraire les données communes de 3 feuilles

Re


Voila de quoi épuiser ta réserve d'aspirine 😉

Lien supprimé

Un joli fichier de BOISGONTIER qui pourrait t'aider à poursuivre ton projet.

En fait tu veux identifier des doublons non ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2009

• #8

Re : Extraire les données communes de 3 feuilles

Re


Une solution plus abordable pour débuter (adaptée d'un code de Ron de Bruin)

 

Vote positif 0 Vote négatif

K

kenavo

Guest

• 20 Octobre 2009

• #9

Re : Extraire les données communes de 3 feuilles

Merci beaucoup pour ton aide

Bonne journée à toutes et tous

 

Vote positif 0 Vote négatif