Discussion :

[amel95140]

Bonjour,


je voudrais augmenter la taille de la cellule selectionné mais je n'y arrive pas

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Columns(column).Insert 'Shift:=xlToRight
    Cells(1, column).Value = name
    Cells(1, column).Select       
 
  Selection.ColumnWidth = 200

ps: je programme en vba

[repié]

Ce n'est pas la taille de la cellule que tu veux modifier avec .ColumnWidth mais celle de la colonne. Alors sélectionne plutôt la colonne avant de la modifier.

Lenregistreur VBA me donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Columns("D:D").ColumnWidth = 25

[amel95140]

Bonjour,


je voudrais augmenter la taille de la colonne selectionné mais je n'y arrive pas

voici mon code:


Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Columns(column).Insert 'Shift:=xlToRight
    Cells(1, column).Value = name
    Columns(column).Select       
 
  Selection.ColumnWidth = 200

Merci

[SfJ5Rpw8]

et il se passe quoi lorsque tu exécute ton code ..?

[amel95140]

justement rien du tout, aucune colonne ne change de taille

[SfJ5Rpw8]

ton code fonctionne .. rajoute-y la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox "Rajout colonne " & Columns(Column).Address & " Feuille " & ActiveWorkbook.Name & ActiveSheet.Name
.

..

[amel95140]

suis je bete! c'est parce que je faisais un autofit après merci encore et désolé du dérangement