je n'arrive plus à rien avec ce code VBA

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$5" Then Application.EnableEvents = False If Target = "" Then Target.Value = "zzzz" Target.Value = Target.Value & "*" Application.EnableEvents = True Sheets("Base").Range("A1:M10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A4:A5"), CopyToRange:=Range("A7:M7"), Unique:=False End If End Sub

---

j’ai 1400 élèves quand je fais l’essai ça ne marche pas
J’ai modifié le tableau
Et j'aimerais si c'est possible ne pas avoir zzzz* affiché pour faire simple
je suis vraiment nul quelqu'un a-t-il une idée pour la suite ça donne rien
amicalement

Citation:

---

Envoyé par denatelo9

j’ai 1400 élèves quand je fais l’essai ça ne marche pas

---

"ça ne marche pas", c'est un peu léger comme explication d'un dysfonctionnement. :?

Citation:

---

Et j'aimerais si c'est possible ne pas avoir zzzz* affiché pour faire simple

---

Dans ce cas, supprime la ligne If Target = "" Then Target.Value = "zzzz" qui génère ce "zzzz".
Sans plus d'explications, je ne vois pas d'autre conseil à te donner.

Citation:

---

quelqu'un a-t-il une idée pour la suite ça donne rien

---

Elle est supposée faire quoi "la suite" ?

vous avez tout à fait le droit de vous méfier du ficher macro mais voila j'ai tout enlevé
le code

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$5" Then Application.EnableEvents = False If Target = "" Then Target.Value = "zzzz" Target.Value = Target.Value & "*" Application.EnableEvents = True Sheets("Base").Range("A1:M10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A4:A5"), CopyToRange:=Range("A7:M7"), Unique:=False End If End Sub

---

mais quand j’applique rien ne marche ce qui veut dire dans la recherche des Nom rien ne s’affiche rien du tout et quand je supprime

Code:

---

1 2	If Target = "" Then Target.Value = "zzzz" Target.Value = Target.Value & "*"

---

il m'affiche toute ma base de données ?
voila le fichier juste pour mieux m'aider et me comprendre sans macro
amicalement

Citation:

---

Envoyé par denatelo9

voila le fichier juste pour mieux m'aider et me comprendre sans macro

---

Beaucoup d'utilisateurs n'ouvrent pas les fichiers joints, avec ou sans macro.

Citation:

---

mais quand j’applique rien ne marche ce qui veut dire dans la recherche des Nom rien ne s’affiche rien du tt et quand je supprime If Target = "" Then Target.Value = "zzzz"
Target.Value = Target.Value & "*" il m'affiche tout ma base de donner ?

---

Tu dis ce que fait ta macro mais tu ne dis toujours pas ce que tu voudrais qu'elle fasse.

bonjour
perso je me demande ce que vient faire avancedfilter là-dedans sachant que tes seules références sont les les cellules A4 et A5 dans recherche et que les noms prénoms sont dans la colonne "A" dans base
un simple autofilter sur la colonne A et copy destination sheets("recherche")cells(rows.count,1).end(xlup).offset(1).

et entre nous les colonnes à l'envers c'est pas fait pour aider