date du changement

[zia]

Bonjour a tous et toutes.
Comment faire pour que lorsque le contenu d'une cellule change (disons A1), la date du changement apparaisse dans une autre (disons B1)?

Merci par avance.

 

[JCGL]

Re : date du changement

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Range("B1") = Range("A1").Value
End Sub

A placer dans le code de la feuille

​

A+ à tous

 

[phlaurent55]

Re : date du changement

Bonsoir à tous

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Range("B1") = [COLOR="Red"]Range("A1").Value[/COLOR]End Sub

A placer dans le code de la feuille

[

Je pense plutôt à =now

 

[zia]

Re : date du changement

Merci beaucoup, ca marche, mais en fait ca ne fait pas ce que je veux!

J'ai du mal m'expliquer :

Je vais essayer d'etre plus clair :
En fait j'ai une colonne qui contient des donnees que je suis ammené a changer. Ce que je voudrais c'est que lorsque je change les données dans une des cellules de cette colonne la cellule juste a droite de la cellule modifiee contiene la date du changement (et que cette date ne bouge plus jusqu'au prochain changement de la cellule).


Merci encore pour votre aide. (D'ailleurs j'ai cru comprendre que vous aviez deviné mon niveau)

 

[JCGL]

Re : date du changement

Bonjour à tous,

Un essai avec :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel
  For Each cel In Target
    With cel
      If .Row > 1 And .Column = 1 Then
        With .EntireRow
          If .Cells(1, 1) <> "" Then .Cells(1, 2) = Format(Now, "dd/mm/yyyy hh:mm:ss")
         End With
      End If
    End With
  Next cel
End Sub

A+ à tous

 

[zia]

Re : date du changement

Merci beaucoup. Quelle réactivité.
Pour le coup, c'est exactement ce que je veux. Il me reste juste a l'adapter pile poil a mon fichier.

Merci encore. Bonne soirée.