Résolu Erreur 1004 Range

Ikito

XLDnaute Occasionnel
Bonjour,

J'ai ouvert à nouveau un fichier Excel qui contient des macros que j'ai créées il y a environ 2 semaines.
Lors de mes tests tout fonctionnait correctement mais actuellement lorsque j'essaye de faire ce petit bout de code :
VB:
Set ws_risques = ActiveWorkbook.Sheets("Risques")

With ws_risques
        .Range("B27:Q400").VerticalAlignment = xlVAlignCenter
End With
J'ai l'erreur suivante :
1034736

Si vous avez une quelconque idée, merci de m'en faire part.
 

job75

XLDnaute Barbatruc
Bonjour Ikito, bienvenue sur XLD,

Si la feuille "Risques" est protégée il est normal que ce message apparaisse.

A+
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, Ikito, job75

Ikito (Bienvenue sur le forum)
La syntaxe ne serait pas plutôt ?
.VerticalAlignment = xlCenter

En tout cas, c'est ce que dit mon enregistreur de macros ;)
 

Staple1600

XLDnaute Barbatruc
Re

Ceci dit xlCenter et xlVAlignCenter valent tous deux -4108
Donc ne tenir compte que du message#2 (celui de job75)

En passant si quelqu'un peut me dire la différence entre xlCenter et xlVAlignCenter, ce sera toujours cela de pris ;)
 

Staple1600

XLDnaute Barbatruc
Re, Bonsoir job75

Job75
Si c'est la même chose, pourquoi deux constantes avec un nom différent?
Et pourquoi l’enregistreur de macros privilégie xlCenter?
 

laurent950

XLDnaute Impliqué
Bonsoir la réponse sur cette page :

je pense que xlVAlignCenter :
compatible avec (Style et TextFrame) objects
expression.VerticalAlignment = xlVAlignCenter
exemple
ActiveWorkbook.Styles("st_Title").HorizontalAlignment = xlVAlignCenter

Je pense que xlCenter :
compatible avec (AxisTitle, CellFormat, ChartTitle, DataLabel, DataLabels, DisplayUnitLabel, et Range) objects
expression.VerticalAlignment = xlCenter
exemple
Range("A1:B1000").VerticalAlignment = xlCenter

Laurent
 

Ikito

XLDnaute Occasionnel
Bonjour Ikito, bienvenue sur XLD,

Si la feuille "Risques" est protégée il est normal que ce message apparaisse.

A+
Bonjour job75,

Effectivement, la feuille est protégée, je viens de tilter. Cependant les cellules auxquelles je fais référence ne le sont pas elles.
Dois-je enlever la protection sur toute la feuille ? Auquel cas les utilisateurs vont exploser le fichier... :(

Ceci-dit, merci de vos investigations !
Je clôture.
 
Haut Bas