XL 2016 VBA For Each dans un For Each

Waldhari · 27 Avril 2022

Bonjour,

Je me permets de vous solliciter car je voudrais écrire une macro ayant ce comportement :
Masquer les lignes 21 à 1110 dont la valeur en colonne U est égale à 0, et ce pour toutes les feuilles exceptées celles exclues dans la condition "If".

La macro fonctionne correctement (en partie) car elle ne se lance que que sur la feuille active.
Ma boucle pour la faire tourner sur toutes les feuilles exceptées certaines ne fonctionne pas et je n'arrive pas à comprendre pourquoi.

VB:

Sub MasquerLignesZero()
    Dim Ws As Worksheet
    Dim c As Range
    For Each Ws In Worksheets
    If Ws.Name <> Sheets(1).Name And Ws.Name <> Sheets(2).Name And Ws.Name <> Sheets(3).Name And Ws.Name <> Sheets(4).Name And Ws.Name <> Sheets(5).Name And Ws.Name <> Sheets(6).Name And Ws.Name <> Sheets(7).Name And Ws.Name <> Sheets(18).Name And Ws.Name <> Sheets(19).Name Then
          
        For Each c In Range("U21:U1110")
          c.EntireRow.Hidden = (c = 0)
        Next c

    End If
    Next Ws
End Sub

Il doit y avoir une subtilité mais elle m'échappe.

Pourriez-vous m'aider ?

Je vous remercie par avance

Waldhari · 27 Avril 2022

C'est parfait, merci à tous.

Je mets du coup ici la macro modifiée selon vos retours, et qui fonctionne parfaitement 🙂

VB:

Sub MasquerLignesZero()
    Dim Ws As Worksheet
    Dim c As Range
    For Each Ws In Worksheets
    If Ws.Name <> Sheets(1).Name And Ws.Name <> Sheets(2).Name And Ws.Name <> Sheets(3).Name And Ws.Name <> Sheets(4).Name And Ws.Name <> Sheets(5).Name And Ws.Name <> Sheets(6).Name And Ws.Name <> Sheets(7).Name And Ws.Name <> Sheets(18).Name And Ws.Name <> Sheets(19).Name Then
        With Ws
            For Each c In .Range("U21:U1110")
                c.EntireRow.Hidden = (c = 0)
            Next c
        End With
    End If
    Next Ws
End Sub

cp4 · 27 Avril 2022

Waldhari à dit:
Bonjour,

Je me permets de vous solliciter car je voudrais écrire une macro ayant ce comportement :
Masquer les lignes 21 à 1110 dont la valeur en colonne U est égale à 0, et ce pour toutes les feuilles exceptées celles exclues dans la condition "If".

La macro fonctionne correctement (en partie) car elle ne se lance que que sur la feuille active.
Ma boucle pour la faire tourner sur toutes les feuilles exceptées certaines ne fonctionne pas et je n'arrive pas à comprendre pourquoi.

VB:

Sub MasquerLignesZero() Dim Ws As Worksheet Dim c As Range For Each Ws In Worksheets If Ws.Name <> Sheets(1).Name And Ws.Name <> Sheets(2).Name And Ws.Name <> Sheets(3).Name And Ws.Name <> Sheets(4).Name And Ws.Name <> Sheets(5).Name And Ws.Name <> Sheets(6).Name And Ws.Name <> Sheets(7).Name And Ws.Name <> Sheets(18).Name And Ws.Name <> Sheets(19).Name Then For Each c In Range("U21:U1110") c.EntireRow.Hidden = (c = 0) Next c End If Next Ws End Sub

Il doit y avoir une subtilité mais elle m'échappe.

Pourriez-vous m'aider ?

Je vous remercie par avance

Bonjour,

Un fichier aurait été le bienvenu.
Remplace les Sheets(x).Name par le nom de la feuille en dur.
exemple si le nom de la feuille Sheet(1) est "MonOnglet"
écris alors if ws.name <> "MonOnglet" ça devrait fonctionner.

A+

fanch55 · 27 Avril 2022

Bonjour,
Essayez
For Each c In Ws.Range("U21:U1110")

cp4 · 27 Avril 2022

fanch55 à dit:
Bonjour,
Essayez
For Each c In Ws.Range("U21:U1110")

