Discussion :

[ola-oz]

Bonjour Développeurs, Développeuses,

J'ai besoin d'un petit coup de pouce de votre part.

Je dois créer une macro en VBA, qui récupère la shape activée par l'utilisateur et qui change le format du texte, et la taille.
jusque là, tout va bien.

Mais le problème est que je dois mettre la première ligne de ma shape en italique et la deuxième en gras.

Comment je fais pour passer d'une ligne à une autre????

[Invité]

Bonjour

Dans la mesure où tes deux lignes sont séparées par un retour chariot.

Code à mettre dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub test(objShp As Shape)
    With objShp.TextFrame.TextRange
        .Paragraphs(1).Font.Italic = msoTrue
        .Paragraphs(2).Font.Bold = msoTrue
    End With
End Sub

Ensuite sélection de la routine test dans les actions de la forme.

Philippe

[ola-oz]

Re,
merci pour votre aide, j'ai une autre question, comment je fais pour détecter un "retour chariot"???

[PPz78]

Il y a un caractère spécial entre les deux parties du texte.
De mémoire il doit s'agir de Chr(13) ou de Chr(10).
Un petit programme et des tests te permettront de lever ce doute.
A+

[ola-oz]

merci

[PPz78]

Pour les suivants peux tu nous préciser si c'est Chr(13) ou Chr(10).
Puis ajouter résolu.

Merci

[ola-oz]

Bonjour,
le bon caractère est: Chr(13)