Largeur de colonne automatique

SergiO

XLDnaute Accro

• 11 Décembre 2006

• #2

Re : Largeur de colonne automatique

Bonjour ABC,

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

Code:

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

@+

 

Dernière édition: 11 Décembre 2006

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Décembre 2006

• #3

Re : Largeur de colonne automatique

bonjour abc

une petite macro qui réalise cela

vois si cela te convient

 

Pièces jointes

• Largeur de colonne.xls

  22 KB · Affichages: 80
• Largeur de colonne.xls

  22 KB · Affichages: 83
• Largeur de colonne.xls

  22 KB · Affichages: 75

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 11 Décembre 2006

• #4

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 +

 

Pièces jointes

• largeurdecolonne.zip

  11 KB · Affichages: 37
• largeurdecolonne.zip

  11 KB · Affichages: 39
• largeurdecolonne.zip

  11 KB · Affichages: 39

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Décembre 2006

• #5

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

 

Pièces jointes

• Largeur de colonne.xls

  25 KB · Affichages: 61
• Largeur de colonne.xls

  25 KB · Affichages: 60
• Largeur de colonne.xls

  25 KB · Affichages: 62

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 11 Décembre 2006

• #6

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 +

 

Pièces jointes

• calendrier.zip

  9.9 KB · Affichages: 36
• calendrier.zip

  9.9 KB · Affichages: 44
• calendrier.zip

  9.9 KB · Affichages: 37

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 11 Décembre 2006

• #7

Re : Largeur de colonne automatique

Re,

Ta solution fonctionne, on peut aussi faire comme ceci :

Code:

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

@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Décembre 2006

• #8

Re : Largeur de colonne automatique

re

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

 

Pièces jointes

• Calendrier.xls

  28 KB · Affichages: 62
• Calendrier.xls

  28 KB · Affichages: 65
• Calendrier.xls

  28 KB · Affichages: 74

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 11 Décembre 2006

• #9

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

 

Vote positif 0 Vote négatif