Macro - date calendrier Si....

Résolu/Fermé
benji71 Messages postés 738 Date d'inscription samedi 22 mars 2008 Statut Membre Dernière intervention 4 janvier 2015 - 30 juil. 2013 à 07:24
benji71 Messages postés 738 Date d'inscription samedi 22 mars 2008 Statut Membre Dernière intervention 4 janvier 2015 - 30 juil. 2013 à 20:44
Bonjour à tous et toutes,

Permettez-moi de commencer ce post par vous souhaitez une belle journée.
Voici la difficulté que je cherche à dépasser.
J'aimerais faire en sorte que lorsqu'il y a une indication dans la colonne D, la date du jour viennent s'inscrire dans la colonne C.
Par exemple si en D20, je viens placer "salut", j'aimerais qu'en C20 vienne s'inscrire la date du jour.
mais, comme rien n'est simple, si je mets une formule avec en référence la date du jour, chaque que fois que la date calendrier va changer, ben ma date dans la colonne C va aussi changer.
je cherche donc une macro qui fasse en sorte que lorsque j'inscrits quelque chose dans la colonne D la date s'inscrit dans la colonne C sans que celle-ci ne change.
plus facile à dire qu'a faire...
si vous avez une idée et/ou solution, je suis évidemment preneur et vous en serez reconnaissant (OK vous saurez pas faire grand chose avec ça mais, c'est déjà ça ;-)

à toute fin utile voici le fichier : https://www.cjoint.com/?3GEhwu8uefm

je vous souhaite une belle journée...

bien à vous,

berni///
A voir également:

4 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
30 juil. 2013 à 08:49
Bonjour,

votre fichier modifie, VBA de la feuille:

https://www.cjoint.com/c/CGEiWySNoZs

Bonne suite
0
benji71 Messages postés 738 Date d'inscription samedi 22 mars 2008 Statut Membre Dernière intervention 4 janvier 2015 23
30 juil. 2013 à 10:29
Bonjour à tous et toutes, bonjour f894009,

merci pour votre réponse qui correspond à ce que j'ai décrit.

probbalement que cela est du à une mauvaise explication de ma part mais la macro focntionne avec le mot salut mais comment faire pour que ça fonctionne avec n'importe quel texte ?

désolé de m'être mal exprimé.... :-(

merci pour votre aide..

bien à vous,

berni///
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
30 juil. 2013 à 11:21
Re,

'Date si cellule="salut"
If Not Application.Intersect(Target, Range("d:d")) Is Nothing And Target <> "" Then
Range("C" & Target.Row) = Date
End If

Bonne suite
0
benji71 Messages postés 738 Date d'inscription samedi 22 mars 2008 Statut Membre Dernière intervention 4 janvier 2015 23
30 juil. 2013 à 20:44
Bonsoir f894009,

un tout grand merci pour la solution proposée. elle est parfaite. merci à vous.

bien cdlmnt,

berni///
0