commentaires

[nono]

Salut le forum,

Voilà, j'ai un petit soucis avec mes commentaires : je veux simplement faire une action dans toutes les cellules où il y a un commentaire donc j'utilise ce petit code :

dim Sh as shapes, Co as string
'
For Each Sh In Worksheets('valider').Shapes
If Sh.Name = 'Commentss' & Cel.Row Then
Co = Sh.AlternativeText
End If
Next
'puis je fais mon p'tit bazarre

Ca fonctionne très bien sauf que devant mon texte se trouve à chaque fois 'Zone de texte: 'mon texte''

Ma question vous l'aurez compris est comment enlever ce 'Zone de texte :' !

Est-il par exemple possible d'enlever à une valeur de type string un passage donné ?

merci d'avance !

 

[myDearFriend!]

Bonsoir nono, le Forum,

Pas tout compris dans ton morceau de code (Dim Sh as shapes ???)... mais je suppose que tu devrais t'en sortir avec :

      Co = Sh.TextFrame.Characters.Text

Cordialement,

 

[nono]

Slt myDearFriend!, le forum,

en effet, je me suis gourré, c'était Dim Sh as shape et non pas shapes !!!

En tous les cas, ton code fonctionne super bien !!!
merci beaucoup et a+