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

fanou06

XLDnaute Occasionnel
Bonjour,

J'ai mis une macro dans RDV2022 :

VB:
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.
 
C

Compte Supprimé 979

Guest
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

XLDnaute Occasionnel
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.
 

Statistiques des forums

Discussions
313 239
Messages
2 096 474
Membres
106 637
dernier inscrit
jpdupont