Excel - a la rcherche d une formule

frodon14480 -  
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je fais appel au expert d'EXCEL. Je sais que ma question ne presentera pas de difficultes pour certains. Mais là je bloque !!!

Je cherche une formule qui me permettrait lorsque j'ajoute une somme ou du texte dans une cellule, la date du jour s'inscrit automatiquement dans une autre cellule.

Merci pour votre conseil

A voir également:

3 réponses

Raymond PENTIER Messages postés 71852 Date d'inscription   Statut Contributeur Dernière intervention   17 386
 
Tu tapes =AUJOURDHUI dans cette cellule.
Mais attention : cette date changera chaque jour où tu ouvriras la feuille.
Si tu veux conserver la date, tu vas dans la cellule, tu fais Copier puis Collage spécial/Valeur.
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 445
 
Bonjour
je ne pense pas qu'il soit possible par formule de mettre une date fixe à partir d'une entrée dans une cellule.
essayez si ceci correspond à ce que vous attendez

1°cas, vous avez une seulle cellule active
clic droit sur le nom d'onglet
choisir: visualiser le code
copier ci dessous et coller dans la fenêtre affichée
la date se placera en B1 si vous entrez une valeur en A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
'(placer entre guillemets l'adresse de la cellule remplie)
Range("B1").Select
'(placer entre guillemets la cellule recevant la date)
Selection.Value = Date
End If
End Sub




si vous voulez agir sur une colonne en mettant en ligne la date dans la cellule à droite, même opération avec:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Rw As Long
If Target.Column = 1 Then
'(colonne active: mettre n° de colonne de la feuille: ici 1=colonne A)
Rw = Target.Row
Range("B" & Rw).Value = Date
'(cellule avec date: mettre entre guillemets l'adresse de la colonne à dater)
End If
End Sub


qui met la date en B en ligne avec la cellule de A activée par une insertion.Pour l'ajustage du code utiliser les textes qui vont apparaître en vert quand vous aurez coller le libellé.

bonne chance

crdlmnt



Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?
0
Frodon14480
 
Merci, c'est parfait et fonctionne à merveille.

Tout groupe humain prend sa richesse dans la communication, l'entraide et la solidarité visant à un but commun : l'épanouissement de chacun dans le respect des différences.
0
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 139
 
Salut le fil,

Exemple tes saisies se font colonne A tu peux écrire le code plus court

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
Target(1, 2) = Date
End If
End Sub

0