Insertion de caractères dans le texte d'une cellule

Version imprimable

04/09/2009, 09h12
DarkGriffin

Insertion de caractères dans le texte d'une cellule

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
04/09/2009, 09h40
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 ?
04/09/2009, 09h47
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
04/09/2009, 10h05
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 :)

Voici ce que ça donne :

Code:

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

04/09/2009, 10h30
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 ?
04/09/2009, 10h37
DarkGriffin

Malheureusement l'insertion est une saisie de l'utilisateur, mais ça reste jouable aussi non ?
04/09/2009, 10h48
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.
04/09/2009, 10h55
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"... :D

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

Merci