Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pour recherche est ce possible ?

Créer une discussion

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 !

S'inscrire
B

breakers

XLDnaute Junior
Bonjour à tous ! ( pour les matinaux 🙂 )


Je cherche une solution pour extraire de façon automatique des données de 2 listes et ensuite les redistribuer sur différents onglets.

exemple :

données dans onglet A et B

je recherche les valeurs d'une colonne (exemple colonne E) qui contiennent 010000 et 010010 dans la colonne H et ainsi de suite jusqu'à 370000 et 370010 et ce dans les 2 onglets.

ceci je pense est déjà une première étape.

dans la 2ieme étape je souhaite que les données collectées soit mise à la suite l'une de l'autre en fonction de la recherche dans l'onglet correspondant, c'est à dire pour les données trouvé avec le critère 010000 et 010010 qu'elles soient copiés dans l'onglet 01 puis 02 pour critère 020000 et 020010 et ainsi de suite....(là je dit chapeau si cela est possible....)😕

cela devient dramatiquement compliqué.... j'ai bien tenté avec une recherchev, mais cela devient vite le foutoir et je n'arrive pas à associé la recherche dans les 2 onglets....

si l'un d'entre vous à un code ou un début de code avec si possible les explications du code ligne par ligne, cela m'aiderait grandement pour le comprendre et surtout pour le réutiliser intelligemment ( oui bon j'essaierais....)😛

un grand merci d'avance à la ou les personnes de ce forum qui se pencheront sur mon cas.

PS : je ne peux pas fournir d'exemple car cela reviendrais à mettre un fichier avec 1,2,3 etc dans colonne E et les critères dans l'autre colonne car le reste est trop explicite donc malheureusement confidentiel.

merci encore
 
Trier par date Trier par votes
Re : macro pour recherche est ce possible ?


Bonjour

Et donc c'est au demandeur de prendre la peine de construire un exemple bidon ?
Relis ton texte, toi même tu t'y perds dans ta question. Un fichier exemple, même bidon, qui reproduise exactement la STRUCTURE de tes données (et leur complexité éventuelle... simplifier c'est bien mais pas trop quand même) et surtout un fichier qui indique CE QUE TU SOUHAITES obtenir comme résultat c'est très utile.
 
Vote positif 0 Vote négatif
Re : macro pour recherche est ce possible ?

dsl pour le retard mais le fichier est trop volumineux.....

meme en ne mettant que les liste et 1 onglet d'exemple je ne peux pas descendre en dessous de 2mega compacté.
 
Vote positif 0 Vote négatif
Re : macro pour recherche est ce possible ?

voila il ne reste plus grand chose....

cela te suffit il ?

sinon j'essaierais de fournir en fonction car la taille bloque si je met plus encore dsl

edit : j'ai mis avec des données exploitables
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour recherche est ce possible ?

Bonjour à tous !

je viens de finir le code pour la recherche, par contre je pense que l'on peut "optimiser" ce code, mais je ne sais pas comment faire.

je vous joint un extrait de ce code, qui se répéte x fois pour la recherche suivant mes critères.

si l'un d'entre vous sait comment le raccourcir, je suis preneur, mais surtout qu'il m'explique ce qu'il fait et pourquoi afin que je puisse en apprendre un peu plus et le reproduire plus tard 🙂

Code: 
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("AL090").Select
    ActiveSheet.Range("$A$1:$M$2072").AutoFilter Field:=9, Criteria1:=Array( _
        "030000", "030010", "050000", "050010"), Operator:=xlFilterValues
    Worksheets("AL090").Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Destination:=Worksheets("TG03").Range("a20").End(xlUp).Offset(1, 0)
    Sheets("AL010").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveSheet.Range("$A$1:$AK$12122").AutoFilter Field:=18, Criteria1:=Array( _
        "030000", "030010", "050000", "050010"), Operator:=xlFilterValues
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Worksheets("AL010").Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Destination:=Worksheets("TG03").Range("a20").End(xlUp).Offset(1, 0)
    Sheets("Résultat").Select
    Range("A1:A3").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("AL090").Select
    ActiveSheet.Range("$A$1:$M$2072").AutoFilter Field:=9, Criteria1:=Array( _
        "070000", "070010", "090000", "090010"), Operator:=xlFilterValues
    Worksheets("AL090").Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Destination:=Worksheets("TG07").Range("a20").End(xlUp).Offset(1, 0)
    Sheets("AL010").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveSheet.Range("$A$1:$AK$12122").AutoFilter Field:=18, Criteria1:=Array( _
        "070000", "070010", "090000", "090010"), Operator:=xlFilterValues
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Worksheets("AL010").Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Destination:=Worksheets("TG07").Range("a20").End(xlUp).Offset(1, 0)
    Sheets("Résultat").Select
    Range("A1:A3").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("AL090").Select
    ActiveSheet.Range("$A$1:$M$2072").AutoFilter Field:=9, Criteria1:=Array( _
        "110000", "110010", "130000", "130010"), Operator:=xlFilterValues
    Worksheets("AL090").Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Destination:=Worksheets("TG11").Range("a20").End(xlUp).Offset(1, 0)
    Sheets("AL010").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveSheet.Range("$A$1:$AK$12122").AutoFilter Field:=18, Criteria1:=Array( _
        "110000", "110010", "130000", "130010"), Operator:=xlFilterValues
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Worksheets("AL010").Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Destination:=Worksheets("TG11").Range("a20").End(xlUp).Offset(1, 0)
    Sheets("Résultat").Select
    Range("A1:A3").Select

merci d'avance pour votre aide
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

Discussions similaires

R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
1 K
richard31
R
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
F
  • Question Question
XL 2016 Recherche multi classeurs
Réponses
5
Affichages
310
mromain
  • Question Question
XL 2016 rajouter une colonne en macro
Réponses
0
Affichages
205
richardlion
  • Question Question
XL 2016 Associer cellule ensemble
Réponses
4
Affichages
135
Erdis
  • Question Question
XL 2016 colonnes automatique
Réponses
0
Affichages
335
richardlion
S
  • Question Question
XL 2021 Récap automatique d'une feuille par mois
Réponses
11
Affichages
296
vgendron
M
  • Question Question
Power Pivot Formule REMOVEFILTERS
Réponses
1
Affichages
143
merinos-BernardEtang
G
  • Résolu(e)
Microsoft 365 Recherche avec 2 critères pour non vide et somme
Réponses
5
Affichages
211
gpion
G
L
  • Question Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
329
lilie17
L
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
546
p56
A
  • Question Question
Microsoft 365 recherche appel correspondant suivant
Réponses
5
Affichages
254
ALS35
A
  • Question Question
Microsoft 365 Formules plusieurs conditions
Réponses
4
Affichages
211
Bea78
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
279
agayet
A
  • Question Question
Microsoft 365 Dernière donnée
Réponses
5
Affichages
551
TooFatBoy
  • Résolu(e)
XL 2010 [Résolu] Modification macro
Réponses
8
Affichages
454
AtTheOne
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
403
AtTheOne
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
348
AtTheOne
S
  • Question Question
Microsoft 365 Tableaux Structurées : récupérer des données uniques pour consolider un bilan
Réponses
4
Affichages
341
vgendron
Y
  • Question Question
XL 2013 Classer et gérer les ex aequo
Réponses
1
Affichages
400
Yvan1
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…