Discussion :

[DJ FA]

Bonsoir j'ai cette macro qui me donne une chose du genre :

AAA99912345

Comment faire pour lui dire que: je voudrais que pour une série de chiffre 999 la couleur soit bleue, pour 888 verte et 777 rose, par exemple, merci à vous.
Code vb :

Code :

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

For n = 2 To Range("A2000").End(xlUp).Row With Range("A" & n).Characters(Start:=7, Length:=5).Font .FontStyle = "Gras" .ColorIndex = 3 .Size = 18 With Range("A" & n).Characters(Start:=4, Length:=3).Font .FontStyle = "Gras" .ColorIndex = 5 End With End With Next n

[Daniel.C]

Bonjour,

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
For n = 2 To Range("A2000").End(xlUp).Row
    With Range("A" & n).Characters(Start:=7, Length:=5).Font
        .FontStyle = "Gras"
        .ColorIndex = 3
        .Size = 18
    End With
 
    With Range("A" & n).Characters(Start:=4, Length:=3).Font
        .FontStyle = "Gras"
        Select Case Mid(Range("A" & n), 4, 3)
            Case "999": .ColorIndex = 5
            Case "888": .ColorIndex = 4
            Case "777": .ColorIndex = 7
        End Select
    End With
Next n

[Fluch]

Peut-être que ceci peut te convenir ...

Cela fonctionne quelque soit la position des 3 caractères recherchés dans la cellule. Je ne sais pas si cela correspond à ton besoin .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ma_procedure()
For boucle = 2 To 2000 ' 2000 est le nombre de lignes à scruter pour l'exemple
    valeur = Cells(boucle, 1) 'mémorisation de la cellule testée
    longueur = Len(valeur) 'quel est la longueur de la chaine
        For scrutation = 1 To longueur 'boucle pour chercher les conditions
            scrute = Mid(valeur, scrutation, 3) 'on retire les 3 caractères
                If scrute = "777" Then Cells(boucle, 1).Characters(Start:=scrutation, Length:=3).Font.Color = RGB(255, 100, 100) 'On inscrit les couleurs voulues
                If scrute = "888" Then Cells(boucle, 1).Characters(Start:=scrutation, Length:=3).Font.Color = RGB(100, 255, 100)
                If scrute = "999" Then Cells(boucle, 1).Characters(Start:=scrutation, Length:=3).Font.Color = RGB(100, 100, 255)
        Next scrutation
Next boucle
End Sub

[DJ FA]

Merci à vous deux, j'ai trouvé mon bonheur.