J'ai une macro ou je fais divers filtres et apres je colle le resultats du
filtre ailleurs, jusque là, pas de soucis en revanche lorsque je veux
filtrer quelque chose qui n'existe pas, alors la macro bloc, comment puis je
lui dire que si il y a pas le mot chercher alors qu'il continu sa macro sans
m'embeter.
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
Daniel.C
Bonjour. Tu peux peut-être utiliser le filtre élaboré; sinon, une méthode pour vérifier que tu n'as rien filtré :
Dim Plage As Range Set Plage = [_filterdatabase].SpecialCells(xlCellTypeVisible) If Plage.Rows.Count = 1 Then MsgBox "rien dans le filtre"
Cordialement. Daniel
Bonjour,
J'ai une macro ou je fais divers filtres et apres je colle le resultats du filtre ailleurs, jusque là, pas de soucis en revanche lorsque je veux filtrer quelque chose qui n'existe pas, alors la macro bloc, comment puis je lui dire que si il y a pas le mot chercher alors qu'il continu sa macro sans m'embeter.
Merci
Manu
Bonjour.
Tu peux peut-être utiliser le filtre élaboré; sinon, une méthode pour
vérifier que tu n'as rien filtré :
Dim Plage As Range
Set Plage = [_filterdatabase].SpecialCells(xlCellTypeVisible)
If Plage.Rows.Count = 1 Then MsgBox "rien dans le filtre"
Cordialement.
Daniel
Bonjour,
J'ai une macro ou je fais divers filtres et apres je colle le resultats du
filtre ailleurs, jusque là, pas de soucis en revanche lorsque je veux filtrer
quelque chose qui n'existe pas, alors la macro bloc, comment puis je lui dire
que si il y a pas le mot chercher alors qu'il continu sa macro sans
m'embeter.
Bonjour. Tu peux peut-être utiliser le filtre élaboré; sinon, une méthode pour vérifier que tu n'as rien filtré :
Dim Plage As Range Set Plage = [_filterdatabase].SpecialCells(xlCellTypeVisible) If Plage.Rows.Count = 1 Then MsgBox "rien dans le filtre"
Cordialement. Daniel
Bonjour,
J'ai une macro ou je fais divers filtres et apres je colle le resultats du filtre ailleurs, jusque là, pas de soucis en revanche lorsque je veux filtrer quelque chose qui n'existe pas, alors la macro bloc, comment puis je lui dire que si il y a pas le mot chercher alors qu'il continu sa macro sans m'embeter.
if Application.Count(Range("_FilterDatabase").SpecialCells(xlCellTypeVisible))= 1 then Msgbox "Pas d'enregistrements répondant au critère" end if
OU
if Application.Subtotal(3, Range("A:A")) - 1 = 0 then Msgbox "Pas d'enregistrements répondant au critère" end if
"Manu" a écrit dans le message de groupe de discussion : # Bonjour,
J'ai une macro ou je fais divers filtres et apres je colle le resultats du filtre ailleurs, jusque là, pas de soucis en revanche lorsque je veux filtrer quelque chose qui n'existe pas, alors la macro bloc, comment puis je lui dire que si il y a pas le mot chercher alors qu'il continu sa macro sans m'embeter.
Merci
Manu
2 autres façons d'obtenir le même résultat :
if Application.Count(Range("_FilterDatabase").SpecialCells(xlCellTypeVisible))= 1 then
Msgbox "Pas d'enregistrements répondant au critère"
end if
OU
if Application.Subtotal(3, Range("A:A")) - 1 = 0 then
Msgbox "Pas d'enregistrements répondant au critère"
end if
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de discussion :
#4BRBKjdJHA.1188@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai une macro ou je fais divers filtres et apres je colle le resultats du
filtre ailleurs, jusque là, pas de soucis en revanche lorsque je veux
filtrer quelque chose qui n'existe pas, alors la macro bloc, comment puis je
lui dire que si il y a pas le mot chercher alors qu'il continu sa macro sans
m'embeter.
if Application.Count(Range("_FilterDatabase").SpecialCells(xlCellTypeVisible))= 1 then Msgbox "Pas d'enregistrements répondant au critère" end if
OU
if Application.Subtotal(3, Range("A:A")) - 1 = 0 then Msgbox "Pas d'enregistrements répondant au critère" end if
"Manu" a écrit dans le message de groupe de discussion : # Bonjour,
J'ai une macro ou je fais divers filtres et apres je colle le resultats du filtre ailleurs, jusque là, pas de soucis en revanche lorsque je veux filtrer quelque chose qui n'existe pas, alors la macro bloc, comment puis je lui dire que si il y a pas le mot chercher alors qu'il continu sa macro sans m'embeter.