[VBA-E] Accès à l'objet Range (oui puis non ?)

**gapgap** · 04/05/2006, 18h24

Je suis développeur VB depuis plusieurs années mais je connais mal VBA...

J'ai un pb chiant que je vais essayer de résumer simplement:

A l'ouverture du classeur, je lance des ordres d'initialisation du tableau dans une procedure, style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Range("A1:A4").HorizontalAlignment = 1

Ca marche sans problème mais si je veux relancer la procédure, au moyen d'un bouton par exemple, j'ai un message :

"Impossible de définir la propriété HorizontalAlignment de la classe Range"

Le classeur n'est protégé en aucune manière...

Quelqu'un a une idée ?

**SfJ5Rpw8** · 04/05/2006, 18h52

il est ou ton bouton ... ?
si la feuille est sur le même classeur que la macro essai plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ThisWorkbook.Sheets("Feuil1").Range("A1:A4").HorizontalAlignment = 1

**gapgap** · 05/05/2006, 11h04

Envoyé par bbil

il est ou ton bouton ... ?
si la feuille est sur le même classeur que la macro essai plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ThisWorkbook.Sheets("Feuil1").Range("A1:A4").HorizontalAlignment = 1

J'ai mis le bouton sur la feuille, mais où que soit le code ou la façon dont je le lance, j'ai la même erreur.

J'ai essayé de mettre le code dans le code de la feuille, dans le code d'un formulaire, dans un module. J'ai essayé de le lancer (enfin, "relancer" puisque la première exécution fonctionne) par un bouton sur la feuille, par un bouton sur un formulaire...

Le pire, c'est que ça bloque complètement mon développement cette cochonnerie: c'est un planning dont les données sont sauvegardées dans une base, si je ne peux pas rafaraichir le tableau en temps réel, j'ai plus qu'à trouver une toute autre solution...

**SfJ5Rpw8** · 05/05/2006, 11h20

faut voir si cela ne viens pas de ton classeur ... quand tu fais l'opération "à la main" ... tous ce passe bien ?

**gapgap** · 05/05/2006, 11h43

Envoyé par bbil

faut voir si cela ne viens pas de ton classeur ... quand tu fais l'opération "à la main" ... tous ce passe bien ?

Oui, je n'ai pas de problème quand je le fais à la main.

Par contre, en poussant les tests, j'ai un truc bizarre : si je fusionne toutes les cellules de mon Range et que je sauve mon tableau. A l'ouverture du classeur, dans la procédure Workbook_Open() (celle où ça marche) si je lui fait éxécuter ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Range("B3:AH33").HorizontalAlignment = xlHAlignGeneral

Il ne plante pas mais il ne fait rien : mes cellules sont toujours fusionnées. Il y a un truc que je dois mal faire...

**gapgap** · 05/05/2006, 15h23

C'est bon j'ai trouvé.

Malgré le fait que ma feuille soit la seule du classeur, il faut absolument faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Activate

avant de pouvoir modifier un objet range.

C'est au début de l'aide sur l'objet Range que j'ai lue au moins 10 fois (j'ai un peu honte

)

EDIT: Finalement non, ça ne marche plus... Il doit y avoirune histoire de contexte que je ne maitrîse pas... (pfff inside)

EDIT2: Ca fonctionne en passant par l'objet Selection (? inside)