date du changement

zia · 17 Décembre 2009

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 · 17 Décembre 2009

Re : date du changement

Bonjour à tous,

Peux-tu essayer avec :

Code:

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 · 17 Décembre 2009

Re : date du changement

Bonsoir à tous

JCGL à dit:
Bonjour à tous,

Peux-tu essayer avec :

Code:

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 · 17 Décembre 2009

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 · 17 Décembre 2009

Re : date du changement

Bonjour à tous,

Un essai avec :

Code:

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 · 17 Décembre 2009

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.

date du changement

zia

Guest

JCGL

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

zia

Guest

JCGL

XLDnaute Barbatruc

Pièces jointes

zia

Guest

Discussions similaires

date du changement

zia

Guest

JCGL

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

zia

Guest

JCGL

XLDnaute Barbatruc

Pièces jointes

zia

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency