Discussion :

[nivk-539]

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

[MarcelG]

Bonjour,

Personnellement, j'écrirais les 2 occurrences sur 2 cellules différentes.
Soit directement sur la feuille de travail, soit )à partir d'un formulaire.

Cela dit, il est vrai que l'on peut découper le résultat de ton Input Box par la méthode

Code :

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

Split(lavaleurdelinputbox, "/")

.

Pour simplification, et par précaution, je laisserais 5 et 7 puis effectuerais une concaténation avec "nom-".

[nivk-539]

Merci pour ta réponse.
Cependant je ne vois pas comment l'intégrer à mon programme ...
Il faut que je créer une autre variable qui prend cette fonction split ?

[patricktoulon]

re j
e peux comprendre pourquoi tu n'y arrive pas a l'integrer
relis cette phrase je te cite

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

tu peux t'expliquer
par ce que moi je comprends
si je met 5 c'est de 1 a 5 si je met 5 / 7 c'est tout en orange

maintenant il faut savoir
tes (nom-5,nom-7,etc..) sont il contigues ou pas
par ce que si c'est pas le cas un simple filtre te selectionne tes cellule et avec specialcells tu applique ta couleur

il faut etre plus precis dans ta demande

[nivk-539]

Oui excuse moi.
En fait j'ai une colonne qui contient des noms (nom-1 dans la première cellule jusqu'à nom-n dans la n-ième cellule).
Dans mon code précédent, si j'entre dans mon input box "nom-n", mes cellules de nom-1 jusqu'à nom-n s'affichent en orange et les cellules de nom-n+1 jusqu'à la dernière cellule en bleue.
Par exemple si j'entre "nom-5", les cellules de nom-1 à nom-5 s'affichent en orange et de nom-6 jusqu'à la fin en bleu. En tout cas ça marche.
Ce que souhaite faire maintenant, c'est de rajouter une condition qui ferait en sorte que si j'entre dans mon input box "nom-n-/-n+2", les cellules de nom-1 jusqu'à nom-n, ainsi que celles de nom-n+2 jusqu'à la dernière s'affichent en orange. Par contre la cellule qui est comprise entre nom-n et nom-n+2 s'affiche en bleu.
Par exemple, si je mets dans mon inputbox "nom-5-/-7", les cellules de nom-1 jusqu'à nom-5 et de nom-7 à la dernière s'affichent en orange. Par contre la cellule nom-6 s'affiche en bleu.
Merci

[patricktoulon]

re

ok mais a tu envisagé toutes les possibilités

imagine que "nom-5" n'y est pas mais que "nom-7" y est

que fait on avec "nom-7" ????????

on met en orange de 7 a la fin et de 1 a 6 en bleu

OU !!!!
de 1 a 7 en orange et le reste en bleu

de meme que si 7 n'y est pas mais que 5 oui ; tout ce qui suit doit etre en bleu ?????



bref si je me contente de ton exposé

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
Sub test()
    Dim x$, c1 As Range, c2 As Range, nums As Variant
    x = InputBox("entrez un/deux numeros")
    If x <> vbNullString And x Like "*#/#*" Then    ' si on annule pas et que la chaine tapée correspond a un chiffre + "/" + un chiffre
 
        nums = Split(x, "/")
 
        With Sheets(1).Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
 
            'on met tout en bleu au depart
            .Parent.Range(.Cells(1, 1), .Cells(.Cells.Count)).Interior.Color = RGB(0, 150, 255)
            'on cherche le 1°chiffre nom-+ nums(0)
            Set c1 = .Find("nom-" & nums(0), lookat:=xlWhole)
            'on cherche le 2d chiffre nom-+ nums(1)
            Set c2 = .Find("nom-" & nums(1), lookat:=xlWhole)
            'si c1 n'est pas rien
            If Not c1 Is Nothing Then .Parent.Range(Cells(1, 1), c1).Interior.Color = RGB(255, 200, 50) Else mess = mess & "la cellule contenant  ""nom-" & nums(0) & """  n'existe pas !!" & vbCrLf
            'si c2 n'est pas rien
            If Not c2 Is Nothing Then .Parent.Range(c2, .Cells(.Cells.Count)).Interior.Color = RGB(255, 200, 50) Else mess = mess & "la cellule contenant ""nom-" & nums(1) & """  n'existe pas !!" & vbCrLf
 
            If mess <> "" Then MsgBox mess
        End With
    Else
        MsgBox "la chaine tapée ne correspond pas a la chainne attendue!!!!"
    End If
