Recherche Une Macro Pour Figer La Date Du Jour

Valdo

XLDnaute Nouveau
Bonjours à tous

Je suis nouveau sur ce forum, et je remercie par avance tous ceux qui pourront m'apporter leur aide.

Voilà je vous explique mon problème. Je n'y connais strictement rien dans les macros et pourtant j'ai besoin d'elles. C'est un passage obligé pour régler mon problème. Si vous avez une solution pour moi je vous demande également de bien vouloir avoir la gentillesse de m'indiquer le chemin pour écrire la macro.

Voilà ce que je cherche à faire :

Mettons la date du jour en A1 par exemple.

Si B1="Présent" alors copier la date du jour en C1 (sans que celle-ci ne change le lendemain)
Si B2="Présent" alors copier la date du jour en C2 ( // )
Si B3="Présent" alors copier la date du jour en C3 ( // )
etc... jusqu'à B10 par exemple

Par contre si je suis amené à supprimer ou ajouter des lignes il ne faut pas que cela change quoi que se soit.

ENCORE MERCI A VOUS
 
Dernière édition:

Brigitte

XLDnaute Barbatruc
Re : Recherche Une Macro Pour Figer La Date Du Jour

Bonjour,

Je n'ai malheureusement pas de solution pour toi, n'étant pas une spécialiste des macros, mais deux pistes :

- en bas de ton fil : plusieurs fils similaires
- dans recherche puis recherche avancée, en tapant : figer date jour

Plusieurs fils apparaissent, donc par exemple celui-ci qui me semble correspondre :

https://www.excel-downloads.com/threads/condition-aujourdhui-fige.89913/

ou encore dans les fils du bas :

https://www.excel-downloads.com/threads/comment-figer-la-date-du-jour-dans-un-fichier.65800/ une solution de Thierry, THE REFERENCE.

Bon courage.

Edit : Salut JP
 
Dernière édition:

jp14

XLDnaute Barbatruc
Re : Recherche Une Macro Pour Figer La Date Du Jour

Bonjour
Bonjour Brigitte,

Ci joint un fichier avec une macro évènementielle
Quand on change la valeur dans B …; si la cellule adjacente est vide alors on copie la date qui se trouve dans A1.

A tester

JP

Macro à modifier pour tester le mot "Présent"
With Sheets(ActiveSheet.Name)
If Target.Value = "Présent" Then au lieu de If Target.Value <> ""
 

Pièces jointes

  • Classeur1.zip
    8.8 KB · Affichages: 115
  • Classeur1.zip
    8.8 KB · Affichages: 122
  • Classeur1.zip
    8.8 KB · Affichages: 121
Dernière édition:

yusukens

XLDnaute Occasionnel
Re : Recherche Une Macro Pour Figer La Date Du Jour

Je vois que plusieur personne a répondu avant moi

je te propose un petit fichier qui doit répondre à ton probleme.

Cordialement
 

Pièces jointes

  • test.xls
    25.5 KB · Affichages: 207
  • test.xls
    25.5 KB · Affichages: 219
  • test.xls
    25.5 KB · Affichages: 234

Discussions similaires

Réponses
5
Affichages
244
Réponses
6
Affichages
143

Membres actuellement en ligne

Statistiques des forums

Discussions
312 493
Messages
2 088 956
Membres
103 990
dernier inscrit
lamiadebz