Discussion :

[jouclar]

Bonjour à tous,

Je vous sollicite car je n'arrive pas à figer une date après modification d'une valeur.

Je souhaite en colonne 5 figer la date et heure lorsqu'une information est saisie en colonne 1.

Le code ci-dessous fonctionne bien pour chaque cellule saisie au clavier mais lorsque je fais un copier/coller de plusieurs valeurs uniquement la date de la première est saisie. Et là pour moi c'est l'espace...

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
' Affiche la date en colonne 5 lorsque la colonne 1 est modifiée
    If Target.Column = 1 Then
        Cells(Target.Row, 5).Value = Now
    End If
 
End Sub

Merci de votre aide

[JPierreM]

Bonjour

à la place de

Code :

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

Cells(Target.Row, 5).Value = Now

essayez

Code :

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

Target.Offset(0, 4) = Now

[rtg57]

Bonjour,

essayez cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim nb_items As Integer
  Dim item As Integer
 
  If Target.Column <> 1 Then
    Exit Sub
  End If
 
  nb_items = Target.Count
  ligne = Target.Row
 
 
  For item = 1 To nb_items
      Cells(ligne, 5).Value = Now
      ligne = ligne + 1
  Next item
 
End Sub

Je pense qu'il existe une façon plus élégante du genre

Code :

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

For each Cells in Range

... en tout cas, celle-ci est triviale et opérationnelle...

En espérant que cela vous aide...