Bonjour,
J'ai mis une macro dans RDV2022 :
Mais je ne vois pas où la réparer.
Elle fonctionne sur un autre classeur pourtant.
Merci pour votre aide.
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 SubMais je ne vois pas où la réparer.
Elle fonctionne sur un autre classeur pourtant.
Merci pour votre aide.