OVH Cloud OVH Cloud

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
je recherche le moyen de faire filtrer une base de donnee par cette macro
probleme : la letttre c est pris comme critère de filtration et non le mot de
la boite.
petite dificulte suplementaire le nom de l'animal ne doit pas forcement etre
complet d'ou les* pour la condition "contient" d'un filtre
un coup de main please
--
MR NUL

3 réponses

Avatar
Pounet95
Bonjour,

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

devrait le faire
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"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
je recherche le moyen de faire filtrer une base de donnee par cette macro
probleme : la letttre c est pris comme critère de filtration et non le mot
de
la boite.
petite dificulte suplementaire le nom de l'animal ne doit pas forcement
etre
complet d'ou les* pour la condition "contient" d'un filtre
un coup de main please
--
MR NUL


Avatar
un nul
merci ca faisais un petit moment que je bloquais et oui je debute
merci encore
--
MR NUL



Bonjour,

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

devrait le faire
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"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
je recherche le moyen de faire filtrer une base de donnee par cette macro
probleme : la letttre c est pris comme critère de filtration et non le mot
de
la boite.
petite dificulte suplementaire le nom de l'animal ne doit pas forcement
etre
complet d'ou les* pour la condition "contient" d'un filtre
un coup de main please
--
MR NUL






Avatar
Pounet95
Re,
Il n'y a pas de quoi. On a tous commencé un jour.
Et avec un forum tel celui-ci, on ne peut que progresser, en consultant
les réponses des pros et des moins pros avec en prime de la bonne humeur.

Merci du merci.
Bonne journée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"un nul" a écrit dans le message de news:

merci ca faisais un petit moment que je bloquais et oui je debute
merci encore
--
MR NUL



Bonjour,

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

devrait le faire
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"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
je recherche le moyen de faire filtrer une base de donnee par cette
macro
probleme : la letttre c est pris comme critère de filtration et non le
mot
de
la boite.
petite dificulte suplementaire le nom de l'animal ne doit pas forcement
etre
complet d'ou les* pour la condition "contient" d'un filtre
un coup de main please
--
MR NUL