PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Format texte d'une cellule Excel
Format texte d'une cellule Excel
Started by Anne, Jul., 22 2004 5:18 PM - 8 replies
Posted on July, 22 2004 - 5:18 PM
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
Posted on July, 22 2004 - 5:30 PM
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
Posted on July, 22 2004 - 5:35 PM
"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 ???
Posted on July, 22 2004 - 6:03 PM
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 ???
Posted on July, 22 2004 - 6:37 PM
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
Posted on July, 22 2004 - 7:01 PM
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

Posted on July, 23 2004 - 12:29 PM
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


Posted on July, 23 2004 - 2:01 PM
ç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



Posted on July, 24 2004 - 3:25 AM
"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