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

Paf

XLDnaute Barbatruc

• 2 Janvier 2014

• #2

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.

Bonne suite

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 2 Janvier 2014

• #3

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

 

Pièces jointes

• ligne-modifiée-jusquà-J.xlsm

  25 KB · Affichages: 30

Vote positif 0 Vote négatif

S

SEP54

Guest

• 2 Janvier 2014

• #4

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

 

Vote positif 0 Vote négatif

S

SEP54

Guest

• 6 Janvier 2014

• #5

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

 

Pièces jointes

• debug-sep54-changement valeur.jpg

  58.9 KB · Affichages: 39

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 6 Janvier 2014

• #6

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

 

Vote positif 0 Vote négatif

S

SEP54

Guest

• 7 Janvier 2014

• #7

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

 

Vote positif 0 Vote négatif