VBA largeur colonne liée à valeur cellule
Résolu
romanza
Messages postés
263
Statut
Membre
-
roger621 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
roger621 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Sur une feuille Excel de H5 à ZX5 j'ai des valeurs de cellule représentant les jours de la semaine se succédant comme suit:
L M Me J V S D
Quel code VBA je doit mettre pour que les colonnes contenant tous les jours sauf le lundi aient une largeur égale à 0.
Merci à vous
Sur une feuille Excel de H5 à ZX5 j'ai des valeurs de cellule représentant les jours de la semaine se succédant comme suit:
L M Me J V S D
Quel code VBA je doit mettre pour que les colonnes contenant tous les jours sauf le lundi aient une largeur égale à 0.
Merci à vous
7 réponses
-
Bonsoir Mike,
Ce n'est pas un problème pour moi dans ce cas précis d'avoir des colonnes mardi à dimanche cachées -
Sub test()
For Col = 1 To 78
If Cells(1, Col) = "0" Then Columns(Col).Hidden = True
Next
End Sub -
-
Merci à Mike and The_boss_68
Bonnes fêtes !! -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
roger621 = romanza
-
Bonsoir,
Si tu mets tes colonnes à zéro et comment vas tu faire pour les afficher ou les sélectionner !
Perso je mettrais les colonnes à 2 ou 3 et j'adapterais automatiquement la largeur de la colonne de la cellule active
-
Re,
code à coller dans les propriétés d'un bouton activex
Private Sub CommandButton1_Click()
Dim NoCol As Integer
For NoCol = 1 To 20
If Cells(1, NoCol) <> "Lundi" Then Cells(1, NoCol).ColumnWidth = 0
Next
End Sub
