Erreur 1004 Range

Ikito · 2 Juillet 2019

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 :

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

job75 · 2 Juillet 2019

Bonjour Ikito, bienvenue sur XLD,

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

A+

Staple1600 · 2 Juillet 2019

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 · 2 Juillet 2019

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 · 2 Juillet 2019

Hello JM,

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

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

Staple1600 · 2 Juillet 2019

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 · 2 Juillet 2019

Staple1600 à dit:
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 · 2 Juillet 2019

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 · 2 Juillet 2019

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 · 3 Juillet 2019

job75 à dit:
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.

Erreur 1004 Range

Ikito

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

VerticalAlignment Property [Excel 2003 VBA Language Reference]

laurent950

XLDnaute Accro

VerticalAlignment Property [Excel 2003 VBA Language Reference]

Ikito

XLDnaute Occasionnel

Discussions similaires