Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Modifier le texte d'une forme par macro

Modifier le texte d'une forme par macro

3 réponses
Avatar
Fredo(67)
Bonjour,

Soit une feuille avec 1 forme nommée CASE_01

Soit une macro destinée Í  modifier le texte affiché dans cette forme
pour lui appliquer une valeur notée dans la cellule M1

J'ai tenté ce code, mais il ne semble pas fonctionner
Sub BLOCK_Z()
Dim Sh As Shape
Sh.CASE_01.Caption = Range("m1").Value
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichD
Le 09/05/22 Í  05:06, Fredo(67) a écrit :
Bonjour,
Soit une feuille avec 1 forme nommée CASE_01
Soit une macro destinée Í  modifier le texte affiché dans cette forme
pour lui appliquer une valeur notée dans la cellule M1
J'ai tenté ce code, mais il ne semble pas fonctionner
Sub BLOCK_Z()
Dim Sh As Shape
Sh.CASE_01.Caption = Range("m1").Value
End Sub

Bonjour,
LaShape = "Nom de la form shape"
with worksheets("Feuil1")
.Shapes("LaShape").OLEFormat.Object.Text = .Range("m1").Valueur
End with
MichD
Avatar
MichD
Le 09/05/22 Í  06:06, MichD a écrit :
Le 09/05/22 Í  05:06, Fredo(67) a écrit :
Bonjour,
Soit une feuille avec 1 forme nommée CASE_01
Soit une macro destinée Í  modifier le texte affiché dans cette forme
pour lui appliquer une valeur notée dans la cellule M1
J'ai tenté ce code, mais il ne semble pas fonctionner
Sub BLOCK_Z()
Dim Sh As Shape
Sh.CASE_01.Caption = Range("m1").Value
End Sub

Bonjour,
LaShape = "Nom de la form shape"
with worksheets("Feuil1")
    .Shapes("LaShape").OLEFormat.Object.Text = .Range("m1").Valueur
End with
MichD

.Valueur doit être ".Value"
MichD
Avatar
Fredo(67)
Le lundi 9 mai 2022 Í  12:50:05 UTC+2, MichD a écrit :
Le 09/05/22 Í  06:06, MichD a écrit :
Le 09/05/22 Í  05:06, Fredo(67) a écrit :
Bonjour,
Soit une feuille avec 1 forme nommée CASE_01
Soit une macro destinée Í  modifier le texte affiché dans cette forme
pour lui appliquer une valeur notée dans la cellule M1
J'ai tenté ce code, mais il ne semble pas fonctionner
Sub BLOCK_Z()
Dim Sh As Shape
Sh.CASE_01.Caption = Range("m1").Value
End Sub

Bonjour,
LaShape = "Nom de la form shape"
with worksheets("Feuil1")
.Shapes("LaShape").OLEFormat.Object.Text = .Range("m1").Valueur
End with
MichD
.Valueur doit être ".Value"
MichD

Ok merci beaucoup