Largeur de colonne automatique

[abc]

Bonjour,
Comment adapter la largeur dfférentes des colonnes contenant les lettres S et D ?
Attention, les lettres vont changer de colonne en fonction des dates du mois.On peux ajouter une ligne avec les lettres abrégées;
Merci d'avance
A +

 

[SergiO]

Re : Largeur de colonne automatique

Bonjour ABC,

Une macro événementielle ferait-elle l'affaire ?

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False
For Each Target In Range("A1:IV1")
    If Target.Value = "S" Or Target.Value = "D" Then
    Target.ColumnWidth = 3
    Else
    Target.ColumnWidth = 8
    End If
   
Next
Application.ScreenUpdating = True
End Sub

@+

 

[pierrejean]

Re : Largeur de colonne automatique

bonjour abc

une petite macro qui réalise cela

vois si cela te convient

 

[abc]

Re : Largeur de colonne automatique

Bonjour,
Merci pour vos réponses.
j'ai essayé les deux codes et cela ne fonctionne pas comme je le désire.
Je me suis peux être mal exprimer.La largeur des colonnes changent lorsque S ou D s'inscrivent, mais la colonne ne reprend a largeur initiale lorsque S et D ne sont plus inscrit où change de colonne.
Je joint un autre fichier.
A +

 

[pierrejean]

Re : Largeur de colonne automatique

re

en esperant que cette fois j'aie bien compris

pour tester mets un S ou un D sur la ligne 1

 

[abc]

Re : Largeur de colonne automatique

Bonjour,
je ne parviens pas à adapter la proposition de pierrejean.
Par contre la proposition de Sergio fonctionne mais j'ai du la mettre avec une autre procédure.
Fichier ci joint pour d'autre proposition èventuelle où correction
merci pour le suivi
A +

 

[SergiO]

Re : Largeur de colonne automatique

Re,

Ta solution fonctionne, on peut aussi faire comme ceci :

Private Sub Worksheet_Calculate()

Dim Target As Range

Application.ScreenUpdating = False
For Each Target In Range("B9:AF9")
    If Target.Value = "S" Or Target.Value = "D" Then
    Target.ColumnWidth = 3
    Else
    Target.ColumnWidth = 8
    End If
   
Next
Application.ScreenUpdating = True

End Sub

@+

 

[pierrejean]

Re : Largeur de colonne automatique

re

tu avais omis d'affecter la macro au defilement des années

 

[abc]

Re : Largeur de colonne automatique

Bonsoir,
merci à pierrejean et SergiO,désolé de ne pas vous répondre plutôt mais obligation familialle obligé mon retenu.Après correction cela fonctionne parfaitement.
Encore une grande réussite
Merci, ma progression en VBA est lente.
A + pour d'autres problèmes et SOLUTIONS