Discussion :

[Pollux]

Bonjour à tous,

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

Code :

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

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

Mais ca ne fonctionne pas... Vous pouvez m'aider?

[bouley]

Bonjour pollux007

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

Code :

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

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

@+

[Pollux]

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

[Pollux]

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

[ouskel'n'or]

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

Code :

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

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+

[Pollux]

Je suis sur Excel 2003 pardon

Ca ne fonctionne toujours pas

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

[bouley]

Teste ceci

Code :

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

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

@+

[Pollux]

non ca ne fonctionne pas

[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..?)

[ouskel'n'or]

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+

[jmfmarques]

Peut-être ??

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

puis, curieusement :

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

N'y aurai-il pas eu, entre-temps, des modifications de noms de baptême ???
Ce serait une explication...
:

[ouskel'n'or]

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+

[jmfmarques]

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

[Pollux]

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 :

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

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

[ouskel'n'or]

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

Remplace ces trois lignes par ça

Code :

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

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+

[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?

[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 :

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

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...

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)

[ouskel'n'or]

tu as un message d'erreur ?

++
Si oui, alors mets-le

A+

[Pollux]

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

[ouskel'n'or]

A+ quand même mais fais gaffe, y'en a qui pourraient t'en vouloir pour moins que ça...