Message valeur filtre automatique = ""
Bonjour,
étant débutant en vba je me permet de poser cette question:
Je desirerais créer une macro permettant de faire un filtre automatique sur une colonne.
Ensuite, je voudrais que lorsque la valeur du filtre automatique n'est pas presente dans la colonne, qu'un message d'information me dise: "pas de valeur"
j'ai essayé cette macro mais si j'execute celle ci il m'affiche une feuille vierge et pas de message
Un petit coup de main n'est pas de refus ?
merci d'avance
Sub Macro1()
Rows("1:1").Select
Selection.AutoFilter
If Selection.AutoFilter(Field:=1, Criteria1:="yaya") = "" Then
MsgBox ("pas de valeur")
Exit Sub
Else: MsgBox ("il y a une valeur")
Selection.AutoFilter Field:=2, Criteria1:="r"
End If
End Sub
Salut le forum
Pour ne pas devoir se taper une feuille de démonstration, pense à joindre la tienne.
Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.
Mytå