Modifier une date dans une cellule si un paramètre d'une ligne à changé

[SEP54]

Bonjour à tous,

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 😉

SEP54😉

 

[Paf]

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:

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.

Bonne suite

 

[kingfadhel]

Re : Modifier une date dans une cellule si un paramètre d'une ligne à changé

Bonjour,

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

 

[SEP54]

Re : Modifier une date dans une cellule si un paramètre d'une ligne à changé

Grand Merci à PAF et KINGFADHEL pour votre réactivité et votre aide!

Les 2 solutions fonctionnent.

Bonne fin de journée.

SEP54

 

[SEP54]

Re : Modifier une date dans une cellule si un paramètre d'une ligne à changé

Bonsoir,

J'ai injecté aujourd'hui la macro dans mon fichier et je ne sais pas corriger l'erreur générée.

ci-joint une copie d'écran

Merci d'avance pour votre aide

SEP54

 

[Paf]

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

Bonne suite

 

[SEP54]

Re : Modifier une date dans une cellule si un paramètre d'une ligne à changé

Bonsoir à tous, 😉

Que dire? 1000 merci à PAF et KINGFADHEL problème résolu. 😎

à très bientôt ! 😱

SEP54