OVH Cloud OVH Cloud

Résultat filtres

2 réponses
Avatar
Xavier
Bonjour,

J'ai créé un filtre par VBA, comment faire pour :

Si Filtre sur ma sheet ne renvoie rien = Macro1
Si Filtre sur ma sheet renvoie des données = Macro2

Merci pour votre aide.
Xavier

2 réponses

Avatar
JB
Bonsoir,

If Application.Subtotal(3, Range("A2:A1000")) > 0 Then
...
Else
...
End If

Cordialement JB



Bonjour,

J'ai créé un filtre par VBA, comment faire pour :

Si Filtre sur ma sheet ne renvoie rien = Macro1
Si Filtre sur ma sheet renvoie des données = Macro2

Merci pour votre aide.
Xavier


Avatar
Xavier
ça marche. merci beaucoup


Bonsoir,

If Application.Subtotal(3, Range("A2:A1000")) > 0 Then
...
Else
...
End If

Cordialement JB



Bonjour,

J'ai créé un filtre par VBA, comment faire pour :

Si Filtre sur ma sheet ne renvoie rien = Macro1
Si Filtre sur ma sheet renvoie des données = Macro2

Merci pour votre aide.
Xavier