VBA largeur colonne liée à valeur cellule

Résolu
romanza Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   -  
roger621 Messages postés 5 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



A voir également:

7 réponses

romanza Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonsoir Mike,


Ce n'est pas un problème pour moi dans ce cas précis d'avoir des colonnes mardi à dimanche cachées
0
romanza Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   2
 
Sub test()
For Col = 1 To 78
If Cells(1, Col) = "0" Then Columns(Col).Hidden = True
Next
End Sub
0
The_boss_68 Messages postés 952 Date d'inscription   Statut Membre Dernière intervention   182
 
Bonsoir

essais en pièce jointe

https://www.cjoint.com/c/FLwwTduzOej

Slts
0
roger621 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Merci à Mike and The_boss_68

Bonnes fêtes !!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
roger621 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
roger621 = romanza
0
Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention  
 
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
-1
Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention  
 
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
-1