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 ?

[DarkGriffin]

Malheureusement l'insertion est une saisie de l'utilisateur, mais ça reste jouable aussi non ?

[Jean-Philippe André]

C'est original comme méthode, mais pourquoi pas ^^

Tu dois prévoir la copie du contenu de la cellule selectionnée avant sa mise à jour (évènement du meme nom).
Ensuite tu trouve le différenciel entre l'ancien et le nouveau contenu de la cellule
Enfin tu mets à jour en prenant caractère par caractère le format du texte.

[DarkGriffin]

Ca ne tiendrait qu'à moi, je n'aurais pas fait comme cela, mais en bon sous-fifre, j'exécute avec ma rengaine favorite "vous inquiétez pas, tout est faisable en informatique"...

Ok, je vais tâcher de faire ça, je tiendrais au courant.

Merci