Bonjour à tous,

Je sais que la réponse a déjà été donnée sur ce sujet mais celles que j'ai trouvées ne me conviennent qu'en partie. En effet, j'aimerais masquer une colonne sur deux. J'ai donc fait une macro pour masquer les colonnes impaires à partir de la colonne G. Le problème c'est qu'elle vérifie les colonnes une par une et qu'il y a beaucoup de colonnes. Elle prend donc plusieurs secondes (pas grand chose mais pas super agréable pour l'utilisateur). Y aurait-il une macro qui s'exécuterait plus rapidement ? J'ai déjà essayé les deux macros suivantes qui donnent le résultat attendu mais nécessitent un certain temps.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub masquergranu2()
  Dim col%
  For col = 7 To 500 Step 2
    Columns(col).Hidden = Not Columns(col).Hidden
  Next col
End Sub


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub masquergran()
    Dim col As Integer
    ' on affiche tout
 
    For col = 5 To 500
        If col Mod 2 <> 0 Then ' si diviser par 2 il reste 0 c'est que c'est pair, pour impair il faut faire le test <> 0
            Cells(1, col).EntireColumn.Hidden = True
        End If
    Next col
End Sub