problème de code pour macro

Bonjour,

J'ai une macro vba à faire pour un classeur excel mais je suis loin de m'y connaître.
Voici ce que doit faire mon code :
dès qu'une cellule de la colonne AH est modifiée, renseigner la date de cette modification dans la cellule d'à côté (AI).
Voici ma trame de code, qui ne marche pas du tout :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub change() Dim modif As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) a = 6 For i = 6 To 78 Range("AH" & i) = a a = a + 1 If modif = True Then Sheets("polyvalence uap Multi").Range("AI" & i).Value = Format(Date, "dd/mm/yyyy") End If Next i End Sub

---

Pouvez-vous m'aider ?
Merci

Bonjour,

Ci dessous un petit coup de pouce

On utilise l'évenement change de la feuille.

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Split(Target.Address, "$")(1) = "AH" Then Target.Offset(0, 1).Value = Format(Now, "dd/mm/yyyy") End If End Sub

---

Merci beaucoup, ça marche très bien! :)

Si ça te dérange pas, j'aimerais aussi savoir comment comparer la date renseignée dans la cellule (AI) avec la date d'aujourd'hui.
Si le délais est supérieur à 3 mois, la cellule AH prend la valeur d'une autre cellule (X86).
Si tu as une idée?
Merci

Une méthode consiste a utiliser la formule Datedif (formule caché et non documenté dans excel)

Exemple, le m correspondant à un écart en mois

Code:

---

=DATEDIF(E6;F6;"m")

---

Citation:

---

La fonction DATEDIF() permet de calculer la différence entre deux dates en années, mois et jours.
Cette fonction n'est pas documentée dans l'aide Excel, mais elle s'avère bien pratique pour effectuer des calculs sur des âges ou des dates d'échéance.

Syntaxe : DATEDIF (Date1; Date2;Intervalle)
Date 1 est la date de Départ
Date 2 est la date de Fin
Intervalle peut prendre différentes valeurs:
"y" : différence en années
"m" : différence en mois
"d" : différence en jours
"ym" : différence en mois, une fois les années soustraites
"yd" : différence en jours, une fois les années soustraites
"md" : différence en jours, une fois les années et les mois soustraits
à noter : Date2 doit toujours être supérieure ou égale à Date1

---

merci beaucoup, je vais essayer