Largeur de colonne

[manuBX]

Bonjour

J utilise ce code afin d ajuster la largeur de la colonne en fonction de la cellule contenant une valeur
çà fonctionne mais il ajuste aussi les autres en fonction de la police je suppose ou est ce du aux formules dans les cellules
Comment modifier ce code afin d ajuster la largeur de la colonne en fonction de la cellule contenant une valeur et de forcer les autres à une largeur de 3

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'ajuster la colonne H à AE
Columns("H:AE").EntireColumn.AutoFit
End Sub

MERCI D AVANCE
A+

 

[Paritec]

Re : Largeur de colonne

Bonsoir Manu,
alors quelle colonne tu veux en autofit et les quelle en 3 ??
car là tu as de H à AE?? il manque d'explications ton fichier ??

Columns("H:AE").EntireColumn.AutoFit

dans l'attente de ta réponse
a+
papou🙂

 

[manuBX]

Re : Largeur de colonne

Bonsoir PAPOU
dans le fichier si tu changes la tranche horaire D3 cela fait tout varier
donc il me faudrait l autofit de H à AE c est en place c est ok ça marche mais les autres colonnes dont les cellules sont vides ligne 2 j aimerais les avoir à largeur 3
Cordialement
A+

 

[job75]

Re : Largeur de colonne

Bonsoir manuBx, Papou,

Voyez cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D1,H1:H2")) Is Nothing Then Exit Sub 'ou autre chose ?
Dim cel As Range
Application.ScreenUpdating = False
Columns("H:AE").ColumnWidth = 3
For Each cel In Range("H2:AE2")
If cel.Text <> "" Then cel.EntireColumn.AutoFit
Next
End Sub

A+

 

[manuBX]

Re : Largeur de colonne

Bonjour
excusez de mon absence
ça fonctionne très bien
Jai pas tout compris dans le code mais je vais le travailler
Merci à tous