Discussion :

[DarkGriffin]

Bonjour,

Je suis devant un problème coriace, ou alors j'ai loupé un truc, j'espère que vous allez pouvoir m'aider.

Le but est simple :

j'ai une cellule qui contient un texte quelconque mais mise en forme (avec certains passages en gras, d'autres en italique, d'autres soulignés, etc...). Je voudrais insérer un mot dans ce texte à l'aide d'une macro sans modifier la mise en forme initiale !

Est-ce possible ? Merci d'avance

[Jean-Philippe André]

salut,
as-tu essayé de faire la manipulation que tu veux en enregistrant avec le macro recorder ?

quand tu dis insérer du texte, est-ce que le dit texte est dans un format différent de celui de la cellule ?

[DarkGriffin]

Non, le texte sera écrit le plus simplement du monde (à savoir dans le même format, sans gras ni italique, normal quoi).

Je viens d'essayer ta proposition, c'est une excellente idée, mais la macro risque d'être bien complexe puisqu'il faut repérer à l'avance la mise en forme de chaque caractère pour le restituer après avoir changé le texte, n'y a t-il pas plus simple ?

Ca me fait penser à la fonction "Remplacer" dans excel, je vais voir ce qu'elle donne si je place un code particulier à l'endroit où je veux insérer le texte, ça peut se faire non ?

merci en tout cas

[Jean-Philippe André]

peux-tu nous donner le code généré par le macro recorder stp ? On va essayer de partir de ça pour avancer ensemble

[DarkGriffin]

Voici ce que ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 04/09/2009 par PC
'
 
'
    Range("D1").Select
    ActiveCell.FormulaR1C1 = _
        "Texte à modifier : 'caractères en gras' + (caractères insérés) + 'caractères en italique'"
    With ActiveCell.Characters(Start:=1, Length:=18).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=19, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=20, Length:=20).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=40, Length:=26).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=66, Length:=24).Font
        .Name = "Arial"
        .FontStyle = "Italique"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D2").Select
End Sub

[Jean-Philippe André]

la méthode qui me parait la moins contraignante serait de copier le contenu de la cellule dans une autre, et faire du caractère par caractère pour mettre à jour les formats une fois l'insertion de texte faite...
ton insertion est-elle au moins en automatique ou bien doit elle prendre en compte la saisie de l'utilisateur ?