[XL-2007] Erreur de compilation

[moyen]

Bonjour,
Ce bout de code fonctionnait sans problème hier. Aujourd'hui à la première utilisation j'ai l'erreur sur le "with":
"Erreur de compilation: L'objet associé à with doit être de type défini par l'utilisateur, Variant ou Object"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Sheets("Nec").Select
    ActiveSheet.DrawingObjects.Delete
 
 
    Cells.Select
    Cells.ClearContents
 
    'GoTo pageprete
 
    With Selection
        .ClearContents
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

Merci de vos réponses

[Gorfael]

Salut moyen et le forum
Qu'est-ce qui a changé depuis hier ?

Il manque vraisemblablement un end dans la macro complête. Mais on ne peut pas savoir sur un lambeau de code.
A+

[Philippe JOCHMANS]

Bonjour

De plus, comme le dit ton message d'erreur tu travailles sur une sélection, est-ce que celle-ci est la bonne ?

Il faut mieux éviter de travailler de cette manière, il faut plutôt déclarer des objers (Feuilles, cellules ou plages de cellules).

Philippe

[moyen]

Merci, pour vos réponses, mais je viens de trouver:
J'ai changer le nom de mon module et je l'ai appelé "Selection"
Désolé je débute