Discussion :

[nivk-539]

Bonjour à tous,

J'ai créé un code me permettant de renvoyer une chaine de caractère en fonction des couleurs de mes cellules.
Lorsque les cellules sont bleues ça me renvoit un "-/" et lorsqu'elles sont grises ça me renvoit un "-X". Ces cas là sont ok mais
lorsque mes cellules sont oranges, j'aimerais récupérer la valeur de la cellule concernée dans la boucle par le tiret et le chiffre présent à la fin (ex "-3").
Je sais d'où vient mon erreur (du y1) puisque je n'arrive pas à récupérer la valeur de la cellule affectée dans la boucle...
Quelqu'un peut-il m'aider ? je vous mets le fichier aussi

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub TEST()
On Error Resume Next
 
Dim DernLigne As Integer
Dim cel As Range, rng As Range
Dim y, y1
Dim O&, G&, B&
 
O = RGB(255, 200, 50): G = RGB(192, 192, 192): B = RGB(0, 150, 255)
 
With Worksheets("Feuil1")
    .Range("B4").Interior.Color = O
    .Range("B5").Interior.Color = B
    .Range("B6").Interior.Color = G
    .Range("B7").Interior.Color = B
    .Range("B8").Interior.Color = O
    .Range("B9").Interior.Color = O
    .Range("B10").Interior.Color = G
    .Range("B11").Interior.Color = B
    .Range("B12").Interior.Color = O
 
End With
 
y = Left(Worksheets("Feuil1").Range("B4"), 4)
 
DernLigne = Worksheets("Feuil1").Range("B65536").End(xlUp).Row
 
Set rng = Worksheets("Feuil1").Range("B4:B" & DernLigne)
 
    Worksheets("Feuil1").Range("D5").Value = y
 
    For Each cel In rng
        If cel.Interior.Color = O Then
 
                y1 = Mid(Worksheets("Feuil1").Range(cel).Value, 5)
 
                     Worksheets("Feuil1").Range("D5").Value = _
                         Worksheets("Feuil1").Range("D5").Value & y1
 
        ElseIf cel.Interior.Color = B Then
            Worksheets("Feuil1").Range("D5").Value = _
                Worksheets("Feuil1").Range("D5").Value & "-/"
        ElseIf cel.Interior.Color = G Then
            Worksheets("Feuil1").Range("D5").Value = _
                Worksheets("Feuil1").Range("D5").Value & "-X"
        End If
    Next cel
 
 
End Sub

[Menhir]

Je sais d'où vient mon erreur (du y1) puisque je n'arrive pas à récupérer la valeur de la cellule affectée dans la boucle...

Qu'est-ce qu'il se passe ?
Message d'erreur ? Quel message ?
Valeur incorrecte ? Quelle est la donnée source, la valeur souhaitée et la valeur obtenue ?

Commence par supprimer le On Error Resume Next en début de code. Ce genre d'horreur empêche d'analyser les problèmes.
Entre autre, ça t'a empêché de voir que tu ne mettais que deux paramètres à une fonction qui en demande trois.

je vous mets le fichier aussi

Beaucoup de participants de ce forum n'ouvrent pas les pièces jointes, surtout celles pouvant contenir des macros.

lorsque mes cellules sont oranges, j'aimerais récupérer la valeur de la cellule concernée dans la boucle par le tiret et le chiffre présent à la fin (ex "-3").

Par "chiffre présent à la fin", tu veux dire le caractère le plus à droite de la valeur contenue par la cellule ?
Si c'est le cas, il serait plus simple d'utiliser Right() plutôt que Mid().

Code :

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

1
2
Worksheets("Feuil1").Range("D5").Value = _
   Worksheets("Feuil1").Range("D5").Value & "-" & Right(cel.Text, 1)

[mercatog]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
 '....
   For Each Cel In Rng
        Select Case Cel.Interior.Color
            Case O: y1 = Mid(Cel, InStrRev(Cel, "-"))
            Case B: y1 = "-/"
            Case G: y1 = "-X"
        End Select
        'Cel.Offset(, 2) = Cel.Offset(, 2) & y1
        Cel.Offset(, 2) = y1
    Next Cel

[nivk-539]

Merci à vous 2 les 2 solutions marchent!