Bonjour,

J'ai crée un programme grâce auquel je peux colorer des cellules en fonction de ce que je mets dans un input Box.
Je m'explique : j'ai des noms (exemple : nom-5) dans ma colonne B. Lorsque j'entre par ex "nom-5" dans mon input, tout ce qu'il y avant se met en orange (nom-1 jusqu'à nom-5) et tout ce qu'il y a après en bleu (voir code). Par contre je suis bloqué pour la suite... J'aimerai ajouter une condition qui fait que lorsque je rentre dans mon input box par exemple "nom-5-/-7", toutes mes cellules avant nom-5 se mettent en orange ainsi que de nom-7 jusqu'à la fin, mais que nom-6 se mette en bleu. Je suis vraiment bloqué je ne vois pas vraiment comment faire ...

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
25
26
27
28
29
30
31
32
33
34
35
36
Sub COLOR_CASE()
    Dim DernLigne As Long
    Dim DernLigne1 As Long
    Dim ligne As Integer
    Dim valeur As String
    DernLigne = Range("B1048576").End(xlUp).Row
    valeur = InputBox("Veuillez entrer votre nom")
    If valeur <> "" Then
        For j = 1 To DernLigne
            If Range("B" & j).Value = valeur Then
                ligne = j + 1
                Exit For
            End If
        Next j
    End If
    For i = 1 To ligne
    Range("B" & i).Select
         With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Next i
    For i = ligne To DernLigne
        Range("B" & i).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Next i
End Sub