Bonjour,
J'ai un fichier excel qui contient 30 onglets.
Les premiers onglets sont des années de 2019 à 2000.
Les seconds sont des noms.
Chaque onglet est organisé de la même manière, première colonne numéro, seconde colonne ville et ainsi de suite jusqu'à la colonne Q.
J'ai demandé de l'aide pour un autre fichier excel pour une macro qui me permettrait de faire une recherche avec un bouton sur tous les onglets à la fois que j'ai adapaté comme j'ai pu ici
QUand j'ai juste les dates la macro tourne vraiment bien, cepandant quand j'ajoute le premier prénom, c'est la débandade...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub test1() Dim derlig As Long derlig = Sheets("Recherche").Range("A" & Rows.Count).End(xlUp).Row Sheets("Recherche").Range("A10:AA" & derlig).ClearContents Dim w As Worksheet Dim derlig2 As Long Dim L As Long L = 10 For Each w In ThisWorkbook.Worksheets If w.Name = "2019" Or w.Name = "2018" Or w.Name = "2017" Or w.Name = "2016" Or w.Name = "2015" Or w.Name = "2014" Or w.Name = "2013" _ Or w.Name = "2012" Or w.Name = "2011" Or w.Name = "2010" Or w.Name = "2009" Or w.Name = "2008" Or w.Name = "2007" Or w.Name = "2006" _ Or w.Name = "2005" Or w.Name = "2004" Or w.Name = "2000-2003" Or w.Name = "Prenom1" Or w.Name = "Prenom2" _ Then w.Range("A2:Q1200").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Recherche").Range("A2:Q3"), CopyToRange:=Sheets("Recherche").Range("A" & L), Unique:=False L = Sheets("Recherche").Range("A" & Rows.Count).End(xlUp).Row + 1 Next w Sheets("Recherche").Select End Sub
Je n'arrive pas à comprendre pourquoi...
J'ai fait un copier-coller sur toutes les feuilles des en-têtes (pour la recherche càd numéro, ville, etc), donc ca ne vient pas de là à priori.
J'ai l'impression que cela vient de la variable w.
Petit info, j'ai masqué les onglets années.
Voila, voilà, si quelqu'un sait m'aider ^^
Merci beaucoup par avance,
Bonne journée,
Bastien
Partager