Comment dire sous VBA apr=E8s avoir effectu=E9 un filtre :
Sub Filtre()
If nombre de lignes filtr=E9es =3D 0 Then
macro 1
ElseIf nombre de lignes filtr=E9es =3D 1 Then
macro 2
ElseIf nombre de lignes filtr=E9es > 1 Then
macro 3
End If
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
JB
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
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, domi...@hotmail.com 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
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
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
a écrit dans le message de news:
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
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
<domivax@hotmail.com> a écrit dans le message de news:
1178025988.241557.166910@p77g2000hsh.googlegroups.com...
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
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
a écrit dans le message de news:
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