OVH Cloud OVH Cloud

Date jour ?

7 réponses
Avatar
YANN24
Bonjour,
comment faire alusion dans une macro entre la date actuelle du système et la
date qui est contenu dans une cellule (disons C8) d'une feuille quelqu'on
visible d'un classeur (sachant qu'il y a des feuilles non visibles)?
Merci de votre aide.
YANN

7 réponses

Avatar
Jacky
Bonjour Yann24

Si j'ai bien compris ceci pourait convenir:

'---------
MsgBox "Actuelle actuelle: " & Date & Chr$(10) & "date de la cellule C8: "
& [C8] & Chr$(10) & "Il y a " & DateDiff("d", Now, [C8]) & " jours de
difference"
'----------

Salutations
JJ


"YANN24" a écrit dans le message de
news:
Bonjour,
comment faire alusion dans une macro entre la date actuelle du système
et la

date qui est contenu dans une cellule (disons C8) d'une feuille
quelqu'on

visible d'un classeur (sachant qu'il y a des feuilles non visibles)?
Merci de votre aide.
YANN


Avatar
YANN24
Bonjour Jacky,
désolé, mais je suis novice et je ne comprend pas vraiment ta réponse, qui
doit etre bonne.
En fait, ce que je voudrais, c'est que si ma date de la cellule C8 est
dépassée de plus de 30 jours, alors la feuille en question se vérouille. Pour
celà, on pourrait demander à la macro de faire un test sur les 12 feuilles
visibles, et si la date indiquée en cellule C8 est plus vieille de 30 jours
par rapport à la date système, alors la feuille en question serait vérouillée.
Est ce possible de faire une macro qui ferait tout ça?

Merci.
YANN


Bonjour Yann24

Si j'ai bien compris ceci pourait convenir:

'---------
MsgBox "Actuelle actuelle: " & Date & Chr$(10) & "date de la cellule C8: "
& [C8] & Chr$(10) & "Il y a " & DateDiff("d", Now, [C8]) & " jours de
difference"
'----------

Salutations
JJ


"YANN24" a écrit dans le message de
news:
Bonjour,
comment faire alusion dans une macro entre la date actuelle du système
et la

date qui est contenu dans une cellule (disons C8) d'une feuille
quelqu'on

visible d'un classeur (sachant qu'il y a des feuilles non visibles)?
Merci de votre aide.
YANN







Avatar
Rodolphe
"YANN24" a écrit dans le message de news:

Bonjour Jacky,
désolé, mais je suis novice et je ne comprend pas vraiment ta réponse, qui
doit etre bonne.
En fait, ce que je voudrais, c'est que si ma date de la cellule C8 est
dépassée de plus de 30 jours, alors la feuille en question se vérouille.
Pour
celà, on pourrait demander à la macro de faire un test sur les 12 feuilles
visibles, et si la date indiquée en cellule C8 est plus vieille de 30
jours
par rapport à la date système, alors la feuille en question serait
vérouillée.
Est ce possible de faire une macro qui ferait tout ça?



Et en cherchant bien, elle peut même te faire le café avec un nuage de lait
juste à la fin. ;-)

Avatar
Jacky
Re..
En suposant que ' feuil1' reste visible et que les 12 autres existent, en
fonction de la date en c8 de la feuil1, ceci:
'--------------
Sub jj()

If (DateDiff("d", Now, Sheets("Feuil1").[C8])) < -30 Then
For i = 2 To 13
Sheets(i).Visible = False
Next
End If

End Sub
'---------------

Salutations
jj

"YANN24" a écrit dans le message de
news:
Bonjour Jacky,
désolé, mais je suis novice et je ne comprend pas vraiment ta réponse,
qui

doit etre bonne.
En fait, ce que je voudrais, c'est que si ma date de la cellule C8 est
dépassée de plus de 30 jours, alors la feuille en question se vérouille.
Pour

celà, on pourrait demander à la macro de faire un test sur les 12
feuilles

visibles, et si la date indiquée en cellule C8 est plus vieille de 30
jours

par rapport à la date système, alors la feuille en question serait
vérouillée.

Est ce possible de faire une macro qui ferait tout ça?

Merci.
YANN


Bonjour Yann24

Si j'ai bien compris ceci pourait convenir:

'---------
MsgBox "Actuelle actuelle: " & Date & Chr$(10) & "date de la cellule
C8: "


& [C8] & Chr$(10) & "Il y a " & DateDiff("d", Now, [C8]) & " jours de
difference"
'----------

Salutations
JJ


