Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" <vdartois@francelot.com> a écrit dans le message de news:
eSUEQvn7EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" <vdartois@francelot.com> a écrit dans le message de news:
eSUEQvn7EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite effectuer
d'autres tâches.
Merci de votre aide.
Euh, si ca existe, c'est simplement que SubTotal n'apparaissait pas dans
l'aide en effetuant une recherche direct
Peux-tu m'expliquer quelques éléments ?
Comptage = Application.Subtotal(3, [A3:A15000])
le 3 c'est quoi exactement sont utilité, j'ai vu dans l'aide GroupBy mais
je
ne comprends pas.
le reste c'est la plage, moi étant donné que j'ai 1 entête j'ai mis
B2:B65535 ( ma colonne B devant avoir toujours du texte car en provenance
d'un formulaire)
A = Application.Subtotal(3, .Range("A:A")) - 1
La je comprend pas ?? on a le Comptage alors à quoi ceci sert-il ?
Merci de ton aide, je n'aurais jamais trouvé tout seul !
"Didier" a écrit dans le message de news:Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande
s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite
effectuer
d'autres tâches.
Merci de votre aide.
Euh, si ca existe, c'est simplement que SubTotal n'apparaissait pas dans
l'aide en effetuant une recherche direct
Peux-tu m'expliquer quelques éléments ?
Comptage = Application.Subtotal(3, [A3:A15000])
le 3 c'est quoi exactement sont utilité, j'ai vu dans l'aide GroupBy mais
je
ne comprends pas.
le reste c'est la plage, moi étant donné que j'ai 1 entête j'ai mis
B2:B65535 ( ma colonne B devant avoir toujours du texte car en provenance
d'un formulaire)
A = Application.Subtotal(3, .Range("A:A")) - 1
La je comprend pas ?? on a le Comptage alors à quoi ceci sert-il ?
Merci de ton aide, je n'aurais jamais trouvé tout seul !
"Didier" <didi@wanadoo.fr> a écrit dans le message de news:
OxpyF2n7EHA.1204@TK2MSFTNGP10.phx.gbl...
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" <vdartois@francelot.com> a écrit dans le message de news:
eSUEQvn7EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande
s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite
effectuer
d'autres tâches.
Merci de votre aide.
Euh, si ca existe, c'est simplement que SubTotal n'apparaissait pas dans
l'aide en effetuant une recherche direct
Peux-tu m'expliquer quelques éléments ?
Comptage = Application.Subtotal(3, [A3:A15000])
le 3 c'est quoi exactement sont utilité, j'ai vu dans l'aide GroupBy mais
je
ne comprends pas.
le reste c'est la plage, moi étant donné que j'ai 1 entête j'ai mis
B2:B65535 ( ma colonne B devant avoir toujours du texte car en provenance
d'un formulaire)
A = Application.Subtotal(3, .Range("A:A")) - 1
La je comprend pas ?? on a le Comptage alors à quoi ceci sert-il ?
Merci de ton aide, je n'aurais jamais trouvé tout seul !
"Didier" a écrit dans le message de news:Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande
s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite
effectuer
d'autres tâches.
Merci de votre aide.
Aie j'ai oublié de préciser, c'est sous Excel97, apparement Subtotal
n'existe pas...
"Didier" a écrit dans le message de news:Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande
s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite
effectuer
d'autres tâches.
Merci de votre aide.
Aie j'ai oublié de préciser, c'est sous Excel97, apparement Subtotal
n'existe pas...
"Didier" <didi@wanadoo.fr> a écrit dans le message de news:
OxpyF2n7EHA.1204@TK2MSFTNGP10.phx.gbl...
Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",
vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" <vdartois@francelot.com> a écrit dans le message de news:
eSUEQvn7EHA.2156@TK2MSFTNGP10.phx.gbl...
Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande
s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite
effectuer
d'autres tâches.
Merci de votre aide.
Aie j'ai oublié de préciser, c'est sous Excel97, apparement Subtotal
n'existe pas...
"Didier" a écrit dans le message de news:Salut mets cette procédure après le filtre.
Didier
Sub NombreEnregistrements()
Dim A As Long
Comptage = Application.Subtotal(3, [A3:A15000])
With ActiveSheet
A = Application.Subtotal(3, .Range("A:A")) - 1
If A = 0 Then
MsgBox "Aucun enregistrement ne correspond au critère retenu.",
vbInformation + vbOKOnly, "Aucun dossier"
AfficherTout
End If
If A = 1 Then
MsgBox "" & Comptage & " dossier correspond au critère
retenu.",vbInformation + vbOKOnly, "1 dossier"
End If
If A > 1 Then
MsgBox "Il y a " & Comptage & " dossiers qui correspondent au
critère retenu.", vbInformation + vbOKOnly, "Nombre de dossiers"
End If
End With
End Sub
"dvincent" a écrit dans le message de news:Bonjour,
Je dois faire des tests dans une feuille sur 3 critères :
- TelephoneFixe
- ValidationProposition ( Oui/Non/Inconnu)
- NumProposition
Au lieux de parcourir ligne par ligne chaque cellule, je me demande
s'il
ne
serait pas possible de passer par des filtres.
En fait je dois savoir si :
pour un numero de telephone, ValidationProposition à Oui,
NumdeProposition non renseigné
je n'ai aucun cas existant
Je sais faire en VBA la "requete" pour le filtre, mais comme je veux
recuperer dans une variable le nombre de réponses pour ensuite
effectuer
d'autres tâches.
Merci de votre aide.