Private Sub CommandButton2_Click()
c = InputBox("Enter le nom complet de l'animal :")
If c = "" Then
Exit Sub
End If
Selection.AutoFilter Field:=1, Criteria1:="*c*"
End Sub
c doit etre egal a ce que je tape dans la boite une astuce?
merci
--
MR NUL
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrice Henrio
L'écriture "*c*" renvoie toujours *c*, c n'est pas une variable mil ais une constante dans ce cas.
il faut écrire "*" & c & "*"
& est le symbole de concaténation. S'il ne marche pas, il faut trouver la fonction concaténer dans le langage de la macro.
"un nul" a écrit dans le message de news:
Private Sub CommandButton2_Click() c = InputBox("Enter le nom complet de l'animal :") If c = "" Then Exit Sub End If Selection.AutoFilter Field:=1, Criteria1:="*c*"
End Sub
c doit etre egal a ce que je tape dans la boite une astuce? merci -- MR NUL
L'écriture "*c*" renvoie toujours *c*, c n'est pas une variable mil ais une
constante dans ce cas.
il faut écrire "*" & c & "*"
& est le symbole de concaténation. S'il ne marche pas, il faut trouver la
fonction concaténer dans le langage de la macro.
"un nul" <unnul@discussions.microsoft.com> a écrit dans le message de news:
5AD04D5A-E3D8-4C44-99AE-E837133B3120@microsoft.com...
Private Sub CommandButton2_Click()
c = InputBox("Enter le nom complet de l'animal :")
If c = "" Then
Exit Sub
End If
Selection.AutoFilter Field:=1, Criteria1:="*c*"
End Sub
c doit etre egal a ce que je tape dans la boite une astuce?
merci
--
MR NUL
L'écriture "*c*" renvoie toujours *c*, c n'est pas une variable mil ais une constante dans ce cas.
il faut écrire "*" & c & "*"
& est le symbole de concaténation. S'il ne marche pas, il faut trouver la fonction concaténer dans le langage de la macro.
"un nul" a écrit dans le message de news:
Private Sub CommandButton2_Click() c = InputBox("Enter le nom complet de l'animal :") If c = "" Then Exit Sub End If Selection.AutoFilter Field:=1, Criteria1:="*c*"
End Sub
c doit etre egal a ce que je tape dans la boite une astuce? merci -- MR NUL
