Date de remplissage de cellule

[Ben&Bee]

Bonjour à tous

Je ´essaie de réaliser une macro ou un programme me permettant d´inscrire la date du jour (dans une cellule X) où j´ai rempli les cellules Y et Z.


Objectif
Ecrire la date de remplissage de 2 cellules X et Y dans une cellule Z


Quelqu´un peut m´aider?

P.S: l´i´déal est que la date ne change pas même si j´ouvre plusieurs fois le fichier sur plusieurs jours.

 

[dg62]

Bonjour Ben&bee

Sub dateR()
If ActiveCell.Offset(0, -2) > '' And ActiveCell.Offset(0, -1) > '' Then
ActiveCell.Value = Date
End If
End Sub

Comment ça marche :

se possitionner daans la cellule qui doit recevoir la date

lancer la macro

la procédure teste si les deux cellules adjacentes ne sont pas vides et insère la date.

A B C
x y date

 

[Hervé]

bonjour

une proposition :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns('A:B')) Is Nothing Then Exit Sub
If Cells(Target.Row, 1) <> '' And Cells(Target.Row, 2) <> '' Then
Cells(Target.Row, 3) = Date
End If

End Sub

ce code inscrit en colonne C la date du jour si des données sont inscrites en colonne a et b de la même ligne.

Salut

 

[Hervé]

re

oups désolé didier, pas frais moi.

Salut

 

[Ben&Bee]

Merci tout d abord pour votre aide...

J&acute;ai juste un pti pb!!


Hervé:

Mes cellules X , Y et Z sont trois cellules distintes
X(c;d) et Y(r;k) et Z(v;h)

DG
Je voudrai que ce soit qqch automatisé sans recours à l&acute;enclenchement d&acute;un programme par l&acute;utilisateur. COmme il est obligé de remplir ces case X et Y, en liant la fonction à ces cases, la date apparaitra forcement..

Merci en tout cas ...

Ben&Bee

 

[dg62]

re


Quelles sont les références exactes des cellules ?

 

[Hervé]

re

Si les cellules sont toujours les mêmes essaye comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(c,d) <> '' And Cells(r, k) <> '' Then
Cells(v, h) = Date
Else
Cells(v, h) = ''
End If

End Sub

Sinon, peut tu etre plus clair, ou même joindre un fichier.

Salut

 

[Ben&Bee]

Desolé pour le contre temps mais vous êtes plus rapide que flash

J&acute;ai glissé un fichier joint...

Le pb c&acute;est que j&acute;ai plusierus utilisateurs qui remplissent des cases différentes donc plusieurs dates et plusieurs programmes...

Jetez un coup d&acute;oeil

Hevé ca amrche pas ton truc il [file name=INsertion Date_20050524172132.zip size=9404]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/INsertion Date_20050524172132.zip[/file]

 

[dg62]

re


Sans une organisation logique du document, je ne vois pas actuellement de solution automatique.

il est impossible (impossible n'est pas excellien) de définir les cellules de référence afin d'ajouter la date de saisie.

un simple bouton 'insertion date' me semble la solution la plus immédiate.


mais tous les excelliens n'ont pas donné leur avis.

 

[Ben&Bee]

C&acute;est sur
ce sont que des cas isolés

Je vais m arranger avec ce que vous m&acute;avez déjà donné comme prg.

Pour chaque date je ferai un prg à part

Merci en tout cas de votre attention

 

[Hervé]

bonjour

C'est sur que maintenant que l'on à le détail de ton projet, ma solution ne peut fonctionner.

Par contre une autre soluce en pièce jointe.

Salut
[file name=INsertion Date2_20050524200437.zip size=10033]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/INsertion Date2_20050524200437.zip[/file]

 

[Ben&Bee]

Salut Hervé

En effet ca marche du tonnerre

Excel c est vraiment the Logiciel

MErci beaucoup d&acute;avoir insisté


BEn&BEe