Dans VBA, j'essaye d'ajouter du texte dans une forme libre (dans une carte de france je voudrais mettre un nombre qui se trouve dans un tableau, j'ai déjà la couleur mais il me manque le chiffre )
 
Pour simplifier je teste avec une forme libre mais VB ne comprend pas cette ligne : Selection.Characters.Text = "texte"
alors que sur une forme automatique ( genre un rectangle ) ca marche très bien.
Le tout dans la même feuille du même classeur(feuille & classeur non protégé)
 
voici le code de test :  
ActiveSheet.Shapes("Formelibre" ).Select
        Selection.Characters.Text = "texte"
        With Selection.Characters(Start:=1, Length:=40).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        End With
End Sub
 
 
Merci de vos piste parce que là, ca fait un moment que je galère.
A+
L

Salut,via le macro recorder    
   

 
ou  
 

Cela me retourne encore :
Impossible de définir la propriété Text de la classe Characters.
 
Une autre idée, sachant que :
1°)  
Selection.Characters.Text="blabla"  
Selection.Text = "coucou"
Selection.TextFrame.Characters.Text = [a1]    
 
n'ont pas marché
 
Et que  
2°) par Forme libre, j'entends un dessin fait avec la ligne courbe et non pas un rectangle appelé "formelibre"
Dans ce cas, en cliquant droit sousExcel, le choix "ajouter du texte" n'existe pas.
 
 
D'autres pistes.
 
A+
L    

Petit Up.
Pas de réponse : veut dire = pas possible ?