ActiveSheet.Shapes("Oval 3").Select Selection.Characters.Text = "ceci est le nouveau texte" With Selection.Characters(Start:=1, Length:=26).Font .Name = "Calibri" .FontStyle = "Normal" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With Range("H18").Select ActiveSheet.Shapes("Oval 3").Select ActiveSheet.Shapes("Oval 3").Select Selection.Characters.Text = "texte modifié" With Selection.Characters(Start:=1, Length:=13).Font .Name = "Calibri" .FontStyle = "Normal" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
202 internautes nous ont dit merci ce mois-ci