Modifier couleurs cellule si texte " / "

Bonjour à vous

Je suis entrain de modifier certain code

Actuellement j'ai des cellules qui contiennent des calcules et suivant les calculs la cellule change de couleur

Mais vu que j'ai agrandi mon talbeau est mis le super code de sadness78 que si la valeur est nul qu'il intègre un /

or sur 3 colonnes j'ai des couleurs et si la vleur et / il me met une couleur or je voudrai que si la cellule contient un / il la remplisse en blanc

J'ai activer une macro pour voir un bout de code

    Range("A30").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Par contre ici il me mettre la cellule A30 en blanc mais je vois pas comment lui faire comprendre de chercher sur tout mon talbeau s'il trouve un / de remplire la cellule par du blanc

Encore une fois merci de votre aide

Bonjour,

as tu essayé avec la mise en forme conditionnelle ?

Bonjour,

pourquoi mettre un / si tu ne veux pas qu'il se voit ?

Autant ne rien mettre

eric

eriiic a écrit :

Bonjour,

pourquoi mettre un / si tu ne veux pas qu'il se voit ?

Autant ne rien mettre

eric

Si le " / " doit être vu mais sauf que la couleur doit être modifié

Il faudrait ton fichier (allégé au minimum pour ce problème) avec le code complet car tout dépend comment tu travailles.

désolé du retard

voici mon classeur avec les codes

Bonjour,

Private Sub Worksheet_Activate()
    Num = DerniereLigneDe("C")    ' A modifier SI la colonne " Age " change de position

    For i = 2 To Num
        If Range("C" & i) = "/" Then
            Range("C" & i).Interior.ColorIndex = xlNone
        ElseIf Range("C" & i) >= -59 Then
            Range("C" & i).Interior.ColorIndex = 4
        ElseIf Range("C" & i) >= -60 Then
            Range("C" & i).Interior.ColorIndex = 45
        ElseIf Range("C" & i) >= -89 Then
            Range("C" & i).Interior.ColorIndex = 45
        ElseIf Range("C" & i) <= -90 Then
            Range("C" & i).Interior.ColorIndex = 3
        Else
        End If
    Next
End Sub

Mais quel est l'intérêt de faire une macro ce qu'une MFC (mise en forme conditionnelle) fait très bien ?

Autant apprendre à se servir des fonctionnalités d'excel.

Et .text converti en chaine de caractère, inutile ici. Utiliser .value (ou rien puisque .value est la propriété par défaut d'une cellule).

eric

Merci beaucoup Eric !!

Ca fonctionne comme je souhaitai

C'est vrai que Excel est déjà un gros logiciel complet mais je apprends à faire des développement logiciel / web

Actuellement j'ai un travail à faire en VBA et vu que j'ai jamais utilisé le VBA où excel je préfère tout faire par code pour mieux comprendre où apprendre le code VBA

Donc encore merci de ton aide 8)