Discussion :

[david-lt]

Bonjour à tous,
je viens chercher de l'aide après avoir écumé plusieurs forums sur un code qui me semblait simple à définir à la base.

Voilà mon problème, j'ai ajouté une zone de texte ("Label 3") dans une feuille excel que je viens modifier à chaque mise à jour.
Mon problème est que je souhaiterais modifier la police et la taille des caractères de cette zone de texte mais impossible.

Je vous ai mis un des codes que j'ai essayé. La première ligne fonctionne parfaitement mais pas la fonction With.

Code :

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

1
2
3
4
5
6
 
If nbR <> 0 Then oSh.Shapes("Label 3").TextFrame.Characters.Text = "R     " & Int(maxP / PR) + 1 Else oSh.Shapes("Label 3").TextFrame.Characters.Text = "R"
    With oSh.Shapes("Label 3").TextFrame.Characters.Font
        .Name = Arial
        .Size = 10
    End With

J'enrage de rester bloquer sur un détail comme ça.

[Menhir]

Le plus simple est de passer par TextEffect.
https://msdn.microsoft.com/fr-fr/vba...property-excel

[david-lt]

Bonjour Menhir,
j'ai essayé cette syntaxe mais l'erreur persiste, pourtant la syntaxe me semble correcte.

Code :

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

1
2
3
4
5
    If nbR <> 0 Then oSh.Shapes("Label 3").TextFrame.Characters.Text = "R     " & Int(maxP / PR) + 1 Else oSh.Shapes("Label 3").TextFrame.Characters.Text = "R"
    With oSh.Shapes("Label 3").TextEffect
        .FontName = Arial
        .FontSize = 10
    End With

Qu'en penses-tu ?

[unparia]

Bonjour
Je n'ai aucun problème avec ce code

Code :

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

1
2
3
4
With Shapes("ZoneTexte 1").TextEffect
  .FontSize = 20
  .FontName = "Arial"
End With

Mais comme j'ai bu mon café et que je suis bien réveillé, je sais mettre entre guillemets ce qui est une variable String (FontName), hein ...

[david-lt]

Je viens de réessayer en transformant .FontName = Arial en .FontName = "Arial".

Cette fois-ci l'erreur change, excel me donne : L'accès à ce membre n'est pas possible que pour u objet WordArt

[unparia]

Et quel objet (exactement) as-tu inséré, toi ?
Moi, j'ai inséré ce que tu semblais avoir inséré (ce que tu as écrit) :

j'ai ajouté une zone de texte

[david-lt]

Effectivement je m'exprime sans doute pas clairement, j'ai inséré via Affichage => barre d'outils => formulaire, une étiquette.
Je parle de zone de texte parce que je m'en sers comme tel mais c'est bien une étiquette.

[patricktoulon]