Rechechev avec les mêmes prénoms en VBA Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
denatelo9
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 20 avril 2018
Version d'Excel : 2010

Message par denatelo9 » 11 août 2019, 22:47

salutation j'ai une base de donnée avec plusieurs élevés avec même nom
ce que je veut quand je tape juste une ou quelques lettre du nom il m'affiche tous les donner qui se trouve dans la base de donnée du nom rechercher ?
voila le fichier pour mieux me comprendre
amicalement
teste 1.xlsx
(551.61 Kio) Téléchargé 15 fois
Avatar du membre
muratime
Membre fidèle
Membre fidèle
Messages : 300
Appréciations reçues : 3
Inscrit le : 16 janvier 2008
Version d'Excel : 2007 FR

Message par muratime » 13 août 2019, 22:31

Salut, essai ceci cela devrait te convenir.
test-version1.xlsm
(485.4 Kio) Téléchargé 6 fois
1 membre du forum aime ce message.
B
Boisgontierjacques
Membre fidèle
Membre fidèle
Messages : 268
Appréciations reçues : 64
Inscrit le : 5 octobre 2018
Version d'Excel : 2016

Message par Boisgontierjacques » 13 août 2019, 23:13

Bonsoir,

cf PJ
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" Then
      Sheets("base de donnes").Range("A3:X10000").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=[A2:A3], CopyToRange:=[A8:X8]
  End If
End Sub
Boisgontier
teste 1-1.xlsm
(671.09 Kio) Téléchargé 10 fois
1 membre du forum aime ce message.
d
denatelo9
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 20 avril 2018
Version d'Excel : 2010

Message par denatelo9 » 13 août 2019, 23:46

Boisgontierjacques ça marche c'est ce que je veut mais il y a un souci ??
quand j'efface le mon que je cherche les noms afficher reste tjr ??
Modifié en dernier par denatelo9 le 13 août 2019, 23:49, modifié 1 fois.
Avatar du membre
muratime
Membre fidèle
Membre fidèle
Messages : 300
Appréciations reçues : 3
Inscrit le : 16 janvier 2008
Version d'Excel : 2007 FR

Message par muratime » 13 août 2019, 23:48

tu parles de quel fichier ?
d
denatelo9
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 20 avril 2018
Version d'Excel : 2010

Message par denatelo9 » 13 août 2019, 23:52

teste 1-1.xlsm celui de Boisgontierjacques
Avatar du membre
muratime
Membre fidèle
Membre fidèle
Messages : 300
Appréciations reçues : 3
Inscrit le : 16 janvier 2008
Version d'Excel : 2007 FR

Message par muratime » 13 août 2019, 23:55

denatelo9 a écrit :
11 août 2019, 22:47
ce que je veut quand je tape juste une ou quelques lettre du nom il m'affiche tous les donner qui se trouve dans la base de donnée du nom rechercher ?
Et ça t'en fait quoi ? :P
SI tu tape une lettre ou deux etc il t'affiche toutes les entrées au fur et a mesure.
d
denatelo9
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 20 avril 2018
Version d'Excel : 2010

Message par denatelo9 » 14 août 2019, 00:00

j'ai eu ce code par Boisgontierjacques


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
Sheets("base de donnes").Range("A3:X10000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=[A2:A3], CopyToRange:=[A8:X8]
End If
End Sub


ça marche tres bien mais le souci même si la cellule A3 et vide après la cherche tous les nom reste toujours afficher ?
je veut quand j'efface les lettres saisi dans la cellule A3 tous redeviens comme avant vide
amicalement :) :) :) :)
B
Boisgontierjacques
Membre fidèle
Membre fidèle
Messages : 268
Appréciations reçues : 64
Inscrit le : 5 octobre 2018
Version d'Excel : 2016

Message par Boisgontierjacques » 14 août 2019, 00:14

cf PJ

Appyer sur la touche Sup pour effacer

Boisgontier
teste 1-1.xlsm
(673.59 Kio) Téléchargé 9 fois
d
denatelo9
Jeune membre
Jeune membre
Messages : 37
Inscrit le : 20 avril 2018
Version d'Excel : 2010

Message par denatelo9 » 14 août 2019, 00:21

un grand merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message