Remplacer une valeur par une autre automatiquement par VBA
Bonjour,
Je dois réaliser une "logiciel" de maintenance sous excel, et je voudrais faire en sorte que lorsque la date de la maintenance d'une pompe par exemple est atteinte (colonne 8), cette date vienne dans la colonne "précédente maintenance" (colonne 7) afin que mon logiciel détermine automatiquement la date de la prochaine maintenance.
Le problème étant que je n'arrive pas à créer un code vba qui me permette de faire que lorsqu'une cellule de la colonne 8 atteint la date du jour, la valeur de cette cellule de la 8ème colonne devienne vienne dans la cellule de la colonne 7 correspondante.
Voici mon code actuel :
Private Sub Worsheet_Activate()
I = 1
For I = 1 To 30
If Cells(I, 8) = Date Then
Cells(I, 7) = Cells(I, 8)
End If
Next
End Sub
Est-ce que quelqu'un sait pourquoi ce code ne fonctionne pas ?
Bonjour Romzo, bonjour le forum,
Est-ce que quelqu'un sait pourquoi ce code ne fonctionne pas ?
Sans le fichier exemple non...
Oui autant pour moi, voici le fichier en question.
Il faut aller dans le classeur "opérations de maintenance"
Re,
Private Sub Worksheet_Activate()
Il manque un k donc l'activation de l'onglet ne déclenchait pas cette procédure...
Ah oui en effet.. excusez moi pour le dérangement, quand on a la tête prise dans quelque chose on manque parfois de recul...