Discussion :

[patricktoulon]

re bonjour a tous
j'arrive au bout de la réécriture de mon app (devis/facture/visite/visite usine)

et puisque j'y suis je revois entièrement mon app CDO MAIL
fini les userforms et bouton et wysiwyg dans un webbrowser

n'ayant aucun soucis a convertir en table ou en texte formaté une plage excel je vais donc me servir d'un sheets comme wysiwyg puisque j'ai tout les outils texte a dispo(plus ou moins)

j'ai cependant un besoins automatique
je voudrais que:
quand je modifie la couleur de fond d'une cellule dans la cellule d'après a droite s'inscrive un repere du genre"*" ou ce que vous voulez
quand je modifie la couleur ((((de texte complet !!!!))))d'une cellule dans la 2d cellule d'après(donc offset(,2)) a droite s'inscrive un repere du genre "*" ou ce que vous voulez
de façon a ce que selon ces cellules je puisse décider de la stratégie de conversion
une image pour ilustrer

[Pierre Fauconnier]

Salut.

C'est à mon avis impossible à faire. il n'y a pas d'évènement sur la couleur en VBA pour Excel. La seule solution +/- potable serait de modifier la couleur d'une cellule par un bouton du ruban ou d'un clic droit personnalisé, pour appeler la fenêtre de choix des couleurs et piloter ce qui se passe après avoir choisi une couleur.

[patricktoulon]

re pierre
et oui c'est un peut mon soucis en fait (ca n'existe pas )
n'y a t il pas quelque chose a faire avec les MFC sinon tant pis je ferais un contrôle ligne par ligne lors de la conversion

[Pierre Fauconnier]

Tu pourrais modifier la couleur par mfc sur base de la modification d'une cellule. Dès lors, tu pourrais utiliser la valeur de la cellule que tu modifies au sein d'une formule qui afficherait l'astérisque. Je ne sais pas répondre plus en détails car tu n'expliques pas pourquoi tu changes la couleur de la cellule. Une chose est sûre, avec Excel, c'est la couleur qui peut être modifiée sur base de la modification d'une valeur dans une cellule et non l'inverse.

[patricktoulon]

re
je change la couleur de la cellule ou du font a mon gré comme un wysiwyg

je récupère après la plage avec le .Value(xlRangeValueXMLSpreadsheet)


tant pis je vais faire ligne par ligne (20 lignes c'est pas la mer a boire )

une esquisse comme ca vite fait

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
Sub testconvert()
    Dim rng1 As Range
    Set rng1 = Range("C6:C20")
    MsgBox convertione(rng1)
End Sub
Public Function convertione(rng As Range)
    Dim code
    For i = rng.Row To rng.Cells(rng.Cells.Count).Row
        t = Split(rng.Parent.Cells(i, "C").Value(xlRangeValueXMLSpreadsheet), "Table")(1)
        t = Replace(t, "ss:", "")
        Debug.Print t
        t = Split(Split(t, "<Cell")(1), "</Cell")(0)
        If t Like "*=""String"">*" Then
            t = Split(t, "=""String"">")(1)
        ElseIf t Like "*-html40"">*" Then t = Split(t, "-html40"">")(1)
        Else
            t = " "
        End If
        t = "<P>" & t & "</P>"
        t = Replace(Replace(t, "</Data>", ""), "html:", "")
        code = code & vbCrLf & t
    Next
    convertione = code
End Function

resultat