Discussion :

[denatelo9]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

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.

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

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

[denatelo9]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

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.

[patricktoulon]

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