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

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
QUand j'ai juste les dates la macro tourne vraiment bien, cepandant quand j'ajoute le premier prénom, c'est la débandade...
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