OVH Cloud OVH Cloud

UN PROBLEME DE MACRO

3 réponses
Avatar
un nul
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
Voici une petite macro qui devrai me servir pour filtrer une base de
donnée, mais je ne sais pas comment intégrer c comme criteria1 pour que le
filtre selectionne les case contenant le mot taper dans la boite
merci pour votre aide
--
MR NUL

3 réponses

Avatar
Jacques93
Bonjour,
un nul a écrit :
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
Voici une petite macro qui devrai me servir pour filtrer une base de
donnée, mais je ne sais pas comment intégrer c comme criteria1 pour que le
filtre selectionne les case contenant le mot taper dans la boite
merci pour votre aide



Selection.AutoFilter Field:=1, Criteria1:=c

Non ?

--
Cordialement,

Jacques.
Avatar
un nul
non car je souhaite que le tri ne ce fasse pas seulement avec le mot que je
tape mais aussi sur les cellule qui contiene une parti de ce mot d'ou les*
dans ma formule
merc
--
MR NUL


"Jacques93" a écrit :

Bonjour,
un nul a écrit :
> 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
> Voici une petite macro qui devrai me servir pour filtrer une base de
> donnée, mais je ne sais pas comment intégrer c comme criteria1 pour que le
> filtre selectionne les case contenant le mot taper dans la boite
> merci pour votre aide

Selection.AutoFilter Field:=1, Criteria1:=c

Non ?

--
Cordialement,

Jacques.



Avatar
Jacques93
Bonsoir,
un nul a écrit :
non car je souhaite que le tri ne ce fasse pas seulement avec le mot que je
tape mais aussi sur les cellule qui contiene une parti de ce mot d'ou les*
dans ma formule



Essaie :

Selection.AutoFilter Field:=1, Criteria1:="*" & c & "*"

PS: pour certains lecteurs de news (ThunderBird, MesNews, 40tude, entre
autres) le caractère * est une 'marque' de mise en forme, en l'occurence
en gras, et dans certains cas n'apparait pas (MesNews). Par ex :

*gras*
/italique/
_souligné_


--
Cordialement,

Jacques.