Discussion :

[markos63]

Bonjour,
je ne comprends pas pourquoi une macro qui fonctionnait bien, mais elle bug maintenant !! j'ai du oublier qq chose.

en fait toutes celles qui utilisent Selection
même lorsquelle provient de l'enregistreur de macro comme :

Code :

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

1
2
Columns("F:K").Select
    Selection.EntireColumn.Hidden = True

provoque une "erreur d’exécution 424 : objet requis"

idem avec :

Code :

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

1
2
3
4
5
6
7
8
Range("A1:F1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent5 'bleu vert
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With

"erreur de compillation :
fonction ou variable attendue"

je suis sous win 7 et excel 2010mais mon projet est enregistrer sous Excel97 .

merci pour vos conseils

[gFZT82]

Bonjour,

Tu devrais prendre la bonne habitude d'indiquer explicitement sur quel objet s'applique l'instruction et éviter autant que possible les sélections.

Code :

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

1
2
3
Sub test1()
    ThisWorkbook.Worksheets("Feuil1").Columns("F:K").EntireColumn.Hidden = True
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Sub test2()
    With ThisWorkbook.Worksheets("Feuil1").Range("A1:F1").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent5 'bleu vert
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
End Sub

Cordialement.

[markos63]

Merci pour cette réponse,
effectivement j'ai perdu les bonnes habitudes,
il me semble pourtant l'avoir essayé.
je reteste cela

A plus