XL 2021 Macro ne fonctionne plus ?

[fanou06]

Bonjour,

J'ai un souci de MACRO sur l'onglet "dépenses détaillées".
En effet, lorsque j'exécute la macro "TriColor", celle ci ne change pas les couleurs selon les critères de D.

Une piste ?
Merci.

Sub TriColor()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

    ' Nom de la feuille de calcul
    Set ws = ThisWorkbook.Worksheets("Dépenses détail")

    ' Définit la plage de recherche du texte "CRITERE DE CHOIX"
    Set rng = ws.Range("D:D")

    ' Parcourt chaque cellule de la colonne D
    For Each cell In rng
        ' Vérifie si la cellule contient le texte "FATFAT ou ZURICH ou ROMANDE ENERGIE ou SWISSCOM" (en ignorant la casse)
        If StrComp(cell.Value, "FATFAT", vbTextCompare) = 0 Then
            ' Si "FATFAT" est trouvé, colore toute la ligne de A à I en vert d'eau
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(176, 242, 182)
        ElseIf StrComp(cell.Value, "ZURICH", vbTextCompare) = 0 Then
            ' Si "ZURICH" est trouvé, colore toute la ligne de A à I en vert d'eau
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(176, 242, 182)
            ElseIf StrComp(cell.Value, "ROMANDE ENERGIE", vbTextCompare) = 0 Then
            ' Si "ROMANDE ENERGIE" est trouvé, colore toute la ligne de A à I en vert d'eau
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(176, 242, 182)
            ElseIf StrComp(cell.Value, "SWISSCOM", vbTextCompare) = 0 Then
            ' Si "SWISSCOM" est trouvé, colore toute la ligne de A à I en vert d'eau
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(176, 242, 182)
            ElseIf StrComp(cell.Value, "VITA", vbTextCompare) = 0 Then
            ' Si "VITA" est trouvé, colore toute la ligne de A à I en vert d'eau
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(176, 242, 182)
            
            ElseIf StrComp(cell.Value, "MÜLLER", vbTextCompare) = 0 Then
            ' Si "MÜLLER" est trouvé, colore toute la ligne de A à I en bleu azurin
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(169, 234, 254)
            ElseIf StrComp(cell.Value, "LA POSTE", vbTextCompare) = 0 Then
            ' Si "LA POSTE" est trouvé, colore toute la ligne de A à I en bleu azurin
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(169, 234, 254)
            ElseIf StrComp(cell.Value, "INTERDISCOUNT", vbTextCompare) = 0 Then
            ' Si "INTERDISCOUNT" est trouvé, colore toute la ligne de A à I en bleu azurin
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(169, 234, 254)
            ElseIf StrComp(cell.Value, "VMCV", vbTextCompare) = 0 Then
            ' Si "VMCV" est trouvé, colore toute la ligne de A à I en bleu azurin
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(169, 234, 254)
            ElseIf StrComp(cell.Value, "PAYOT LIBRAIRIE", vbTextCompare) = 0 Then
            ' Si "PAYOT LIBRAIRIE" est trouvé, colore toute la ligne de A à I en bleu azurin
            ws.Range("A" & cell.Row & ":I" & cell.Row).Interior.Color = RGB(169, 234, 254)
        End If
    Next cell
End Sub

 

[TooFatBoy]

Bonjour,

Est-ce que cette macro ne pourrait pas être remplacée par des MFC ?

 

[Phil69970]

Bonjour à tous les 2

@fanou06
Je te propose ce fichier

 

[fanou06]

Bonjour, malheureusement même en activant la modification je ne peux activer les macros

 

[Phil69970]

Re

Pourtant ça fonctionne chez moi

 

[TooFatBoy]

Bonjour, malheureusement même en activant la modification je ne peux activer les macros

As-tu cliqué sur "En savoir plus" pour... en savoir plus ?

Regarde si tu peux approuver excel-downloads.com.

 

[Phil69970]

Bonjour TFB

Mon fichier fonctionne t-il chez toi ?

 

[TooFatBoy]

Coucou

Bonjour TFB

Mon fichier fonctionne t-il chez toi ?

Je suppose que oui, mais bouge pas, je vais essayer.

 

[TooFatBoy]

A part les Add2 qui ne semblent pas exister chez moi (Excel 2016), tout à l'air de fonctionner.

Le deuxième bouton met en couleur plus vite que son ombre !

 

[fanou06]

Oui, c'est bon j'ai pu voir.
De ma tablette ça ne marchait pas mais c'est bon de l'ordi
Merci