largeur colonne suivant donnée

[onyx41]

bonjour à tous le forum,

J'ai trouvé sur le forum la façon de modifier la largeur de colonne suivant les données inscrites dans la ligne A2:AB2. Très bien, mais je n'arrive pas à l'adapter à mon cas. Je ne souhaiterais élargir seulement la colonne qui contient les données voulues, en sachant qu'elles ne seront jamais dans les mêmes colonnes et laisser les autres à une largeur désirée.

ce que j'ai trouvé :

For Each Target In Range("A2:AB2")
If Target.Value = "Nom" Or Target.Value = "Objet" Then
Target.ColumnWidth = 8
Else
Target.ColumnWidth = 15
End If
Next

Merci à ceux qui voudront bien se pencher sur mon problème.

 

[onyx41]

Re : largeur colonne suivant donnée

Autant pour moi, désolé, j'ai trouvé, une mauvaise orthographe m'empêchait d'avoir le résultat voulu..

Merci

 

[Hulk]

Re : largeur colonne suivant donnée

Slt Onyx, Forum,

Je suppose que tu connais, mais tu peux aussi faire comme ça...

For Each Target In Range("A2:AB2")
If Target.Value = "Nom" Or Target.Value = "Objet" Then
[B][COLOR="Green"]Target.EntireColumn.AutoFit[/COLOR][/B]
Else
Target.ColumnWidth = 15
End If
Next

De cette façon, les colonnes s'ajusteront automatiquement.

Cdt, Hulk.