Tous d'abord meilleurs vœux pour cette nouvelle année.
Je cherche à modifier la date inscrite dans une cellule d'une ligne afin filtrer par la suite et avoir toujours les dates dans l'ordre chronologique des événements.
La date doit se mettre à la date du jour si un paramètre est changé dans la même ligne mais attention uniquement de la colonne B à J (voir fichier ci-joint)
Merci d'avance à la personne qui me trouvera l'astuce
Re : Modifier une date dans une cellule si un paramètre d'une ligne à changé
Bonjour
une solution VBA, à coller dans le code de la feuille 1:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Integer
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("B86:I" & DerLig)) Is Nothing Then
Cells(Target.Row, 1) = Now()
End If
End Sub
Ne fonctionnera que si les cellules de la plage sont modifiées manuellement.
Re : Modifier une date dans une cellule si un paramètre d'une ligne à changé
Bonjour,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B86:J1500"), Target) Is Nothing Then ' tu peux agrandir la plage
num = Target.Row
Cells(num, 1) = Date
End If
End Sub
Re : Modifier une date dans une cellule si un paramètre d'une ligne à changé
bonjour,
deux solutions:
1) comme l'indique la fenêtre d'erreur : la variable n'est pas définie. Il faut donc la déclarer : Dim num as Integer( en tête de macro)
2) plutôt que de passer par une variable intermédiaire utiliser directement : Cells(Target.Row, 1) = Date