End Sub

selon ta consideration pour ma premiere question du 1° chiffre absent le code peut considerablement etre différent
je ne sais pas si tu avais envisagé ces possibilité de variantes au quel cas demande

[nivk-539]

En fait il faut que dès que j'ai un slash, la cellule correspondante s'affiche en bleu.
Si par exemple je mets dans mon inputbox "nom-1-/-3-5-/-/-8-15" :
nom-1 s'affiche en orange
nom-2 en bleu
nom-3 à nom-5 en orange
nom-6 et nom-7 en bleu
nom-8 à nom-15 en orange

Je sais c'est compliqué mais ce qui me bloque, c'est que finalement ces variantes ne sont pas inscrites dans ma colonn, je n'ai en effet que nom-1 à nom-15 dans ma colonne A ... :/

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Dans ce cas tu oublies l'InpuBox

Ici.

4 cellules nommées "borne_x" (x de 1 à 4)
Les cellules à colorer sont situées en colonne 4.

A ADAPTER (couleurs, adresses de 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
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Public Sub colore_cellules()
 
Dim lorange As Long
Dim levert As Long
 
lorange = RGB(10, 20, 30)
levert = RGB(5, 45, 230)
 
Dim i As Byte
 
With Worksheets(1)
 
        For i = 1 To .[borne_1]
                .Cells(i, 4).Interior.Color = lorange
        Next i
 
        For i = .[borne_1] + 1 To .[borne_2]
                .Cells(i, 4).Interior.Color = levert
        Next i
 
        For i = .[borne_2] + 1 To .[borne_3]
                .Cells(i, 4).Interior.Color = lorange
        Next i
 
        For i = .[borne_3] + 1 To .[borne_4]
                .Cells(i, 4).Interior.Color = levert
        Next i
 
End With
 
 
End Sub

[nivk-539]

Bonjour Marcel G,

Si je comprends bien, il faut que je considère que lorsque je met un "-/-" dans mon inputbox, la cellule correspondante s'affiche en bleu ?
Si oui, il faut que je créer variable de type cellule ?

[MarcelG]

Salut,

Tu laisses tomber l'InputBox.
Regarde mon dernier post.
Les critères entrés initialement dans l'input de ton message, sont reportées sur 4 cellules différentes.

Essaie d'adapter (j'insiste) le code proposé à ton cas.

[patricktoulon]

bonjour
M
ou organiser ton inputbox autrement
en premier lieu pour la premiere tranche qui commence donc au debut de la plage il faut le preciser ce sera plus simple
ensuite incrire une chaine dans l'inputbox qui soit relativement simple a decanter avec un separateur distinct une "," pour l'exemple

exemple

dans l'input je met
1/5,12/19,22,27,31/39,41/47

alors la je demande quoi?
et bien

la serie de 1 a 5
la serie de 12 a 19
le nom 22
le nom 27
la serie de 31 a 39
la serie de 41 a 47
et le code ca donne ca

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
Sub test()
    Dim x$, c1 As Range, c2 As Range, nums As Variant, serie As Variant
    x = InputBox("entrez un/deux numeros")
    If x <> vbNullString Then     ' si on annule pas et que la chaine tapée correspond a un chiffre + "/" + un chiffre
        With Sheets(1).Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
            'on met tout en bleu au depart
            .Parent.Range(.Cells(1, 1), .Cells(.Cells.Count)).Interior.Color = RGB(0, 150, 255)
            serie = Split(x, ",")
            For s = 0 To UBound(serie)
                If Not serie(s) Like "*/*" Then serie(s) = serie(s) & "/" & serie(s)
                nums = Split(serie(s), "/")
                'on cherche le 1°chiffre nom-+ nums(0)
                Set c1 = .Find("nom-" & nums(0), lookat:=xlWhole)
                'on cherche le 2d chiffre nom-+ nums(1)
                Set c2 = .Find("nom-" & nums(1), lookat:=xlWhole)
                critere = Not c1 Is Nothing And Not c2 Is Nothing
                'si c1 n'est pas rien
                MsgBox critere
                If critere Then .Parent.Range(c1, c2).Interior.Color = RGB(255, 200, 50) Else mess = mess & "la plage contenant  ""nom-" & nums(0) & """ & ""nom-" & nums(1) & """ n'existe pas !!" & vbCrLf
                If mess <> "" Then MsgBox mess
            Next
        End With
    Else
        MsgBox "vous avez annulé"
    End If
 
