Correction code

[Adriano43]

Bonjour le forum,

Je me permets d'ouvrir une nouvelle discussion car je suis entrain de programmer quelques macros... Mais pour l'une d'entre elles, bien qu'il n'y ait pas d'erreur lors de l'éxécution, le code n'effectue pas ce qu'il devrait faire, pourriez vous m'aider SVP?

voici le petit bout de code en question:

Public Sub prcforme()

    Dim i As Integer
    
    With Sheets("BDD")
        For i = Range("A5000").End(xlUp).Row To 2
            If Cells(i, 1).Interior.ColorIndex = 3 Then
            Select Case (Cells(i, 11).Value)
                Case Is = "7, 5"
                    Cells(i, 17).Interior.ColorIndex = 4
                Case Is = "15"
                    Cells(i, 17).Interior.ColorIndex = 6
                Case Is = "22, 5"
                    Cells(i, 17).Interior.ColorIndex = 3
            End Select
            End If
        Next i
    End With
End Sub

N'hésitez pas à me demander une PJ si besoin est

Cordialement

Adriano43

 

[Pierrot93]

Re : Correction code

Re,

essaye de modifier le "select case" comme suit :

        Select Case Cells(i, 11).Value
           Case 7.5
             Cells(i, 17).Interior.ColorIndex = 4
           Case 15
             Cells(i, 17).Interior.ColorIndex = 6
           Case 22.5
             Cells(i, 17).Interior.ColorIndex = 3
           Case IsEmpty, 0
             Cells(i, 17).Interior.ColorIndex = 0
        End Select

 

[Jam]

Re : Correction code

Salut Adriano, Pierro, titiboregan

Remplace les Case Is par des If...Then.
Pour des cas où il y a des tests multiple c'est plus rapide.

De même, as-tu dimensionné tes variables (Dim i As Long serait aussi très bien)

Bon courage