J'ai un fichier avec 3 onglets.
A l'aide d'une macro, je filtre pour chacun des onglets toujours la même
colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou
plusieurs onglets ?
Ou comment appliquer mon code à tous les onglets du fichier et ce quelque
soit le nombre d'onglet ?
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
MichDenis
For each F in worksheets With F ' représente une des feuille With .Range(.....) .Autofilter ... or AdvancedFilter...
End With end with next
"Bruno RCSC" a écrit dans le message de news: 485024a9$0$835$ Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets. A l'aide d'une macro, je filtre pour chacun des onglets toujours la même colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou plusieurs onglets ? Ou comment appliquer mon code à tous les onglets du fichier et ce quelque soit le nombre d'onglet ?
Merci pour votre aide.
BH
For each F in worksheets
With F ' représente une des feuille
With .Range(.....)
.Autofilter ... or AdvancedFilter...
End With
end with
next
"Bruno RCSC" <ats.ccs@wanadoo.fr> a écrit dans le message de news:
485024a9$0$835$ba4acef3@news.orange.fr...
Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets.
A l'aide d'une macro, je filtre pour chacun des onglets toujours la même
colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou
plusieurs onglets ?
Ou comment appliquer mon code à tous les onglets du fichier et ce quelque
soit le nombre d'onglet ?
For each F in worksheets With F ' représente une des feuille With .Range(.....) .Autofilter ... or AdvancedFilter...
End With end with next
"Bruno RCSC" a écrit dans le message de news: 485024a9$0$835$ Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets. A l'aide d'une macro, je filtre pour chacun des onglets toujours la même colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou plusieurs onglets ? Ou comment appliquer mon code à tous les onglets du fichier et ce quelque soit le nombre d'onglet ?
Merci pour votre aide.
BH
Bruno RCSC
Bonsoir,
Pas très doué, je n'y arrive pas Pourquoi cela ne fonctionne pas ? For Each F In Worksheets With F Selection.AutoFilter Field:=3, Criteria1:="x" End With Next
Le filtre ne fait que sur le premier onglet et pas sur les suivants.
Une aide complémentaire ?
Merci
BH
"MichDenis" a écrit dans le message de news: %23QP1Kh$
For each F in worksheets With F ' représente une des feuille With .Range(.....) .Autofilter ... or AdvancedFilter...
End With end with next
"Bruno RCSC" a écrit dans le message de news: 485024a9$0$835$ Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets. A l'aide d'une macro, je filtre pour chacun des onglets toujours la même colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou plusieurs onglets ? Ou comment appliquer mon code à tous les onglets du fichier et ce quelque soit le nombre d'onglet ?
Merci pour votre aide.
BH
Bonsoir,
Pas très doué, je n'y arrive pas
Pourquoi cela ne fonctionne pas ?
For Each F In Worksheets
With F
Selection.AutoFilter Field:=3, Criteria1:="x"
End With
Next
Le filtre ne fait que sur le premier onglet et pas sur les suivants.
Une aide complémentaire ?
Merci
BH
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23QP1Kh$yIHA.2068@TK2MSFTNGP05.phx.gbl...
For each F in worksheets
With F ' représente une des feuille
With .Range(.....)
.Autofilter ... or AdvancedFilter...
End With
end with
next
"Bruno RCSC" <ats.ccs@wanadoo.fr> a écrit dans le message de news:
485024a9$0$835$ba4acef3@news.orange.fr...
Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets.
A l'aide d'une macro, je filtre pour chacun des onglets toujours la même
colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un
ou
plusieurs onglets ?
Ou comment appliquer mon code à tous les onglets du fichier et ce quelque
soit le nombre d'onglet ?
Pas très doué, je n'y arrive pas Pourquoi cela ne fonctionne pas ? For Each F In Worksheets With F Selection.AutoFilter Field:=3, Criteria1:="x" End With Next
Le filtre ne fait que sur le premier onglet et pas sur les suivants.
Une aide complémentaire ?
Merci
BH
"MichDenis" a écrit dans le message de news: %23QP1Kh$
For each F in worksheets With F ' représente une des feuille With .Range(.....) .Autofilter ... or AdvancedFilter...
End With end with next
"Bruno RCSC" a écrit dans le message de news: 485024a9$0$835$ Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets. A l'aide d'une macro, je filtre pour chacun des onglets toujours la même colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou plusieurs onglets ? Ou comment appliquer mon code à tous les onglets du fichier et ce quelque soit le nombre d'onglet ?
Merci pour votre aide.
BH
MichDenis
Au lieu de : Selection.AutoFilter Field:=3, Criteria1:="x"
Tu dois définir ta plage de cellules appartenant à chacune des feuilles. cela se fait comme suit :
Choisis la colonne de ton choix '------------------------------- Dim F as Worksheets dim DerLig as Long
For Each F In Worksheets With F 'Trouve la dernière ligne occupée de la colonne A1 DerLig= .range("A65536").end(xlup).row:
'Applique le filtre sur la plage de cellules : With .Range("A::A" & DerLig) .AutoFilter Field:=3, Criteria1:="x End With End with Next '-------------------------------
"Bruno RCSC" a écrit dans le message de news: 48518262$0$900$ Bonsoir,
Pas très doué, je n'y arrive pas Pourquoi cela ne fonctionne pas ? For Each F In Worksheets With F Selection.AutoFilter Field:=3, Criteria1:="x" End With Next
Le filtre ne fait que sur le premier onglet et pas sur les suivants.
Une aide complémentaire ?
Merci
BH
"MichDenis" a écrit dans le message de news: %23QP1Kh$
For each F in worksheets With F ' représente une des feuille With .Range(.....) .Autofilter ... or AdvancedFilter...
End With end with next
"Bruno RCSC" a écrit dans le message de news: 485024a9$0$835$ Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets. A l'aide d'une macro, je filtre pour chacun des onglets toujours la même colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou plusieurs onglets ? Ou comment appliquer mon code à tous les onglets du fichier et ce quelque soit le nombre d'onglet ?
Merci pour votre aide.
BH
Au lieu de :
Selection.AutoFilter Field:=3, Criteria1:="x"
Tu dois définir ta plage de cellules appartenant à chacune des feuilles.
cela se fait comme suit :
Choisis la colonne de ton choix
'-------------------------------
Dim F as Worksheets
dim DerLig as Long
For Each F In Worksheets
With F
'Trouve la dernière ligne occupée de la colonne A1
DerLig= .range("A65536").end(xlup).row:
'Applique le filtre sur la plage de cellules :
With .Range("A::A" & DerLig)
.AutoFilter Field:=3, Criteria1:="x
End With
End with
Next
'-------------------------------
"Bruno RCSC" <ats.ccs@wanadoo.fr> a écrit dans le message de news:
48518262$0$900$ba4acef3@news.orange.fr...
Bonsoir,
Pas très doué, je n'y arrive pas
Pourquoi cela ne fonctionne pas ?
For Each F In Worksheets
With F
Selection.AutoFilter Field:=3, Criteria1:="x"
End With
Next
Le filtre ne fait que sur le premier onglet et pas sur les suivants.
Une aide complémentaire ?
Merci
BH
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23QP1Kh$yIHA.2068@TK2MSFTNGP05.phx.gbl...
For each F in worksheets
With F ' représente une des feuille
With .Range(.....)
.Autofilter ... or AdvancedFilter...
End With
end with
next
"Bruno RCSC" <ats.ccs@wanadoo.fr> a écrit dans le message de news:
485024a9$0$835$ba4acef3@news.orange.fr...
Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets.
A l'aide d'une macro, je filtre pour chacun des onglets toujours la même
colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un
ou
plusieurs onglets ?
Ou comment appliquer mon code à tous les onglets du fichier et ce quelque
soit le nombre d'onglet ?
Au lieu de : Selection.AutoFilter Field:=3, Criteria1:="x"
Tu dois définir ta plage de cellules appartenant à chacune des feuilles. cela se fait comme suit :
Choisis la colonne de ton choix '------------------------------- Dim F as Worksheets dim DerLig as Long
For Each F In Worksheets With F 'Trouve la dernière ligne occupée de la colonne A1 DerLig= .range("A65536").end(xlup).row:
'Applique le filtre sur la plage de cellules : With .Range("A::A" & DerLig) .AutoFilter Field:=3, Criteria1:="x End With End with Next '-------------------------------
"Bruno RCSC" a écrit dans le message de news: 48518262$0$900$ Bonsoir,
Pas très doué, je n'y arrive pas Pourquoi cela ne fonctionne pas ? For Each F In Worksheets With F Selection.AutoFilter Field:=3, Criteria1:="x" End With Next
Le filtre ne fait que sur le premier onglet et pas sur les suivants.
Une aide complémentaire ?
Merci
BH
"MichDenis" a écrit dans le message de news: %23QP1Kh$
For each F in worksheets With F ' représente une des feuille With .Range(.....) .Autofilter ... or AdvancedFilter...
End With end with next
"Bruno RCSC" a écrit dans le message de news: 485024a9$0$835$ Bonsoir,
Sous XP, Excel 2002
J'ai un fichier avec 3 onglets. A l'aide d'une macro, je filtre pour chacun des onglets toujours la même colonne avec le même critère.
Comment dois je procéder pour que mon code fonctionne lorsque j'ajoute un ou plusieurs onglets ? Ou comment appliquer mon code à tous les onglets du fichier et ce quelque soit le nombre d'onglet ?