Bonjour,
Je ne comprends pas pourquoi il met une erreur à la ligne Sélection.AutoFilter
si je ne mets pas On Error Resume Next
cette procédure Private Sub Mois_Change() est dans une feuille
Mois est le nom d'une Combobox (Liste déroulante) placée sur la feuille
j'ai du oublier quelque chose!
Merci d'avance
Private Sub Mois_Change()
'On Error Resume Next
i = Mois.ListIndex + 1
DerLigne = Sheets(2).Range("B65536").End(xlUp).Row
If i = 1 Then
Range("A2:J" & DerLigne).Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$J$572").AutoFilter Field:=7, Criteria1:=">=0", _
Operator:=xlAnd, Criteria2:="<=3"
ActiveWindow.ScrollRow = 3
End If
end sub
Bonjour Michel Denis, merci pour tout c'est nickel j'ai juste supprimé le Then à cette ligne .FilterMode Then .ShowAllData j'aurai jamais trouvé une procédure aussi simple, c'est beau l'expérience. bonne journée
"michdenis" a écrit dans le message de groupe de discussion : iic7c0$50v$
A ) Tu dois ajouter "On Error Resume Next" au cas où il n'y a aucun enregistrement de masqué, ShowAllData va générer une erreur.
B ) Tu peux continuer si tu désires : "=SUBTOTAL(3,R[1]C[-12]:R[998]C[-12])" mais je trouve cela imbuvable et très difficile à lire ! L'enregistreur macro souvent génère de telles chaînes de caractère faute d'avoir le choix.
'----------------------------------------- Dim DerLigne As Long On Error Resume Next DerLigne = Sheets(2).Range("B65536").End(xlUp).Row With ActiveSheet i = Mois.ListIndex + 1 If i = 0 Then Exit Sub If i = 10 then .FilterMode Then .ShowAllData Exit sub End If Crit1 = (i - 1) * 3 Crit2 = i * 3 .Range("$A$2:$J$" & DerLigne).AutoFilter Field:=7, Criteria1:=">=" & _ Crit1, Operator:=xlAnd, Criteria2:="<=" & Crit2 End With ActiveWindow.ScrollRow = 3 '-----------------------------------------
Bonjour Michel Denis,
merci pour tout c'est nickel
j'ai juste supprimé le Then à cette ligne .FilterMode Then .ShowAllData
j'aurai jamais trouvé une procédure aussi simple, c'est beau l'expérience.
bonne journée
"michdenis" a écrit dans le message de groupe de discussion : iic7c0$50v$1@speranza.aioe.org...
A ) Tu dois ajouter "On Error Resume Next"
au cas où il n'y a aucun enregistrement de masqué,
ShowAllData va générer une erreur.
B ) Tu peux continuer si tu désires : "=SUBTOTAL(3,R[1]C[-12]:R[998]C[-12])"
mais je trouve cela imbuvable et très difficile à lire !
L'enregistreur macro souvent génère de telles chaînes de caractère
faute d'avoir le choix.
'-----------------------------------------
Dim DerLigne As Long
On Error Resume Next
DerLigne = Sheets(2).Range("B65536").End(xlUp).Row
With ActiveSheet
i = Mois.ListIndex + 1
If i = 0 Then Exit Sub
If i = 10 then
.FilterMode Then .ShowAllData
Exit sub
End If
Crit1 = (i - 1) * 3
Crit2 = i * 3
.Range("$A$2:$J$" & DerLigne).AutoFilter Field:=7, Criteria1:=">=" & _
Crit1, Operator:=xlAnd, Criteria2:="<=" & Crit2
End With
ActiveWindow.ScrollRow = 3
'-----------------------------------------
Bonjour Michel Denis, merci pour tout c'est nickel j'ai juste supprimé le Then à cette ligne .FilterMode Then .ShowAllData j'aurai jamais trouvé une procédure aussi simple, c'est beau l'expérience. bonne journée
"michdenis" a écrit dans le message de groupe de discussion : iic7c0$50v$
A ) Tu dois ajouter "On Error Resume Next" au cas où il n'y a aucun enregistrement de masqué, ShowAllData va générer une erreur.
B ) Tu peux continuer si tu désires : "=SUBTOTAL(3,R[1]C[-12]:R[998]C[-12])" mais je trouve cela imbuvable et très difficile à lire ! L'enregistreur macro souvent génère de telles chaînes de caractère faute d'avoir le choix.
'----------------------------------------- Dim DerLigne As Long On Error Resume Next DerLigne = Sheets(2).Range("B65536").End(xlUp).Row With ActiveSheet i = Mois.ListIndex + 1 If i = 0 Then Exit Sub If i = 10 then .FilterMode Then .ShowAllData Exit sub End If Crit1 = (i - 1) * 3 Crit2 = i * 3 .Range("$A$2:$J$" & DerLigne).AutoFilter Field:=7, Criteria1:=">=" & _ Crit1, Operator:=xlAnd, Criteria2:="<=" & Crit2 End With ActiveWindow.ScrollRow = 3 '-----------------------------------------
"michdenis" a écrit dans le message de news: iic6ie$2u6$
Surtout toi, tu en as plein des boutons dans tes barres d'outils ! ;-)
MichD -------------------------------------------- "Mgr T. Plubanni" a écrit dans le message de groupe de discussion : 4d497cad$0$5419$
choueeeeeeeeeeette... si on a un problème de boutons, on saura à qui s'adresser alors... T. P.
"michdenis" a écrit dans le message de news: iibson$9un$
Quand je vois ceci : "=SUBTOTAL(3,R[1]C[-12]:R[998]C[-12])" Ça me donne une poussée d'urticaire ;-))
viiiiiiiiiiiiiiiii.....
T. P.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: iic6ie$2u6$1@speranza.aioe.org...
Surtout toi, tu en as plein des boutons dans tes barres d'outils !
;-)
MichD
--------------------------------------------
"Mgr T. Plubanni" a écrit dans le message de groupe de discussion : 4d497cad$0$5419$ba4acef3@reader.news.orange.fr...
choueeeeeeeeeeette...
si on a un problème de boutons, on saura à qui s'adresser alors...
T. P.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: iibson$9un$1@speranza.aioe.org...
Quand je vois ceci : "=SUBTOTAL(3,R[1]C[-12]:R[998]C[-12])"
Ça me donne une poussée d'urticaire ;-))