Bonjour Fanch55😉,
Tu viens de me confirmer que je deviens de plus en pus bigleux avec l'âge😳

Waldhari · 27 Avril 2022

fanch55 à dit:
Bonjour,
Essayez
For Each c In Ws.Range("U21:U1110")

Aaaah merci c'était ce bout qui manquait effectivement 🙂

cp4 à dit:
Bonjour,

Un fichier aurait été le bienvenu.
Remplace les Sheets(x).Name par le nom de la feuille en dur.
exemple si le nom de la feuille Sheet(1) est "MonOnglet"
écris alors if ws.name <> "MonOnglet" ça devrait fonctionner.

A+

Est-ce que ce n'est pas mieux de laisser comme je l'ai fait ? Si les noms des onglets sont modifiés ça ne perturbera pas la macro, ou je me trompe ?

Merci bcp à vous deux

yal · 27 Avril 2022

Bonjour
Il faudrait préciser sur quelle feuille travailler.

VB:

Sub MasquerLignesZero()
    Dim Ws As Worksheet
    Dim c As Range
    For Each Ws In Worksheets
    If Ws.Name <> Sheets(1).Name And Ws.Name <> Sheets(2).Name And Ws.Name <> Sheets(3).Name And Ws.Name <> Sheets(4).Name And Ws.Name <> Sheets(5).Name And Ws.Name <> Sheets(6).Name And Ws.Name <> Sheets(7).Name And Ws.Name <> Sheets(18).Name And Ws.Name <> Sheets(19).Name Then
        With Ws 
            For Each c In .Range("U21:U1110")
                  c.EntireRow.Hidden = (c = 0)
            Next c

        End If
    end with
    Next Ws
End Sub

cp4 · 27 Avril 2022

Waldhari à dit:
Aaaah merci c'était ce bout qui manquait effectivement 🙂

Est-ce que ce n'est pas mieux de laisser comme je l'ai fait ? Si les noms des onglets sont modifiés ça ne perturbera pas la macro, ou je me trompe ?

Merci bcp à vous deux

J'ai répondu au post#4 à notre ami Fanch55. Comme tu as fait c'est mieux mais celui de @yal😉 est plus rigoureux.

Waldhari · 27 Avril 2022

C'est parfait, merci à tous.

Je mets du coup ici la macro modifiée selon vos retours, et qui fonctionne parfaitement 🙂

VB:

Sub MasquerLignesZero()
    Dim Ws As Worksheet
    Dim c As Range
    For Each Ws In Worksheets
    If Ws.Name <> Sheets(1).Name And Ws.Name <> Sheets(2).Name And Ws.Name <> Sheets(3).Name And Ws.Name <> Sheets(4).Name And Ws.Name <> Sheets(5).Name And Ws.Name <> Sheets(6).Name And Ws.Name <> Sheets(7).Name And Ws.Name <> Sheets(18).Name And Ws.Name <> Sheets(19).Name Then
        With Ws
            For Each c In .Range("U21:U1110")
                c.EntireRow.Hidden = (c = 0)
            Next c
        End With
    End If
    Next Ws
End Sub

RF13 · 27 Avril 2022

Bonjour,
J'arrive un peu après la bataille, mais comme j'ai testé une modification je la propose ci-dessous (dans une forme un peu plus simple pour les tests) :

Sub MasquerLignesZero()
Dim Ws As Object, c As Range, feuille As String
Application.ScreenUpdating = False
feuille = ActiveSheet.Name
For Each Ws In Worksheets
If Ws.Name <> Sheets(1).Name And Ws.Name <> Sheets(2).Name And Ws.Name <> Sheets(3).Name Then
Ws.Activate
For Each c In Range("A1:A36")
c.EntireRow.Hidden = (c = 0)
Next c
End If
Next Ws
Sheets(feuille).Activate
Application.ScreenUpdating = True
End Sub

XL 2016 VBA For Each dans un For Each

Waldhari

XLDnaute Nouveau

Waldhari

cp4

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Waldhari

XLDnaute Nouveau

yal

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Waldhari

XLDnaute Nouveau

RF13

XLDnaute Nouveau

Discussions similaires

XL 2016 VBA For Each dans un For Each

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency