Dater une cellule

A

abc

XLDnaute Impliqué

• 20 Janvier 2008

• #2

Re : Dater une cellule

Bonsoir,
essaie et dit quoi.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'écrit dans la colonne A
Target.Offset(0, 1) = Date 'alors mets la date du jour dans la colonne a coté
End If

End Sub
A +

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 20 Janvier 2008

• #3

Re : Dater une cellule

Bonsoir
Tu peux faire ça aussi , mettre en commentaire date et heure

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'écrit dans la colonne A
Target.AddComment 'ajoute le commentaire
Target.Comment.Text Text:=" '" & Now
End If
End Sub

 

Vote positif 0 Vote négatif

N

nico3869

XLDnaute Nouveau

Supporter XLD

• 21 Janvier 2008

• #4

Re : Dater une cellule

Je ne sais pas me servir des macros.
Merci de me préciser la manip pour rentrer cette action

 

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 21 Janvier 2008

• #5

Re : Dater une cellule

Bonsoir,
tu clic sur ALT + F11
puis un copier coller du code que je t'ai proposé où celui de CB60
et le tour est joué.
Au besoin resonne et je te ferai un copie avec le tout.
A +

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 21 Janvier 2008

• #6

Re : Dater une cellule

Bonsoir,

Tu peux aussi le faire par une référence circulaire.

Menu Outils / Options / Calcul / cocher Itérations.
B1 : =SI(A1="";"";SI(B1<>"";B1;AUJOURDHUI()))
Tape une valeur en A1, la date s'affiche en B1 et reste figée jusqu'au moment ou tu effaces la valeur en A1.
Modifier la valeur en A1 ne modifie pas la date en B1.

Petit conseil : remplace AUJOURDHUI() par MAINTENANT(), ainsi pour tester tu ne devras pas attendre demain (lol).

abcd

 

Vote positif 0 Vote négatif

N

nico3869

XLDnaute Nouveau

Supporter XLD

• 21 Janvier 2008

• #7

Re : Dater une cellule

merci beaucoup

 

Vote positif 0 Vote négatif