Bonjour
J'ai besoin de votre aide
Macro pour masquer toutes les colonnes contenant 1 sur la ligne 2 et de laisser afficher les colonnes contenant 0 toujours sur cette ligne 2
via un bouton.
Celui ci permet d'exécuter cette fonction ou en ré appuyant dessus d'annuler cette fonction.
En résumé dans cet exemple faire disparaître les colonnes ABCFH et ne laisser que les colonnes DEGIJ.
Private Sub Masquer_Démasquer()
Dim rng As Range
For Each rng In [A2:J2]
If rng.Value = 1 Then rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
Next rng
End Sub
Private Sub Bouton1_Click()
Masquer_Démasquer
End Sub
cette macro ne fonctionne pas sur Excel pour le Web qui ne prend pas en charge l’exécution ou l’interaction avec Contrôles ActiveX. Sauriez vous convertir cette macro
Merci d'avance pour votre réponse
Cordialement
J'ai besoin de votre aide
Macro pour masquer toutes les colonnes contenant 1 sur la ligne 2 et de laisser afficher les colonnes contenant 0 toujours sur cette ligne 2
via un bouton.
Celui ci permet d'exécuter cette fonction ou en ré appuyant dessus d'annuler cette fonction.
En résumé dans cet exemple faire disparaître les colonnes ABCFH et ne laisser que les colonnes DEGIJ.
Private Sub Masquer_Démasquer()
Dim rng As Range
For Each rng In [A2:J2]
If rng.Value = 1 Then rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
Next rng
End Sub
Private Sub Bouton1_Click()
Masquer_Démasquer
End Sub
cette macro ne fonctionne pas sur Excel pour le Web qui ne prend pas en charge l’exécution ou l’interaction avec Contrôles ActiveX. Sauriez vous convertir cette macro
Merci d'avance pour votre réponse
Cordialement