"YANN24" a écrit dans le message
de


news:
Bonjour,
comment faire alusion dans une macro entre la date actuelle du
système



et la
date qui est contenu dans une cellule (disons C8) d'une feuille
quelqu'on

visible d'un classeur (sachant qu'il y a des feuilles non
visibles)?



Merci de votre aide.
YANN









Avatar
Jacky
Et même que le truc machin chose que certain nomme lecteur de dvd ou cd,
moi je n'ai jamais compris à quoi ça pouvait servir, je pousses le bouton,
cela me sert de porte gobelet.
;o))
JJ

"Rodolphe" a écrit dans le message de
news:Ojs80%

"YANN24" a écrit dans le message de
news:


Bonjour Jacky,
désolé, mais je suis novice et je ne comprend pas vraiment ta réponse,
qui


doit etre bonne.
En fait, ce que je voudrais, c'est que si ma date de la cellule C8 est
dépassée de plus de 30 jours, alors la feuille en question se
vérouille.


Pour
celà, on pourrait demander à la macro de faire un test sur les 12
feuilles


visibles, et si la date indiquée en cellule C8 est plus vieille de 30
jours
par rapport à la date système, alors la feuille en question serait
vérouillée.
Est ce possible de faire une macro qui ferait tout ça?



Et en cherchant bien, elle peut même te faire le café avec un nuage de
lait

juste à la fin. ;-)





Avatar
YANN24
Salut comique,
ça va bien?
Et oui, mais on ne sais jamais. Il y a peut être des stars qui savent
comment faire, eux.
Mais pour ton café, il existe des plaques chauffante pour maintenir ton café
au chaud en port USB si tu y tiens!!!

à plus Rodolphe et Bon Courage dans la vie



"YANN24" a écrit dans le message de news:

Bonjour Jacky,
désolé, mais je suis novice et je ne comprend pas vraiment ta réponse, qui
doit etre bonne.
En fait, ce que je voudrais, c'est que si ma date de la cellule C8 est
dépassée de plus de 30 jours, alors la feuille en question se vérouille.
Pour
celà, on pourrait demander à la macro de faire un test sur les 12 feuilles
visibles, et si la date indiquée en cellule C8 est plus vieille de 30
jours
par rapport à la date système, alors la feuille en question serait
vérouillée.
Est ce possible de faire une macro qui ferait tout ça?



Et en cherchant bien, elle peut même te faire le café avec un nuage de lait
juste à la fin. ;-)






Avatar
YANN24
Re,

Merci Jacky, ça va fonctionner, c'est ce qu'il me fallait.
Je te remercie, au moins tu es utile sur le forum (faire avancer les choses,
c'est le but), pas le petit Rodolphe qui doit être à ses balbutiements (là,
il doit prendre son bain ou faire popo).

Enfin, merci encore, et à plus tard.
YANN



Re..
En suposant que ' feuil1' reste visible et que les 12 autres existent, en
fonction de la date en c8 de la feuil1, ceci:
'--------------
Sub jj()

If (DateDiff("d", Now, Sheets("Feuil1").[C8])) < -30 Then
For i = 2 To 13
Sheets(i).Visible = False
Next
End If

End Sub
'---------------

Salutations
jj

"YANN24" a écrit dans le message de
news:
Bonjour Jacky,
désolé, mais je suis novice et je ne comprend pas vraiment ta réponse,
qui

doit etre bonne.
En fait, ce que je voudrais, c'est que si ma date de la cellule C8 est
dépassée de plus de 30 jours, alors la feuille en question se vérouille.
Pour

celà, on pourrait demander à la macro de faire un test sur les 12
feuilles

visibles, et si la date indiquée en cellule C8 est plus vieille de 30
jours

par rapport à la date système, alors la feuille en question serait
vérouillée.

Est ce possible de faire une macro qui ferait tout ça?

Merci.
YANN


Bonjour Yann24

Si j'ai bien compris ceci pourait convenir:

'---------
MsgBox "Actuelle actuelle: " & Date & Chr$(10) & "date de la cellule
C8: "


& [C8] & Chr$(10) & "Il y a " & DateDiff("d", Now, [C8]) & " jours de
difference"
'----------

Salutations
JJ


"YANN24" a écrit dans le message
de


news:
Bonjour,
comment faire alusion dans une macro entre la date actuelle du
système



et la
date qui est contenu dans une cellule (disons C8) d'une feuille
quelqu'on

visible d'un classeur (sachant qu'il y a des feuilles non
visibles)?



Merci de votre aide.
YANN