[Boucle + Test] Pourquoi ma macro ne marche plus?

Bonjour à tous,

Je bosse sur une petite macro assez simple pour facilité la vie à des collègues. Elle marchait encore lundi... Mais aujourd'hui, non rien à faire, elle ne veut pas. J'aimerais bien comprendre....

Je vous poste mon code :

Sub Workbook_Open()

''Je déclare mes variables

Dim i As Integer
Dim c As Integer

''Je sélectionne mon onglet

Sheets("Tableau_de_relevé").Select

'je donne des valeurs à mes variables

i = 1
c = Range("A1048576").End(xlUp).Row

''Je lance ma boucle et mon test

For i = 1 To c

''La colonne A contient déjà des dates

If Cells(i, 1) = Date Then

Range(Cells(i, 1), Cells(i, 15)).Interior.ColorIndex = 4

End If

i = i + 1

Next i

End Sub

Après multiple relecture je ne comprends pas mon erreur, dotant plus qu'elle marchait hier...

Merci d'avance pour votre aide,

Bonjour Citron89,

Tu aurais pu expliquer à quoi sert ta macro.

Je vais donc supposer qu'elle permet de surligner la date du jour.

Concernant ton problème, tu utilises une boucle for...next. Il est donc inutile d'incrémenter la variable i .

Supprime i = i + 1.

A+

Bonjour

Bonjour frangy

Toni = i + 1 est en trop

Essayes

Sub Workbook_Open()

''Je déclare mes variables
Dim i As Integer
Dim c As Integer

  ''Je sélectionne mon onglet
  Sheets("Tableau_de_relevé").Select

  'je donne des valeurs à mes variables

  'i = 1
  c = Range("A1048576").End(xlUp).Row

  ''Je lance ma boucle et mon test

  For i = 1 To c

    ''La colonne A contient déjà des dates

    If Cells(i, 1) = Date Then

      Range(Cells(i, 1), Cells(i, 15)).Interior.ColorIndex = 4

    End If

  'i = i + 1

  Next i

End Sub