End Sub

il faudrait donner toute les informations au depart sinon on fini jamais
coucou Marcel

[MarcelG]

Salut Patrick,

OK pour ton code.
Mais ne crois-tu pas qu'une erreur de saisie arriverait vite alors.
Et là, le bug ne serait pas loin.

A mon avis, des cellules bien informées, ou bien des contrôles Textbox différents rendraient la saisie plus sûre.

[patricktoulon]

re
sans doute
on peut aussi blinder le start par rapport a la saisie renvoyé
en analysant la serie et le format de la serie et de nums(x)

[patricktoulon]

re
avec gestion d'erreur de saisie
me dire si j'ai raté quelque chose

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
Sub test()
    Dim x$, c1 As Range, c2 As Range, nums As Variant, serie As Variant
    x = InputBox("entrez un/deux numeros")
    If x <> vbNullString Then     ' si on annule pas et que la chaine tapée correspond a un chiffre + "/" + un chiffre
        With Sheets(1).Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
            'on met tout en bleu au depart
            .Parent.Range(.Cells(1, 1), .Cells(.Cells.Count)).Interior.Color = RGB(0, 150, 255)
            serie = Split(x, ",")
            For s = 0 To UBound(serie)
                If Not serie(s) Like "*/*" Then serie(s) = serie(s) & "/" & serie(s)
                If IsNumeric(Replace(serie(s), "/", "")) And serie(s) Like "*#/#*" Then
                    nums = Split(serie(s), "/")
                    'on cherche le 1°chiffre nom-+ nums(0)
                    Set c1 = .Find("nom-" & nums(0), lookat:=xlWhole)
                    'on cherche le 2d chiffre nom-+ nums(1)
                    Set c2 = .Find("nom-" & nums(1), lookat:=xlWhole)
                    critere = Not c1 Is Nothing And Not c2 Is Nothing
                    'si c1 n'est pas rien
                    If critere Then .Parent.Range(c1, c2).Interior.Color = RGB(255, 200, 50) Else mess = mess & "la plage contenant  ""nom-" & nums(0) & """ & ""nom-" & nums(1) & """ n'existe pas !!" & vbCrLf
                Else
                    mess = " la serie " & serie(s) & " n'est pas valide" & vbCrLf
                End If
                Next
                If mess <> "" Then MsgBox mess
            End With
        Else
            MsgBox "vous avez annulé"
        End If
    End Sub

l'input doit etre
1/#,#/#,#/#
ou pour qu'une cellule parmis d'autre
1/#,#/#,#,#,#,#,#/#,# etc... etc.....
je precise pour kev_cr359 que les # representent des nombres

[MarcelG]

Patrick,

Code effectif.

Comme j'avais informé les cellules par formules (="Nom-" & LIGNE()), j'ai dû également informer le critère de recherche Lookin (xlValues)
J'ai aussi testé le cas où le 2ème chiffre est inférieur au 1er. Code effectif également.

[nivk-539]

Merci beaucoup à vous 2, ton code marche parfaitement patrick!
Juste une chose, comment je pourrais faire pour considérer que tout ce qui est mis avant mon slash de mon premier numéro soit en orange ?
Si on reprend l'exemple avant (1/5,12/19,22), j'aimerai juste faire en sorte de considérer que tout ce qu'il y a avant /5 soit en orange.
De même si ma série est : /7,12/19 toutes les cellules avant 7 soient en orange.
Dans ton premier programme c'est ce qui se passait mais là ça n'est pas possible ?
Merci beaucoup en tout cas tu m'est d'une grande aide

[patricktoulon]

re
a la reception de l'input
x="1" & x

[nivk-539]

Super merci ça marche

[nivk-539]

Le seul problème quand j'intègre "1" le message "vous avez annulé" ne s'affiche plus lorsque je clique sur le bouton annuler

[patricktoulon]

la correction de la recption tu le fait apres !!

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim x$, c1 As Range, c2 As Range, nums As Variant, serie As Variant
    x = InputBox("entrez un/deux numeros")
    If x <> vbNullString Then     ' si on annule pas et que la chaine tapée correspond a un chiffre + "/" + un chiffre
     x="1" & x 
    '.....
    '......