Macro sur les dates

bonjour

j'aimerais que la macro m'affiche en "G1" la date du jour quand "H6" est égal a 1

et que quand "H6" est égal a 0 elle m'affiche la date du jour -1

tous ca en vba svp

merci

Bonjour

Sans H6

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H2:H3")) Is Nothing Then
Range("G1") = IIf(Range("H2") = Range("H3"), Date, Date - 1)
End If
End Sub

Amicalement

Nad

Bonjour,

Pourquoi une procédure VBA alors qu'une simple formule suffit ?

A+

Sans macro :

=SI(H6=1;AUJOURDHUI();AUJOURDHUI()-1)

désolé je peut la faire que par macro car jai une autre macro qui passe apres et elle ne prend pas en compte la premiere

il faut absolument que je passe par les valeur de 0 ou 1 de la cellule "h6"

Re

Ça ne sert à rien de joindre le même fichier.

Quelle est donc l'autre macro ?

Nad

l'autre macro me sert a protéger la feuille sauf la date du jour et les lignes qui sont lier a cette date

et comme c'est pour le boulot ,je fait les 3*8 ,les journées se finissent a 5h00 du matin et non pas a minuit

je suis obliger de contourner un peu

comme pour aujourd'hui 15/11/14 a commencer a 5h00 et finira a 5h00 demain

pour aujourd'hui je fais maintenant()-"5:00"

donc mon autre macro ne prend pas en compte les now (maintenant) de vba

et reste proteger meme la date du jour

merci de prendre un peu de temps pour moi

Quelque chose m'échappe !

Dans H2, tu as la formule =AUJOURDHUI(),

dans H3, tu as la formule =AUJOURDHUI()-"5:00",

et dans H6, tu as la formule =SI(H2=H3;1;0).

Dans H6, tu obtiendra toujours la valeur 0 puisque'il y aura toujours un écart de 5h00 entre H2 et H3.

Et dans G1, tu auras toujours la date du jour -1.

A+

oui tu as raison

je me suis tromper ce pas aujourd'hui() mais maintenant()

merci de me corrigé

Voici un exemple pour te montrer que le résultat peut s'obtenir avec une formule

A moins que quelque chose m'échappe encore

A+

désolé mais ca fonctionne pas avec ma 2 macro

je pense que ma 2 eme macro n'accepte pas le format ou les formules

il accepte que les : Date ou Date -1

ou il accepte aussi crtl poit virgule

merci

je ne peut pas vous envoyer mon programme trop^volumineux

svp je ne m'en sort plus

un peu d'aide

merci

Pour que nous puissions t'aider, il faut que tu joignes ton fichier allégé avec la macro incriminée.

Sans cela, nous ne pouvons rien pour toi, la dernière boule de cristal a été perdue .

A+

bonjour j'ai trover merci a tous pour votre aide