Boucle sur toutes les feuilles visible et masquage colonne

[thom02]

Bonjour,

Je souhaite effectuer des actions sur les colonnes de chaque feuille visible de mon classeur mais pour une raison que je ne comprends pas ma boucle ne va pas au delà de la première feuille pourriez-vous m’aider.
D’avance merci !!!

Sub ActionColonne()

Dim wsheet As Worksheet

For Each wsheet In Worksheets

        Columns("G:H").Select
        Selection.EntireColumn.Hidden = True

        Columns("A:C").Select
        Selection.EntireColumn.Hidden = True
 Next
 
End Sub

 

[Guest]

Re : Boucle sur toutes les feuilles visible et masquage colonne

Bonjour,

Essaye plutôt ceci, les colonnes n'ont pas besoin d'être sélectionner au préalabe. Et dans ta boucle il faut dire à quelle feuille appartiennent les colonne, sinon c'est toujours la feuille active.

Sub ActionColonne()
Dim wsheet As Worksheet
For Each wsheet In Worksheets
wsheet.Columns("G:H").EntireColumn.Hidden = True
wsheet.Columns("A:C").EntireColumn.Hidden = True
Next
End Sub

A+

 

[Efgé]

Re : Boucle sur toutes les feuilles visible et masquage colonne

Bonjour thom02,
Si tu sélectionne les colonnes il faut activé la feuille.
Mais il y a mieux, ne pas sélectionner:

Sub ActionColonne()
Dim wsheet As Worksheet
For Each wsheet In Worksheets
    With wsheet
        If .Visible = True Then
            .Columns("A:C").Hidden = True
            .Columns("G:H").Hidden = True
        End If
    End With
Next wsheet
End Sub

Cordialement

EDIT Bonjour Hasco, désolé

 

[thom02]

Re : Boucle sur toutes les feuilles visible et masquage colonne

Vous etes super un grand merci !!!