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 !!!
Code:
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
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
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:
VB:
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