[Excel] Si valeur ici alors date du jour la . Résolu/Fermé

Question

Bonjour a vous amis donneurs de coups de pouce,

Je suis au taf et je passe ma journée a faire des pesées, pour ça, dans excel, par ligne,  je rentre 3 valeurs dans 3 cellules et la date du jour dans la 4eme.

Ma question est : Serait il possible d'avoir une formule qui fait que que je rentre une valeur dans la premiere cellule, la date du jour soit automatiquement entrée dans la 4eme cellule ?

Merci

lermite222 · Accepted Answer

Bonjour tous, Mais non, excel peut très bien faire ca...mais avec un peu de code, Si tu ne connait rien en VBA... >> Alt+F11 >> Dans la fenêtre qui s'ouvre tu a sur la gauche la fenêtre Projet : VBAProjet où tu trouve le nom de tes feuilles >> double clic sur la feuille concernée et une fenêtre s'ouvre Dans cette fenêtre tu fais un Copier/coller du code ci-dessous. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static AncAdress As String, AncCell As Variant If AncAdress <> "" Then 'pour 1ère initialisation. On Error GoTo Sortie If AncCell <> Range(AncAdress) Then If Range(AncAdress).Column = 1 Then Range(AncAdress).Offset(0, 3) = Date 'Changer le 3 pour autre colonne End If End If End If Sortie: AncAdress = Target.Address AncCell = Target.Value2 End Sub La macro est configurée pour que quand tu entre une donnée en Colonne A la date actuelle est entrée dans la colonne D Il faut donc qu'il y ai une donnée dans la colonne A sinon ca marque pas. Si, par après tu fait une modif dans la colonne A la date va se réinitialiser. A+

sevetbob16 · Answer

oui bien sur, il suffit de mettre dans une 5ème cellule la formule suivante =aujourdhui()
ensuite dans ta 4ème cellule tu indiques =si(premièré cellule est vide;alors 4ème cellule vide; sinon 4ème cellule égale la 5ème). En langage excel ça donne ça =SI(A1="";"";E1).
Il suffit alors de mette ta 4ème cellule en format date et le tour est joué !

Boonjin · Answer

Yes, Merci Sevetbob !!!
ça marche nikel

rapide et efficace , c'est beau

Par contre est ce que j'ai pas le risque en faisant ça que la date change tout les jours ?
moi je voudrais qu'une fois cette date rentrée en D1, elle ne bouge plus .

eriiic · Answer

Bonjour,

ben si, demain elle indiquera 31/07...
Utilise le raccourci clavier ctrl+;

eric

sevetbob16 · Answer

effectivement, je n'avais pas pensé à ça. Ta date va changer chaque jour donc ça ne va pas ce système
La seule solution que je connaisse alors et d'aller dans la 4ème cellule et de taper le raccourci suivant en appuyant à la fois sur Ctrl et sur ;
C'est moins bien mais plus rapide que de taper la date à chaque fois.

Boonjin · Answer

ha ok, j'ultilisais deja la methode du ctrl + ;

dommage, aurais-je surestimé Excel ?
Je ne pensais pas en trouver les limites des ma premiere tentative ... je suis deçu.

lermite222 · Answer

comme ca... Private Sub Worksheet_SelectionChange(ByVal Target As Range) '------------------------------------------------------------------------- Static AncAdress As String, AncCell As Variant If AncAdress <> "" Then 'pour 1ère initialisation. On Error GoTo Sortie If AncCell <> Range(AncAdress) Then If Range(AncAdress).Column = 1 Then Range(AncAdress).Offset(0, 3) = Date 'Changer le 3 pour autre colonne End If End If End If Sortie: AncAdress = Target.Address AncCell = Target.Value2 '------------------------------------------------------------------------- If Target.Address = "$A$1" Then liste_rincage.Show End If If Target.Address = "$F$1" Then Range("F1").End(xlDown).Offset(1, 0).Activate ActiveCell.Value = Date End If If Target.Address = "$K$1" Then Range("K1").End(xlDown).Offset(1, 0).Activate ActiveCell.Value = Date End If End Sub Mettre le code que j'ai fait en 1ér parce que quand tu quite une cellule de la colonne A tu change de feuille. Les deux seront opérationnelles A+

Boonjin · Answer

en bidouillant j'ai trouvé ça et ça me convient bien Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static AncAdress As String, AncCell As Variant If AncAdress <> "" Then 'pour 1ère initialisation. On Error GoTo Sortie If AncCell <> Range(AncAdress) Then If Range(AncAdress).Column = 2 Then Range(AncAdress).Offset(0, 4) = Date 'Changer le 3 pour autre colonne End If If Range(AncAdress).Column = 7 Then Range(AncAdress).Offset(0, 4) = Date 'Changer le 3 pour autre colonne End If End If End If Sortie: AncAdress = Target.Address AncCell = Target.Value2 End Sub Je pensais pas y arriver par tatonnement, mais si ... Big Up a lermitte222 ainsi qu'a sevetbob et a eriiic Merci a vous ,pour votre reactivité et votre pointillosité et pis merci CCM !!! Salut

[Excel] Si valeur ici alors date du jour la .

8 réponses

Discussions similaires