Rajouter une condition dans un input box

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

20/11/2018, 16h40
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:

Split(lavaleurdelinputbox, "/")

.

Pour simplification, et par précaution, je laisserais 5 et 7 puis effectuerais une concaténation avec "nom-".
20/11/2018, 21h58
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 ?
20/11/2018, 22h14
patricktoulon

re

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

Citation:

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 ;)
20/11/2018, 22h29
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 :)

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:

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
;)

21/11/2018, 10h20
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 ... :/

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:

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

21/11/2018, 13h08
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 ?
21/11/2018, 13h20
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.

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:

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

21/11/2018, 14h18
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.
21/11/2018, 14h45
patricktoulon

re

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)

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

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
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

21/11/2018, 15h30
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.
21/11/2018, 15h47
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 :D
21/11/2018, 16h05
patricktoulon

re

re
a la reception de l'input
x="1" & x
21/11/2018, 16h08
nivk-539

Super merci ça marche :)
21/11/2018, 16h39
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

la correction de la recption tu le fait apres !!

Code:

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 
    '.....
    '......

Voir 40 message(s) de cette discussion en une page