Bonsoir
J'ai un long tableau 15000 lignes que je dois filtrer
Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
tableau est vide.
Merci beaucoup
Alpha
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
Denis Michon
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA% Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin d'annoncer que le résultat de la recherche est infructueux, en clair si le tableau est vide. Merci beaucoup Alpha
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'-------------------------
Sub NombreEnregistrements()
Dim A As Long
With Worksheets("FEuil1")
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu."
End If
End With
End Sub
'-------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:OIyA%23tTsDHA.2084@TK2MSFTNGP12.phx.gbl...
Bonsoir
J'ai un long tableau 15000 lignes que je dois filtrer
Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
tableau est vide.
Merci beaucoup
Alpha
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA% Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin d'annoncer que le résultat de la recherche est infructueux, en clair si le tableau est vide. Merci beaucoup Alpha
Alpha
Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le tableau est vide. Merci beaucoup Alpha
Simply perfect Denis
Une autre question please ?
Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner
la possibilité à l'utilisateur de saisir des noms incomplets, et que le
filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double
x = Sheets("feuil1").TextBox1
Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup
Alpha
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
khQvb.60064$Ng3.45397@charlie.risq.qc.ca...
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre
automatique
'-------------------------
Sub NombreEnregistrements()
Dim A As Long
With Worksheets("FEuil1")
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu."
End If
End With
End Sub
'-------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:OIyA%23tTsDHA.2084@TK2MSFTNGP12.phx.gbl...
Bonsoir
J'ai un long tableau 15000 lignes que je dois filtrer
Je désire que si le résultat du filtre est négatif un msgbox s'affiche
afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
tableau est vide.
Merci beaucoup
Alpha
Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le tableau est vide. Merci beaucoup Alpha
Alpha
Encore une ereur de ma part En fait il s'agit de :
Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
tableau est vide. Merci beaucoup Alpha
Encore une ereur de ma part
En fait il s'agit de :
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:
ezmJD$TsDHA.560@TK2MSFTNGP11.phx.gbl...
Simply perfect Denis
Une autre question please ?
Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner
la possibilité à l'utilisateur de saisir des noms incomplets, et que le
filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double
x = Sheets("feuil1").TextBox1
Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup
Alpha
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
khQvb.60064$Ng3.45397@charlie.risq.qc.ca...
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre
automatique
'-------------------------
Sub NombreEnregistrements()
Dim A As Long
With Worksheets("FEuil1")
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu."
End If
End With
End Sub
'-------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:OIyA%23tTsDHA.2084@TK2MSFTNGP12.phx.gbl...
Bonsoir
J'ai un long tableau 15000 lignes que je dois filtrer
Je désire que si le résultat du filtre est négatif un msgbox s'affiche
afin
d'annoncer que le résultat de la recherche est infructueux, en clair si
le
Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
tableau est vide. Merci beaucoup Alpha
Denis Michon
Bonjour Alpha,
*************A*************** Si tu entres dans ton textbox ab, seulement les éléments de la liste contenant la chaîne ab seront retenus peu importe où la chaîne sera situé dans l'expression.
"Alpha" a écrit dans le message de news:ezmJD$ Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le tableau est vide. Merci beaucoup Alpha
Bonjour Alpha,
*************A***************
Si tu entres dans ton textbox ab, seulement les éléments de la liste
contenant la chaîne ab seront retenus peu importe où la chaîne sera situé dans l'expression.
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:ezmJD$TsDHA.560@TK2MSFTNGP11.phx.gbl...
Simply perfect Denis
Une autre question please ?
Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner
la possibilité à l'utilisateur de saisir des noms incomplets, et que le
filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double
x = Sheets("feuil1").TextBox1
Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup
Alpha
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
khQvb.60064$Ng3.45397@charlie.risq.qc.ca...
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre
automatique
'-------------------------
Sub NombreEnregistrements()
Dim A As Long
With Worksheets("FEuil1")
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu."
End If
End With
End Sub
'-------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:OIyA%23tTsDHA.2084@TK2MSFTNGP12.phx.gbl...
Bonsoir
J'ai un long tableau 15000 lignes que je dois filtrer
Je désire que si le résultat du filtre est négatif un msgbox s'affiche
afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
tableau est vide.
Merci beaucoup
Alpha
*************A*************** Si tu entres dans ton textbox ab, seulement les éléments de la liste contenant la chaîne ab seront retenus peu importe où la chaîne sera situé dans l'expression.
"Alpha" a écrit dans le message de news:ezmJD$ Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le tableau est vide. Merci beaucoup Alpha
Alpha
merci beaucoup Denis Bravo. Alpha
"Denis Michon" a écrit dans le message de news: qkRvb.60067$
Bonjour Alpha,
*************A*************** Si tu entres dans ton textbox ab, seulement les éléments de la liste contenant la chaîne ab seront retenus peu importe où la chaîne sera situé dans l'expression.
Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
tableau est vide. Merci beaucoup Alpha
merci beaucoup Denis
Bravo.
Alpha
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
qkRvb.60067$Ng3.12346@charlie.risq.qc.ca...
Bonjour Alpha,
*************A***************
Si tu entres dans ton textbox ab, seulement les éléments de la liste
contenant la chaîne ab seront retenus peu importe où la chaîne sera situé
dans l'expression.
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:ezmJD$TsDHA.560@TK2MSFTNGP11.phx.gbl...
Simply perfect Denis
Une autre question please ?
Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner
la possibilité à l'utilisateur de saisir des noms incomplets, et que le
filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double
x = Sheets("feuil1").TextBox1
Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup
Alpha
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
khQvb.60064$Ng3.45397@charlie.risq.qc.ca...
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre
automatique
'-------------------------
Sub NombreEnregistrements()
Dim A As Long
With Worksheets("FEuil1")
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu."
End If
End With
End Sub
'-------------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:OIyA%23tTsDHA.2084@TK2MSFTNGP12.phx.gbl...
Bonsoir
J'ai un long tableau 15000 lignes que je dois filtrer
Je désire que si le résultat du filtre est négatif un msgbox s'affiche
afin
d'annoncer que le résultat de la recherche est infructueux, en clair si
le
"Denis Michon" a écrit dans le message de news: qkRvb.60067$
Bonjour Alpha,
*************A*************** Si tu entres dans ton textbox ab, seulement les éléments de la liste contenant la chaîne ab seront retenus peu importe où la chaîne sera situé dans l'expression.
Simply perfect Denis Une autre question please ? Dans mon filtre, il s'agit de filtrer des noms, je souhaite pouvoir donner la possibilité à l'utilisateur de saisir des noms incomplets, et que le filtre ajoute le reste comme =NB.SI(plg;"*to*") me donnera toto total etc.
Dim x As Double x = Sheets("feuil1").TextBox1 Selection.AutoFilter Field:=1, Criteria1:=">=" & x, Operator:=xlAnd
Merci beaucoup Alpha
"Denis Michon" a écrit dans le message de news: khQvb.60064$
Bonjour Alpha,
Nom de la feuille à adapter
A représente le nombre d'enregistrements trouvés lors du filtre automatique
'------------------------- Sub NombreEnregistrements()
Dim A As Long With Worksheets("FEuil1") A = Application.Subtotal(3, .Range("A:A")) - 1 If A = 0 Then MsgBox "Aucun enregistrement ne correspond au critère retenu." End If End With
End Sub '-------------------------
Salutations!
"Alpha" a écrit dans le message de news:OIyA%
Bonsoir J'ai un long tableau 15000 lignes que je dois filtrer Je désire que si le résultat du filtre est négatif un msgbox s'affiche afin
d'annoncer que le résultat de la recherche est infructueux, en clair si le
