Bonjour Forum,
J'ai récupéré un code vba qui permet de masquer les colonnes et un autre qui permet de les réafficher. En revanche, ces deux codes sont associés à deux boutons distincts.
Je souhaiterais pouvoir "fusionner" ces deux codes vba en un seul et pouvoir l'associer à un bouton qui en l'actionnant, ça "masque ou affiche" à chaque clic.
Je vous remercie par avance de votre aide sur ce problème.
Cdt
Voici les codes :
Sub MasquerColonne()
Application.ScreenUpdating = False
Dim i As Long
For i = 16 To 6 Step -1
If Cells(4, i) = 0 Then
Columns(i).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Sub AfficherColonne()
Application.ScreenUpdating = False
Dim i As Long
For i = 6 To 16 Step 1
If Cells(4, i) = 0 Then
Columns(i).EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub
J'ai récupéré un code vba qui permet de masquer les colonnes et un autre qui permet de les réafficher. En revanche, ces deux codes sont associés à deux boutons distincts.
Je souhaiterais pouvoir "fusionner" ces deux codes vba en un seul et pouvoir l'associer à un bouton qui en l'actionnant, ça "masque ou affiche" à chaque clic.
Je vous remercie par avance de votre aide sur ce problème.
Cdt
Voici les codes :
Sub MasquerColonne()
Application.ScreenUpdating = False
Dim i As Long
For i = 16 To 6 Step -1
If Cells(4, i) = 0 Then
Columns(i).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Sub AfficherColonne()
Application.ScreenUpdating = False
Dim i As Long
For i = 6 To 16 Step 1
If Cells(4, i) = 0 Then
Columns(i).EntireColumn.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub