VBA largeur colonne liée à valeur cellule Résolu

Question

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
Configuration: iPhone / Chrome 53.0.2785.124

Mike-31 · Answer

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

romanza · Answer

Bonsoir Mike,
Ce n'est pas un problème pour moi dans ce cas précis d'avoir des colonnes mardi à dimanche cachées

romanza · Answer

Sub test() 
For Col = 1 To 78 
If Cells(1, Col) = "0" Then Columns(Col).Hidden = True 
Next 
End Sub

Mike-31 · Answer

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

The_boss_68 · Answer

Bonsoir
essais en pièce jointe
https://www.cjoint.com/c/FLwwTduzOej
Slts

roger621 · Answer

Merci à Mike and The_boss_68
Bonnes fêtes !!

roger621 · Answer

roger621 = romanza

VBA largeur colonne liée à valeur cellule

7 réponses

Votre réponse

Discussions similaires