VBA RECHERCHE

Le
Richard
En premier lieu, je suis un novice
J'ai une base de donnée avec ± 1500 membres d'inscrit.
Est-ce possible de faire une recherche par nom de famille (feuille "Membres"
colonne c)
Le problème est le suivant. Je peux avoir 20 noms de famille identiques.
Comment puis-je faire pour effectuer un choix?
OU est-ce possible avec une liste déroulante de débuter ma recherche à
partir de la première lettre de nom de famille?
Merci pour toutes suggestions
--
Richard
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19112251
Bonjour.
Tu peux utiliser un filtre automatique :

Dim Nom As String
Nom = InputBox("Entrez le nom")
[A3].AutoFilter
ActiveSheet.Range("$C$1:$C$13").AutoFilter Field:=1, Criteria1:=Nom

Cordialement.
Daniel

En premier lieu, je suis un novice
J'ai une base de donnée avec ± 1500 membres d'inscrit.
Est-ce possible de faire une recherche par nom de famille (feuille "Membres"
colonne c)
Le problème est le suivant. Je peux avoir 20 noms de famille identiques.
Comment puis-je faire pour effectuer un choix?
OU est-ce possible avec une liste déroulante de débuter ma recherche à
partir de la première lettre de nom de famille?
Merci pour toutes suggestions


FFO
Le #19112231
Salut Richard
Soit la Feuille "Membres"
Ligne 1 colonne C/D/E les entêtes
Colonne C la liste (à partir de C2)
Cellule D2 le critère de recherche
Colonne E le résultat (à partir de E2)

Dans le VBA de la feuille "Membres" (ALT+F11) mets ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D2").Address Then
If Sheets("Membres").Range("E2") <> "" Then
Sheets("Membres").Range("E2", "E" &
Sheets("Membres").Range("E65535").End(xlUp).Row).Clear
End If
For Each c In Worksheets("Membres").Range("C2", "C" &
Sheets("Membres").Range("C65535").End(xlUp).Row)
If Ucase(c) Like Ucase(Target) & "*" Then
Sheets("Membres").Range("E65535").End(xlUp).Offset(1, 0) = c
End If
Next
End If
End Sub

En D2 saisie la ou les premières lettres
Clique sur n'importe quelle cellule ensuite
Regardes le résultat colonne E

Fais des essais et dis moi !!!!!
Publicité
Poster une réponse
Anonyme