Erreur 1004 Range

[Ikito]

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 :

Set ws_risques = ActiveWorkbook.Sheets("Risques")

With ws_risques
        .Range("B27:Q400").VerticalAlignment = xlVAlignCenter
End With

J'ai l'erreur suivante :

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

 

[job75]

Bonjour Ikito, bienvenue sur XLD,

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

A+

 

[Staple1600]

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]

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 😉

 

[job75]

Hello JM,

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

إنها نفس الشيء

 

[Staple1600]

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?

 

[job75]

Si c'est la même chose, pourquoi deux constantes avec un nom différent?

Excel VBA est coutumier du fait, exemple xlManual et XlCalculationManual.

 

[Staple1600]

Re

Finalement c'est la même chose mais avec une distinction sur ce à quoi cela s'applique

VerticalAlignment Property [Excel 2003 VBA Language Reference]

docs.microsoft.com

 

[laurent950]

Bonsoir la réponse sur cette page :

VerticalAlignment Property [Excel 2003 VBA Language Reference]

docs.microsoft.com

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]

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.