Colorier une partie d'une chaine de caractere

[SOM58]

Bonsoir à tous

Est il possible en code vba de colorier la premiere partie d'une chaine de caractere jusqu'au premier espace dans une cellule ex. (chantier N°23)

merci à tous de votre contribution

Som

 

[phlaurent55]

Re : Colorier une partie d'une chaine de caractere

Salut SOM58

un petit essai en pièce jointe...................à adapter

 

[James007]

Re : Colorier une partie d'une chaine de caractere

Bonjour,

Oui ... avec une macro si ta cellule est A1:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("A1")
With Target.Characters(Start:=1, Length:=8).Font
        .ColorIndex = vbRed
End With
End Sub

A +

 

[Pierrot93]

Re : Colorier une partie d'une chaine de caractere

Bonjour som

regarde le code ci dessous :

If InStr(Range("A1").Value, " ") <> 0 Then _
    Range("A1").Characters(1, InStr(Range("A1").Value, " ") - 1).Font.ColorIndex = 3

bonne soirée
@+

Edition : bonsoir phlaurent, james

 

[SOM58]

Re : Colorier une partie d'une chaine de caractere

bonsoir phlaurent, james pierrot

merci de vos reponses si rapides
comme je n'avais pas precisé que la premiere chaine de caractere etait variable donc seule le code de pierrot me convient,

je vais tenter de faire une boucle sur la colonne B avec ce code ....

merci à tous et bonne soirée

SOM

 

[SOM58]

Re : Colorier une partie d'une chaine de caractere

voici le code de pierrot avec une boucle sur la colonne C ,si ca peut interessé quelqu'un

Sub ESSAIS()
Dim i As Integer
Range("C1:C100").Select
Selection.Font.ColorIndex = 0 'je remets tout en noir

'ici chaine de caractere en rouge avant le premier espace
For i = 1 To 100
If InStr(Cells(i, 3).Value, " ") <> 0 Then _
Cells(i, 3).Characters(1, InStr(Cells(i, 3).Value, " ") - 1).Font.ColorIndex = 3
Next i
End Sub