Nombre de lignes après filtre

Le
domivax
Bonjour à tous,

Comment dire sous VBA après avoir effectué un filtre :

Sub Filtre()

If nombre de lignes filtrées = 0 Then
macro 1
ElseIf nombre de lignes filtrées = 1 Then
macro 2
ElseIf nombre de lignes filtrées > 1 Then
macro 3
End If

End Sub

Merci pour votre aide.
Xavier
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4480791
Bonjour,

Select Case Application.Subtotal(3, [A2:A10000])
Case 0
MsgBox "0"
Case 1
MsgBox "1"
Case Is > 1
MsgBox ">1"
End Select

Cordialement JB


On 1 mai, 15:26, wrote:
Bonjour à tous,

Comment dire sous VBA après avoir effectué un filtre :

Sub Filtre()

If nombre de lignes filtrées = 0 Then
macro 1
ElseIf nombre de lignes filtrées = 1 Then
macro 2
ElseIf nombre de lignes filtrées > 1 Then
macro 3
End If

End Sub

Merci pour votre aide.
Xavier


Jacky
Le #4480761
Bonjour,

Ceci peut-être
'----------
Sub jj()
Dim x As Long, y As Long
x = [SUBTOTAL(3,A:A)]
y = Application.CountA([A:A])
If x - y = 0 Then
MsgBox "macro 1"
Exit Sub
End If
If x - 1 = 1 Then MsgBox "macro 2"
If x - 1 > 1 Then MsgBox "macro 3"
End Sub
'------------
--
Salutations
JJ




Bonjour à tous,

Comment dire sous VBA après avoir effectué un filtre :

Sub Filtre()

If nombre de lignes filtrées = 0 Then
macro 1
ElseIf nombre de lignes filtrées = 1 Then
macro 2
ElseIf nombre de lignes filtrées > 1 Then
macro 3
End If

End Sub

Merci pour votre aide.
Xavier
Publicité
Poster une réponse
Anonyme