utiliser la notion de Rectangle

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 :calim2:
Autant que possible en VBA

Merci de vos conseils

Henri

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:

---

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

---

Bonjour,

Pour compléter le post de fring :

Code:

---

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

---