OVH Cloud OVH Cloud

filter on

1 réponse
Avatar
pinochio
Bonjour

N'etant pas tres fort, pourriez vous me donner
la procédure

1 toto=input pour entrer la variable?
2 faire jouer le filtre pour la sélection. par exemple selectionner les
villes par la variable toto.

merci

1 réponse

Avatar
Xavier HUE
Bonjour pinochio,

Dans l'évènement Sur clic d'un bouton pour activer un
filtre:

Private Sub Commande5_Click()
Dim strCritere As String

strCritere = InputBox("Entrez le Code d'une ville")

If strCritere <> "" Then
Me.Filter = "CodeVille = '" & strCritere & "'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub

Cordialement.