VBA largeur colonne liée à valeur cellule

Résolu/Fermé
romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 22 déc. 2016 à 19:25
roger621 Messages postés 5 Date d'inscription mercredi 15 juin 2011 Statut Membre Dernière intervention 23 décembre 2016 - 23 déc. 2016 à 09:35
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



7 réponses

romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 2
22 déc. 2016 à 21:47
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 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 2
22 déc. 2016 à 23:15
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 924 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 22 avril 2024 174
22 déc. 2016 à 23:48
Bonsoir

essais en pièce jointe

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

Slts
0
roger621 Messages postés 5 Date d'inscription mercredi 15 juin 2011 Statut Membre Dernière intervention 23 décembre 2016
23 déc. 2016 à 09:31
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 mercredi 15 juin 2011 Statut Membre Dernière intervention 23 décembre 2016
23 déc. 2016 à 09:35
roger621 = romanza
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 déc. 2016 à 21:01
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 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 déc. 2016 à 23:24
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