Discussion :

[exelan]

salut a tous

comment mettre en couleur certains mots dans un phrase avec mfc plutôt que vba

exemple :



merci de l aide !!!

[BENNASR]

bonjour
ce n'est qu'une réponse d'un débutant et autodidacte VBA donc méfiez vous
le MFC normalement agis sur toute une cellule et non pas une partie
La solution en VBA consiste à déterminer la position du mot à colorer et le langueur de ce mot avec la propriété Characters
supposons que dans la colonne A tu as des textes
en colonne B les mots à colorer
tu peux faire avec le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Long
With Sheets("feuil1")
i = .Range("A" & Rows.Count).End(xlUp).Row
For L = 2 To i
Chaine = .Cells(L, 1)
Position = InStr(Chaine, .Cells(L, 2))
Longueur = Len(.Cells(L, 2))
.Cells(L, 1).Characters(Start:=Position, Length:=Longueur).Font.Color = RGB(224, 0, 0)
Next L
End With

BONNE CONTINUATION

[Menhir]

comment mettre en couleur certains mots dans un phrase avec mfc plutôt que vba

On ne peut pas.

[exelan]

merci a vous 2

BENNASR
c pour un mot n importe ou dans la ligne même a cheval sur 2 cellules,les colonnes et cellules ne rentre pas en compte

Menhir
"On ne peut pas."
mais je c est que ça existe j ai vu ça dans un hôpital sur feuille excel et ça m étonnerais que sa soit colorer manuellement

[BENNASR]

voila un exemple d'explication

[exelan]

BENNASR
c pas ce que je veux, en fait une fois les mots écris même plusieurs fois dans la même ligne ou plusieurs lignes et colonnes a la "validation de la phrase"
tout les mots en question change de couleurs (plusieurs couleurs mais unique par mot)

[Menhir]

mais je c est que ça existe j ai vu ça dans un hôpital sur feuille excel

Et à l'hopital, ils t'ont dit que c'était fait avec une MFC ?
Tant que tu y étais, tu aurais du leur demander comment.

ça m étonnerais que sa soit colorer manuellement

Bin moi "ça m'étonnerais" que ça ait été fait avec une MFC.

même a cheval sur 2 cellules

La seule solution pour mettre un mot "à cheval sur deux cellule", c'est de le mettre dans une zone de texte.
Et une MFC ne peut pas s'appliquer à une zone de texte.

[exelan]

Menhir

Et à l'hopital, ils t'ont dit que c'était fait avec une MFC ?
Tant que tu y étais, tu aurais du leur demander comment.

je ne sais pas comment ça marche mfc,vba, ou autre et c pas la secrétaire qui doit le savoir non plus

Bin moi "ça m'étonnerais" que ça ait été fait avec une MFC.

j ai jamais dit ça !!!

La seule solution pour mettre un mot "à cheval sur deux cellule", c'est de le mettre dans une zone de texte.

ma piece jointe n est pas en texte mais en standard

merci a toi pour les précisions

[Menhir]

ma piece jointe n est pas en texte mais en standard

Dans ta pièce jointe, chacun des deux textes est entièrement dans une seule cellule, même si l'affichage peut laisser penser qu'une partie est dans une autre cellule.

[exelan]

Menhir

Dans ta pièce jointe, chacun des deux textes est entièrement dans une seule cellule, même si l'affichage peut laisser penser qu'une partie est dans une autre cellule.

d accord avec toi pour ça

et je suis bien arrive a modifier le mot en couleur avec mfc mais si ont met une phrase c toute la phrase qui change de couleur en gros c'est la cellules entière qui prend la couleur et pas le mot

[Menhir]

C'est ce que t'a expliqué BENNASR ( ) dès la première réponse.
Et c'est pourquoi je dis que ce que tu demandes (tel que tu le formule) n'est pas possible.

[BENNASR]

Bonjour 78chris, clementmarcotte,Menhir, exelan, la forum
en cherchant sur le net j'ai trouvé un code qui colore juste un mot d'une phrase dans une ou plusieurs cellules :

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 HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Range("A2:G4")
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

[exelan]

BENNASR
merci a toi de m avoir compris c est bien ce qu il me faut !!!

[BENNASR]

Citation Envoyé par exelan Voir le message
comment mettre en couleur certains mots dans un phrase avec mfc plutôt que vba
Citation Envoyé par BENNASR Voir le message
j'ai trouver un code
Citation Envoyé par exelan Voir le message
c est bien ce qu il me faut !!!
Cherchez l'erreur...

j'ai commencé par un BONJOUR et je recommence encore par bonjour
l'erreur c'est de charger le site par une contribution inutile !! qui ne porte pas de plus à aucune personne passe ou passera par ici
La réponse que j'ai posté a permis de résoudre le problème de ce monsieur et un éventuel futur utilisateur