XL 2021 Macro qui ne fonctionne pas, je ne comprends pas l'erreur :(

[fanou06]

Bonjour,

J'ai mis une macro dans RDV2022 :

Sub EtatCom22()
Dim x
   Application.ScreenUpdating = False
   For Each x In ThisWorkbook.Worksheets("RDV2022").Range("a1").ListObject.ListRows
      Select Case x.Range(1, 6)
         Case "ANNULE": x.Range.Interior.Color = RGB(211, 211, 211)
         Case "GRATUIT": x.Range.Interior.Color = RGB(255, 255, 0)
         Case "NON PAYE": x.Range.Interior.Color = RGB(255, 0, 0)
         Case Else: x.Range.Interior.ColorIndex = xlColorIndexNone
      End Select
   Next x
End Sub

Mais je ne vois pas où la réparer.
Elle fonctionne sur un autre classeur pourtant.

Merci pour votre aide.

 

[Phil69970]

Bonjour @fanou06

Je te propose ce fichier

 

[Compte Supprimé 979]

Bonjour Fanou06

Vous avez posté une pièce jointe qui contient des données confidentielles, telles que des informations d'une entreprise, des noms prénoms de personnes réelles, des numéros de téléphones, adresses,...

Merci de supprimer au plus vite votre pièce jointe et d'anonymiser votre fichier avant de le poster à nouveau.

J'ai par ailleurs averti l'administrateur du site pour qu'il en soit informé.

Profitez en pour relire la charte.

La solution : transformez vos cellules en TS (Tableau Structuré)

Bonne journée

 

[fanou06]

Bonjour Fanou06

Vous avez posté une pièce jointe qui contient des données confidentielles, telles que des informations d'une entreprise, des noms prénoms de personnes réelles, des numéros de téléphones, adresses,...

Merci de supprimer au plus vite votre pièce jointe et d'anonymiser votre fichier avant de le poster à nouveau.

J'ai par ailleurs averti l'administrateur du site pour qu'il en soit informé.

Profitez en pour relire la charte.

La solution : transformez vos cellules en TS (Tableau Structuré)

Bonne

Merci.