OVH Cloud OVH Cloud

Autofilter : soucis

1 réponse
Avatar
dvincent
Bonjour,

J'ai un gros soucis, et je manque de temps car pour lundi une partie du
projet dois tourner ( déploiement ) et la ce matin en refaisant un test
général je ne comprend pas j'ai une erreur sur un filtre, j'ai fais des
recherches sur le net pour m'éclairer sur ce soucis mais sans succès.

Erreur 1004
La méthode AutoFilter de la classe Range a échoué

voici le code en question :

Sub FiltrePropositionEnAttenteAppel(TelFixeEntrepriseProposition,
FaireProposition, PnumProposition)
If CtrlSiDansBonneFeuille(NomFeuillePropositions) Then
Range("A1").Select
Selection.AutoFilter
col = GetNumCol("TelFixeEntrepriseProposition")
Selection.AutoFilter Field:=col,
Criteria1:=TelFixeEntrepriseProposition
Selection.AutoFilter Field:=GetNumCol("FaireProposition"),
Criteria1:=FaireProposition
Selection.AutoFilter Field:=GetNumCol("PnumProposition"),
Criteria1:=PnumProposition
End If
End Sub

Cela bloc sur Selection.AutoFilter Field:=col,
Criteria1:=TelFixeEntrepriseProposition

la valeur de col est la bonne, et TelFixeEntrepriseProposition contient bien
le "texte" à rechercher ( telephone qui n'existe pas dans la feuille en
question donc le filtre devrais fonctionner et me donner aucun résultat )

merci de votre aide.

1 réponse

Avatar
dvincent
J'ai trouvé complétement par hasard !

En fait mon supérieur m'a ajouté une colonne ( modification du projet pour
lundi ) et cette colonne étant complétement vide, lorsque je fais
Range("A1").Select et le autofilter celui-ci s'applique de A1 jusque la
colonne vide.

Ma colonne de telephone étant après la colonne vide ( colonne 12 ) quand je
faisait des tests avec macro je récupéré pour Field : 4

c'est le numéro de colonne après la colonne vide et comme la colonne 12
après la colonne vide ne contient rien, même pas d'entête je recevais
l'erreur.

J'espère avoir pus expliquer au mieux, je me suis dépécher de poster la
réponse pour pas que quelqu'un recherce inutilement et que si quelqu'un à le
même soucis ca lui sois util.

Bon j'y retourne, j'ai beaucoup de modification et développement pour Lundi.


"dvincent" a écrit dans le message de news:
edbtDhV#
Bonjour,

J'ai un gros soucis, et je manque de temps car pour lundi une partie du
projet dois tourner ( déploiement ) et la ce matin en refaisant un test
général je ne comprend pas j'ai une erreur sur un filtre, j'ai fais des
recherches sur le net pour m'éclairer sur ce soucis mais sans succès.

Erreur 1004
La méthode AutoFilter de la classe Range a échoué

voici le code en question :

Sub FiltrePropositionEnAttenteAppel(TelFixeEntrepriseProposition,
FaireProposition, PnumProposition)
If CtrlSiDansBonneFeuille(NomFeuillePropositions) Then
Range("A1").Select
Selection.AutoFilter
col = GetNumCol("TelFixeEntrepriseProposition")
Selection.AutoFilter Field:=col,
Criteria1:=TelFixeEntrepriseProposition
Selection.AutoFilter Field:=GetNumCol("FaireProposition"),
Criteria1:úireProposition
Selection.AutoFilter Field:=GetNumCol("PnumProposition"),
Criteria1:=PnumProposition
End If
End Sub

Cela bloc sur Selection.AutoFilter Field:=col,
Criteria1:=TelFixeEntrepriseProposition

la valeur de col est la bonne, et TelFixeEntrepriseProposition contient
bien

le "texte" à rechercher ( telephone qui n'existe pas dans la feuille en
question donc le filtre devrais fonctionner et me donner aucun résultat )

merci de votre aide.