Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur 1004 Range

  • Initiateur de la discussion Initiateur de la discussion Ikito
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 :


Si vous avez une quelconque idée, merci de m'en faire part.
 
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 😉
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
1 K
  • Question Question
Réponses
20
Affichages
3 K
  • Question Question
Réponses
2
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…