PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Format texte d'une cellule Excel
Format texte d'une cellule Excel
Débuté par Anne, 22 juil. 2004 17:18 - 8 réponses
Posté le 22 juillet 2004 - 17:18
Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne
Posté le 22 juillet 2004 - 17:30
j'ai oublié qq chose:
je n'arrive pas non plus à changer les marges de la feuille

"Anne" <atcamus@mordacq.com> wrote:


Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne
Posté le 22 juillet 2004 - 17:35
"Anne" <atcamus@mordacq.com> wrote:


Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne


C'est juste une idée, je ne sais pas si cela marchera mais as-tu essayé :
MaFeuilleXLS>>Range("A2")>>Font>>Align=Center ???
Posté le 22 juillet 2004 - 18:03
Non, ça ne marche pas: "Align n'est pas reconnu"

"Gilles GABET" <gilles.gabet@neuf.fr> wrote:


"Anne" <atcamus@mordacq.com> wrote:


Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne


C'est juste une idée, je ne sais pas si cela marchera mais as-tu essayé

:
MaFeuilleXLS>>Range("A2")>>Font>>Align=Center ???
Posté le 22 juillet 2004 - 18:37
Cela devrait fonctionner je pense:

MaFeuilleXLS>>Range("A2")>>HorizontalAlignment = xlCenter

"Anne" <atcamus@mordacq.com> wrote:


Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne
Posté le 22 juillet 2004 - 19:01
j'ai essayé avec xlCenter entre " car sinon erreur de compilation, mais ça
ne fonctionne pas non plus: erreur =>
"Vous accédez au membre Automation HorizontalAlignment.
Erreur 800A03EC : Impossible de définir la propriété HorizontalAlignment
de la classe Range.
Erreur 80020005, Type incorrect pour le paramètre 1
...."

"Aurélien Machabert" <43@gauthiersa.fr> wrote:


Cela devrait fonctionner je pense:

MaFeuilleXLS>>Range("A2")>>HorizontalAlignment = xlCenter

"Anne" <atcamus@mordacq.com> wrote:


Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne

Posté le 23 juillet 2004 - 12:29
Je ne vois pas trop alors malheureusement !!!!


"Anne" <atcamus@mordacq.com> wrote:


j'ai essayé avec xlCenter entre " car sinon erreur de compilation, mais

ça
ne fonctionne pas non plus: erreur =>
"Vous accédez au membre Automation HorizontalAlignment.
Erreur 800A03EC : Impossible de définir la propriété HorizontalAlignment
de la classe Range.
Erreur 80020005, Type incorrect pour le paramètre 1
..."

"Aurélien Machabert" <43@gauthiersa.fr> wrote:


Cela devrait fonctionner je pense:

MaFeuilleXLS>>Range("A2")>>HorizontalAlignment = xlCenter

"Anne" <atcamus@mordacq.com> wrote:


Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne


Posté le 23 juillet 2004 - 14:01
ça y est, j'ai enfin trouvé!!
pour changer les marges d'une feuille excel:
MaFeuilleXLS>>Sheets("Feuil1")>>PageSetup>>LeftMargin = 0.5

et pour centrer un texte d'une cellule:
MaFeuilleXLS>>Range("A6")>>HorizontalAlignment =-4108

"Aurélien MACHABERT" <43@gauthiersa.fr> wrote:


Je ne vois pas trop alors malheureusement !!!!


"Anne" <atcamus@mordacq.com> wrote:


j'ai essayé avec xlCenter entre " car sinon erreur de compilation, mais
ça

ne fonctionne pas non plus: erreur =>
"Vous accédez au membre Automation HorizontalAlignment.
Erreur 800A03EC : Impossible de définir la propriété HorizontalAlignment
de la classe Range.
Erreur 80020005, Type incorrect pour le paramètre 1
..."

"Aurélien Machabert" <43@gauthiersa.fr> wrote:


Cela devrait fonctionner je pense:

MaFeuilleXLS>>Range("A2")>>HorizontalAlignment = xlCenter

"Anne" <atcamus@mordacq.com> wrote:


Bonjour,

Dans un projet, j'arrive à créer une feuille excel, à changer la police,
la couleur, ... d'un texte d'une cellule:
MaFeuilleXLS>>Range("A2")>>Font>>Bold=True
MaFeuilleXLS>>Range("A2")>>Font>>Italic=True
MaFeuilleXLS>>Range("A2")>>Font>>Color=RGB(255, 0, 0)
MaFeuilleXLS>>Range("A2")>>Font>>Size
MaFeuilleXLS>>Range("A2")>>Font>>Name="Comic Sans MS"

mais je n'arrive pas à centrer le texte dans la cellule.
Avez vous une idée?
Merci
Anne



Posté le 24 juillet 2004 - 03:25
"Anne" <atcamus@mordacq.com> wrote:


j'ai essayé avec xlCenter entre " car sinon erreur de compilation, mais

ça
ne fonctionne pas non plus: erreur =>
"Vous accédez au membre Automation HorizontalAlignment.
Erreur 800A03EC : Impossible de définir la propriété HorizontalAlignment
de la classe Range.
Erreur 80020005, Type incorrect pour le paramètre 1
..."


MaFeuilleXLS>>Range("A2")>>HorizontalAlignment = xlCenter
Si tu envoies ça, c'est clair qu'il y a plantage.
Il faut envoyer la constante (valeur numérique)
Donc :
MaFeuilleXLS>>Range("A2")>>HorizontalAlignment = -4108 (Attention c'est :
moins 4108)

Tu peux trouver les valeurs des constantes dans l'explorateur d'objet sous
l'éditeur VB de Excel :
Menu outil > Macros > VB Editor
Dans la fenêtre recherche le bouton "Explorateur d'objet" pour ouvrir cet
explorateur, ensuite recherche xlCenter (bouton jumelle), et tu trouveras
la constante en bas de l'écran. Moi, je fonctionne comme ça, et j'ai toujours
réussi.
En effet, si tu te bases sur les macros pour trouver la syntaxe, tu vois
xlCenter, mais depuis ton application
tu dois envoyer la constante équivalente.

Aplus