que c'est compliqué

[alf049]

Bonjour,
un ami m'a laissé un fichier avant de partir en vacances concernant la récupération de donnée de 2 onglet en 1. et je me suis dit que je pourrais l'importer dans un autre fichier car je souhaite récupérer des données d'un fichier dans un autre.
Sauf que voilà j'y capte nada à partir du moment ou je vais chercher les données dans un autre fichier, en revanche si je vais les prendre dans un autre onglet du fichier j'y arrive.

Voici le script du fichier maitre:
Onglet donnée:
Private Sub cmdExtraire_Click()
If Range("A1") <> "" Then
Range("A3:c10000").ClearContents
Extraire UCase(Range("A1")), "Tableau 1"
Extraire UCase(Range("A1")), "Tableau 2"
End If
End Sub
Onglet synthèse
Sub Extraire(Critere As String, NomFeuille As String)
Dim DerLigne As Long, Ligne As Long
Dim i As Long

If Critere = "" Then Exit Sub

i = Sheets("Resultat").Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row

With Sheets(NomFeuille)
DerLigne = .Range("A" & .Rows.Count).End(xlUp).Row
For Ligne = 2 To DerLigne
If UCase(.Cells(Ligne, 1)) = Critere Then
i = i + 1
Sheets("Resultat").Cells(i, 1) = Critere
Sheets("Resultat").Cells(i, 2) = .Cells(Ligne, 2)
Sheets("Resultat").Cells(i, 3) = .Cells(Ligne, 3)
End If
Next Ligne
End With

End Sub

Dans mon autre fichiers les données sont a récupérer dans un fichier qui s'appel toto dans l'onglet toto1 (colonne A,B, M et O)

Quelqu'un aurait-il la possibilité de me guider ?😕

 

[cbea]

Re : que c'est compliqué

Bonjour alf049,

Aurais-tu un extrait des 2 fichiers à transmettre ?
Cela serait plus facile pour te répondre.

Merci

 

[alf049]

Re : que c'est compliqué

voici le principe:
je dois recupérer dans test 2 les lignes correspondant à valeur en A1 presentent dans tous le fichier TEST1.

Au fait si on peut zapper le bouton cela ne me dérange pas.

Merci🙁

 

[jeanpierre]

Re : que c'est compliqué

Bonjour cbea (dont j'admire les réponses immédiates et très souvent rapides en terme d'exécution), alf049,

alf :

Sont où, ta feuille : With Sheets(NomFeuille) ? (vrais que c'est compliqué dans ce cas, Merci le titre aussi)

Bon après-midi.

Jean-Pierre

 

[alf049]

Re : que c'est compliqué

si je comprend bien elle doit corespondre à l'onglet de mon test 1

 

[cbea]

Re : que c'est compliqué

Bonjour alf049 et jeanpierre,

Voici une solution à partir du bouton "Extraire".
J'espère que cette solution te conviendra.

 

[alf049]

Re : que c'est compliqué

Merci pour cette aide.
cela devient top compliqué pour moi ...😱😱

partons en week end, laissons décanter et merci à la communauté.😉