Mettre une date selon condition d'une cellule

J

Jack2

XLDnaute Occasionnel

• 11 Octobre 2013

• #2

Re : Mettre une date selon condition d'une cellule

Bonjour BAILAOR,

Code à mettre dans la feuille qui contient la cellule A1 :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Count > 1) Or (Target.Address <> "$A$1") Then Exit Sub
Range("A2").Value = Date
Range("A1").Select
End Sub

A+ Jack2

 

Vote positif 0 Vote négatif

B

BAILAOR

XLDnaute Junior

• 12 Octobre 2013

• #3

Re : Mettre une date selon condition d'une cellule

merci pour la réponse mais je suis novice, je dois le mettre où dans la feuille?

 

Vote positif 0 Vote négatif

J

Jack2

XLDnaute Occasionnel

• 13 Octobre 2013

• #4

Re : Mettre une date selon condition d'une cellule

Bonsoir BAILAOR,
Ci-joint un fichier avec quelques explications.
Bonne nuit,
Jack2

 

Pièces jointes

• BAILAOR_1.xls

  33 KB · Affichages: 34

Dernière édition: 13 Octobre 2013

Vote positif 0 Vote négatif

B

BAILAOR

XLDnaute Junior

• 13 Octobre 2013

• #5

Re : Mettre une date selon condition d'une cellule

désolé mais j'ai oublié de vous dire qu'il y a plusieurs case
cela va de la D15 à la D1146 et les dates sont de G15 à G1146

 

Vote positif 0 Vote négatif

J

Jack2

XLDnaute Occasionnel

• 13 Octobre 2013

• #6

Re : Mettre une date selon condition d'une cellule

Bonjour BAILAOR,

Si j'ai bien compris, la saisie se fait entre D15 et D1146 et les dates en G (lignes correspondantes)
Le fichier est dans le Post de 2h32
A+ Jack2

 

Vote positif 0 Vote négatif