Discussion :

[bastienb1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

Ci dessous un petit coup de pouce

On utilise l'évenement change de la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bastienb1]

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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATEDIF(E6;F6;"m")

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

[bastienb1]

merci beaucoup, je vais essayer