Rajouter une condition dans un input box
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:
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 |
