Bonjour à tous
EN VBE, "autofilter" active ou désactive le filtre automatique en fonction,
respectivement, qu'il est désactivé ou activé.
J'ai 30 feuilles sur lesquelles je voudrais que ce filtre soit actif.
Cependant, certaines feuilles sont déjà filtrées.
A la macro boucle, le filtre est donc désactivé.
Comment passer ces feuilles déjà filtrées?
Merci
--
René Delcourt
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
Hervé
Bonsoir René, Test avec "AutoFilterMode" :
Sub Filtres() Dim Fe As Worksheet Dim Mes As String
For Each Fe In Worksheets If Fe.AutoFilterMode = True Then 'à remplacer par ton code... Mes = Mes & Fe.Name & vbCrLf End If Next Fe
MsgBox Mes
Set Fe = Nothing End Sub
Hervé.
"René Delcourt" a écrit dans le message de news:
Bonjour à tous EN VBE, "autofilter" active ou désactive le filtre automatique en fonction,
respectivement, qu'il est désactivé ou activé. J'ai 30 feuilles sur lesquelles je voudrais que ce filtre soit actif. Cependant, certaines feuilles sont déjà filtrées. A la macro boucle, le filtre est donc désactivé. Comment passer ces feuilles déjà filtrées? Merci -- René Delcourt
Bonsoir René,
Test avec "AutoFilterMode" :
Sub Filtres()
Dim Fe As Worksheet
Dim Mes As String
For Each Fe In Worksheets
If Fe.AutoFilterMode = True Then
'à remplacer par ton code...
Mes = Mes & Fe.Name & vbCrLf
End If
Next Fe
MsgBox Mes
Set Fe = Nothing
End Sub
Hervé.
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news:
1006055B-24E9-4331-B958-9F3ADE0D8A54@microsoft.com...
Bonjour à tous
EN VBE, "autofilter" active ou désactive le filtre automatique en
fonction,
respectivement, qu'il est désactivé ou activé.
J'ai 30 feuilles sur lesquelles je voudrais que ce filtre soit actif.
Cependant, certaines feuilles sont déjà filtrées.
A la macro boucle, le filtre est donc désactivé.
Comment passer ces feuilles déjà filtrées?
Merci
--
René Delcourt
Sub Filtres() Dim Fe As Worksheet Dim Mes As String
For Each Fe In Worksheets If Fe.AutoFilterMode = True Then 'à remplacer par ton code... Mes = Mes & Fe.Name & vbCrLf End If Next Fe
MsgBox Mes
Set Fe = Nothing End Sub
Hervé.
"René Delcourt" a écrit dans le message de news:
Bonjour à tous EN VBE, "autofilter" active ou désactive le filtre automatique en fonction,
respectivement, qu'il est désactivé ou activé. J'ai 30 feuilles sur lesquelles je voudrais que ce filtre soit actif. Cependant, certaines feuilles sont déjà filtrées. A la macro boucle, le filtre est donc désactivé. Comment passer ces feuilles déjà filtrées? Merci -- René Delcourt
René Delcourt
Merci, ça tourne -- René Delcourt
Bonsoir René, Test avec "AutoFilterMode" :
Sub Filtres() Dim Fe As Worksheet Dim Mes As String
For Each Fe In Worksheets If Fe.AutoFilterMode = True Then 'à remplacer par ton code... Mes = Mes & Fe.Name & vbCrLf End If Next Fe
MsgBox Mes
Set Fe = Nothing End Sub
Hervé.
"René Delcourt" a écrit dans le message de news:
Bonjour à tous EN VBE, "autofilter" active ou désactive le filtre automatique en fonction,
respectivement, qu'il est désactivé ou activé. J'ai 30 feuilles sur lesquelles je voudrais que ce filtre soit actif. Cependant, certaines feuilles sont déjà filtrées. A la macro boucle, le filtre est donc désactivé. Comment passer ces feuilles déjà filtrées? Merci -- René Delcourt
Merci, ça tourne
--
René Delcourt
Bonsoir René,
Test avec "AutoFilterMode" :
Sub Filtres()
Dim Fe As Worksheet
Dim Mes As String
For Each Fe In Worksheets
If Fe.AutoFilterMode = True Then
'à remplacer par ton code...
Mes = Mes & Fe.Name & vbCrLf
End If
Next Fe
MsgBox Mes
Set Fe = Nothing
End Sub
Hervé.
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news:
1006055B-24E9-4331-B958-9F3ADE0D8A54@microsoft.com...
Bonjour à tous
EN VBE, "autofilter" active ou désactive le filtre automatique en
fonction,
respectivement, qu'il est désactivé ou activé.
J'ai 30 feuilles sur lesquelles je voudrais que ce filtre soit actif.
Cependant, certaines feuilles sont déjà filtrées.
A la macro boucle, le filtre est donc désactivé.
Comment passer ces feuilles déjà filtrées?
Merci
--
René Delcourt
Sub Filtres() Dim Fe As Worksheet Dim Mes As String
For Each Fe In Worksheets If Fe.AutoFilterMode = True Then 'à remplacer par ton code... Mes = Mes & Fe.Name & vbCrLf End If Next Fe
MsgBox Mes
Set Fe = Nothing End Sub
Hervé.
"René Delcourt" a écrit dans le message de news:
Bonjour à tous EN VBE, "autofilter" active ou désactive le filtre automatique en fonction,
respectivement, qu'il est désactivé ou activé. J'ai 30 feuilles sur lesquelles je voudrais que ce filtre soit actif. Cependant, certaines feuilles sont déjà filtrées. A la macro boucle, le filtre est donc désactivé. Comment passer ces feuilles déjà filtrées? Merci -- René Delcourt
