Comment sélectionner tout un tableau pour lui appliquer un format

[Razy]

Salut,

Novice en VB, je cherche un moyen d'un appliquer un format donné (taille des caractères et centragz) à l'ensemble des lignes et colonnes d'une feuille excel.
Mon programme écrit un certain nombre de données dans une feuille excel et je cherche alors à appliquer un format à l'ensemble des cellules. Voici le code que j'ai écris mais qui ne fonctionne pas

objExcelApp.objWorkSheet.Cells.Select

With objExcelApp.objWorkSheet.Selection.Font
.Name = "Arial"
.Size = 8
End With
objExcelApp.objWorkSheet.Cells.EntireColumn.AutoFit


Merci pour votre aide.

 

[Minick]

Salut,

Essai ceci,:


...
With Cells.Font
.Name = "Arial"
.Size = 8
End With
...


@+
Minick

 

[Razy]

Salut,

Merci pour ton aide. J'ai dû rajouter objWorkSheet devant Cells et c'est bon...

With objWorkSheet.Cells.Font
.Name = "Arial"
.Size = 8
End With
objWorkSheet.Cells.EntireColumn.AutoFit
end with

A présent, j'ai un autre souci, c'est de centrer toutes les cellules. Sais-tu ce qui ne va pas dans le code suivant:

objWorkSheet.Cells.HorizontalAlignment = xlCenter

Il ne reconnait pas xlCenter... j'ai essayé objWorkSheet.xlCenter, là il semble reconnaîtrela variable xlCenter mais rien ne se passe.

 

[Minick]

Salut,

Pour moi ca passe sans pb.

Je ne comprend pas pkoi tu fais objWorkSheet.Cells.EntireColumn.AutoFit , ce n'est pas utile.

Pourrais tu mettre toute ta proc en ligne ou une pj pour que j'essaye de voir pkoi ca ne fonctionne pas chez toi.

@+
Minick

 

[Razy]

La procédure est longue et elle ne fonctionnerait pas sans le reste du code...

Il me dit "Erreur de compilation, variable non définie" pour xlCenter. Vu que je suis en VB et que j'ouvre un classeur Excel, il ne reconnaît pas cette variable. C'est pour ça que j'ai mis objWorkSheet.Cells

Merci... je continue à chercher

 

[Lord Nelson]

Salut Razy et Minick,

Si tu es en VB, il est possible que la constante XlCenter n'y soit pas déclarée. En VBA, sa valeur est -4108.
Essaie donc ceci :
objWorkSheet.Cells.HorizontalAlignment = -4108
à tout hasard...

A+
LN

 

[Razy]

Génial!!!

Ca marche!!! P'tite question, comment sais-tu que la valeur de la constante xlCenter est -4108??

Merci.

 

[Lord Nelson]

Elémentaire, mon cher Watson,

Soit tu apprends toutes les constantes par coeur, mais c'est assez fastidieux et peu productif...
Soit tu lances VBA et quelque part tu lui demandes d'afficher :
MsgBox xlCenter

A+
LN

 

[Razy]

Elémentaire en effet...

Merci... au moins je ne mourirai pas idiot!!!

A+