Couleur sur Mot-clé individuelle (syntax highlighting)

Bonjours a vous les amis.

J'ai une petite question , n'ayant pas trouvé sur les moteurs de recherches.

J'aimerai s'avoir si il existe un script VBA, permettant de mettre des mots clé en couleur.

Un peu dans le principe de notepad++.

Je suis dans la réalisation d'un tableur de référence pour des travaux en programmation.

Et j'ajoute dans certaine page des modele aides-mémoires en javascript.

Le petit problème ces que j'aurai aimé avoir un peu de couleur syntaxique dans mes block aide-mémoire JS.

Example definire un code couleur a certaine mot-clé, ou peut être aussi mettre en gras.

Un peu dans ce style, je ne cherche pas quelque chose d'aussi performant que les logiciels bloc Note, un module me

permettant de choisir les mots clé a mettre en couleur.

Voila un petite example dun block text qui contient une ligne aide mémoire.

$dataSystem[1].meta.QuestType0 = function(Type) {

if (Type === 'Type') {

return 'true'

}

}

L'ide ces de me permettre d'arriver environ a ce rendu.

merci pour votre aide, je ne connait pas beaucoup le VBA

Bonjour,

Faisable mais un peu lourd.

Pour chaque mot il faut chercher sa position dans le texte et mettre les x caractères en couleur.

Ex :

[A1].Characters(Start:=6, Length:=3).Font.Color = 65280

met en vert du 6ème au 9e caractères.

Le point de départ est donc une table avec tous les mots mis en couleur, et après tu boucles, tu boucles...

eric

En effect sa semble un peu lourd au vue de votre explication.

Je me demandait si il y avait une faisabilité un peut simple.

Mais vue votre réponse , ça semble difficile a mettre en place sur Excel et vba.

Dommage que ce ne soit pas une function natif au programme, je vais me contenter de note Noir.

Cependant si quelqun a un code a me proposé, je suis preneur.

un exemple

eric

OMG! You rock

Super votre plugin.

Je prend avec joie, je vous remerci infiniments.

Avez vous quelque indice ou information sur la façon d'ajouter des mot clé et les codes couleurs.

Je n'est perçu aucune bibliothèque de mot ni de code Hexa ou RGB ???

Je ne connais pas trop la syntaxe VBA

Option Explicit

Sub colorSel()
    colorer Selection
End Sub

Sub colorer(plage As Range)
    'colorer mots clé de la plage
    Dim shL As Worksheet, motscle
    Dim c As Range, lig As Long
    Dim ch As String, ch2 As String, pos As Long, lch As Long

    Set shL = Sheets("Listes")
    motscle = shL.[A1].Resize(shL.Cells(Rows.Count, 1).End(xlUp).Row, 2).Value
    For lig = 2 To UBound(motscle)
        motscle(lig, 2) = shL.Cells(lig, 1).Font.color
    Next lig
    For Each c In plage
            ch = c.Value
            lch = Len(ch)
        For lig = 2 To UBound(motscle)
            pos = InStr(ch, motscle(lig, 1))
            Do While pos > 0
                c.Characters(Start:=pos, Length:=Len(motscle(lig, 1))).Font.color = motscle(lig, 2)
                If pos > 1 Then ch2 = Left(ch, pos - 1) Else ch2 = ""
                ch = ch2 & Application.Rept("µ", Len(motscle(lig, 1))) & IIf(pos + Len(motscle(lig, 1)) < lch, Mid(ch, pos + Len(motscle(lig, 1))), "")
                pos = InStr(ch, motscle(lig, 1))
            Loop
        Next lig
    Next c
End Sub

[size=150]EDIT: Laisser faire mon ami, j'avai lit trop rapidement la petite , bulle , tous est impecable.

Un grand merci[/size]