[VBA][Excel]Largeur de colonne

Version imprimable

26/01/2006, 11h08
Pollux

[VBA][Excel]Largeur de colonne
Bonjour à tous,

Voilà j'ai le code suivant qui vient de l'aide de microsoft:
Code:

1 2 3 With Worksheets("Accidents").columns("A") .ColumnWidth = 3 End With
Mais ca ne fonctionne pas... Vous pouvez m'aider?

Bonjour pollux007

Ce code fonctionne trés bien en VBA !!! avec Excel (XP) 2002
Code:

1 2 3 4 5 6 Sub test() With Worksheets("Accidents").Columns("A") .ColumnWidth = 3 End With End Sub
@+

26/01/2006, 11h30
Pollux

Bon ben j'ai rien modifié et maintenant ca marche....

:wow:
26/01/2006, 12h28
Pollux

Ca marche de nouveau plus.........

Essaie avec ça (tu ne donnes pas ta version d'excel)
Code:

1 2 3 4 5 Sub test() With Worksheets("Accidents").Columns(1) 'N° de colonne au lieu de la lettre .ColumnWidth = 3 End With End Sub
Cette syntaxe fonctionne quelque soit ta version

A+

26/01/2006, 12h59
Pollux

Je suis sur Excel 2003 pardon

Ca ne fonctionne toujours pas

Ou est-ce qu'on peut voir la compatibilité des fonctions?

Teste ceci

Code:

1
2
3
4
5
6
 
Sub test()
With Worksheets("Accidents").Range("A:A")
    .ColumnWidth = 3
    End With
End Sub

26/01/2006, 13h19
Pollux

:zoubi:

non ca ne fonctionne pas
26/01/2006, 13h30
SfJ5Rpw8

bon moi je suis sous excel 2000 .. et c'est OK .. re poste nous ton code ..et dis nous ce qui ne marche pas ... ? (message d'erreur..?)
26/01/2006, 13h57
ouskel'n'or

Citation:

Je suis sur Excel 2003 pardon
Ca ne fonctionne toujours pas
Ou est-ce qu'on peut voir la compatibilité des fonctions?

Les syntaxes qui t'ont été fournies fonctionnent toutes sur une feuille de calcul déprotégée.
Si tel est bien le cas, et si la "Sub Test()" ne fonctionne pas, ton pb vient d'ailleurs.

Tu nous dis

A+
26/01/2006, 14h04
jmfmarques

Peut-être ??

Citation:

Bon ben j'ai rien modifié et maintenant ca marche....

puis, curieusement :

Citation:

Ca marche de nouveau plus.........

N'y aurai-il pas eu, entre-temps, des modifications de noms de baptême ???
Ce serait une explication...
:?:
26/01/2006, 14h13
ouskel'n'or

Citation:

N'y aurai-il pas eu, entre-temps, des modifications de noms de baptême ???

++
Tu es sûr du nom de ta feuille dans le test ?

A+
26/01/2006, 14h14
jmfmarques

Le N° de colonne aussi, pendant qu'on y est.

Ma feuille n'est pas protégée et le nom de la feuille n'a pas été changé et je suis sûr que c'est le bon puisque d'autres opérations sont faites dans la fonction et elles marchent...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'après l'ajout d'accident, mettre le total
Public Sub total()
    Dim nbRows As Integer
    ActiveSheet.Unprotect
    nbRows = Worksheets("Accidents").ListObjects(1).ListRows.Count
    With Worksheets("Accidents").Range("A" & nbRows + 5)
        .Value = "Total d'accidents"
        .Font.Bold = True
        .Font.Size = 9
        .WrapText = False
    End With
    With Worksheets("Accidents").columns(1)
        .ColumnWidth = 3
    End With
    With Worksheets("Accidents").Range("A" & nbRows + 5).Offset(0, 3)
        .Value = nbRows
        .Font.Bold = True
        .Font.Size = 9
    End With
    Worksheets("Accidents").Rows(3).HorizontalAlignment = xlCenter
End Sub

Citation:

With Worksheets("Accidents").columns(1)
.ColumnWidth = 3
End With

Remplace ces trois lignes par ça
Code:

1 2 3 4 5 6 7 Sub test() Set LaCol = Worksheets("Accidents") With LaCol .Columns(3).ColumnWidth = 3 End With Set LaCol = Nothing End Sub
Tu dis

A+

26/01/2006, 14h25
Megaxel

La question de bbil m'intéresse beaucoup: tu as un message d'erreur, ou bien est-ce que la largeur de ta colonne n'est pas modifiée?
26/01/2006, 14h26
jmfmarques
Vraiment bizarre :

est-ce que celà te dérangerait de voir si ce bout de code (essai de réactions) change la largeur :
Code:

1 2 3 With Worksheets("Accidents").columns("A") .ColumnWidth = .ColumnWidth * 10 End With
remets le "A" à la place de 1
c'est juste pour voir s'il y a des réactions ou si c'est inerte...
:idea:
ps : et mets un msgbox pour afficher la largeur avant le with et un autre après le end With (on va essayer de comprendre)
26/01/2006, 15h01
ouskel'n'or

Citation:

tu as un message d'erreur ?

++
Si oui, alors mets-le

A+
26/01/2006, 15h08
Pollux

:zzz:

J'ai un grand besoin de sommeil moi..... Le code marchait très bien...... Mais je faisait un autofit un peu plus loin!!!!

Désolé de vous déranger pour une bêtise pareille
26/01/2006, 15h12
ouskel'n'or

:evilred: :boulet: :zekill:
:zekill:
:zekill:
:zekill:

A+ quand même mais fais gaffe, y'en a qui pourraient t'en vouloir pour moins que ça... :lol:
26/01/2006, 15h12
ThierryAIM

Ca fera une tournée générale pour tous les membres du club :wink:
26/01/2006, 15h17
Pollux

:chin:

Une bonne BINCH!!
26/01/2006, 16h41
jmfmarques

Ben quoi ! on connaissait la colonne vertébrale, la colonne Randon... et on vient d'apprendre la colonne yoyo... faut pas se plaindre ! :lol: