Discussion :

[Henri-gp]

Bonjour,

Excel 2010

Comment utiliser la notion de Rectangle ?
Et comment écrire une valeur (en pourcentage) à l’intérieur d'un Rectangle ?
Par exemple ma cellule H44 et divisé en deux rectangle avec une valeur xx % comme l’image qui suit en exemple de ce que je voudrai refaire, mais je ne vois pas du tous comment y arriver
Autant que possible en VBA

Merci de vos conseils

Henri

[fring]

Bonjour,

Chaque objet (par exemple le rectangle) a un nom que tu peux voir dans la "Zone Nom" en sélectionnant cet objet.

Pour y ajouter du texte tu peux faire comme ceci :

Code :

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

Sheets("NomFeuille").Shapes("NomObjet").TextFrame.Characters.Text = "Texte à insérer"

[Daniel.C]

Bonjour,

Pour compléter le post de fring :

Code :

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

1
2
3
4
5
6
    Dim sh As Shape
    Set sh = Sheets("Feuil1").Shapes("Rectangle 2")
    sh.TextFrame.HorizontalAlignment = xlHAlignCenter
    sh.TextFrame.VerticalAlignment = xlVAlignCenter
    sh.TextFrame.Characters.Text = Format(0.095, "00%")
    sh.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = RGB(255, 0, 0) 'rouge pétant