Rechechev avec les mêmes prénoms en VBA

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

19teste-1.xlsx (551.61 Ko)

Salut, essai ceci cela devrait te convenir.

8test-version1.xlsm (485.40 Ko)

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

13teste-1-1.xlsm (671.09 Ko)

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 ??

tu parles de quel fichier ?

teste 1-1.xlsm celui de Boisgontierjacques

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 ?

SI tu tape une lettre ou deux etc il t'affiche toutes les entrées au fur et a mesure.

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

cf PJ

Appyer sur la touche Sup pour effacer

Boisgontier

11teste-1-1.xlsm (673.59 Ko)

un grand merci

Autre version avec ComboBox intuitif.

Boisgontier

9testintuitif.xlsm (599.32 Ko)
Rechercher des sujets similaires à "rechechev memes prenoms vba"