Problème select case

Bonjour,

j'aimerais créer un bouton qui me permette de colorier certaines cases en fonction de critères, (faire fonctionner les boutns "format" et "raz" dans l'onglet 1

j'ai quasiment le code mais j'ai un problème de fonctionnement à cause du select case

quelqu'un saurait il où ai je fait l'erreur ?

cf mon fichier

merci d'avance

5vba35-1.xlsm (25.03 Ko)

Bonjour vba35,

Dans la dernière partie du

Select Case

, il manque un

Next Cell
Case "Bénéfice par action (EPS), USD"
                    For Each Cell In Rng.Cells
                        If Cell.Value < 0 Then Cell.Interior.Color = R
                        Next Cell
            End Select
        Next i
    End If
    

Cordialement,

bonjour,

il manque un Next avant Case Else

                     Next
                Case Else
            End Select

EDIT : Bonjour Ironboule.

Désolé : je ne comprend toujours pas pourquoi je ne vois presque jamais l'avis qu'une réponse à été postée entre temps...

A+

merci!!

Rechercher des sujets similaires à "probleme select case"