OVH Cloud OVH Cloud

Comment supprimer la raffarinade

16 réponses
Avatar
Le Surcitaire
Bonjour enocre moi ! :-)

J'aurais besoin d'aide pour finir cette macro
Le principe est de supprimer dans une grille de jour ferie le lundi de
pentecote si la date est superieur au 1 01 2005 mais de le rajouter si
c'est avant
Merci de votre aide

Sub Raffarin()
Application.ScreenUpdating = False
'supprimer le lundi de pentecote
'sur page février si année 2004
'Jacques Donzel-Gargand
Dim Raffarin As String
Dim An As String
Sheets("Accueil").Select

With Sheets("Accueil")
Sheets("Accueil").Unprotect
.Cells("I9").Delete = True
.Cells("J9").Delete = True
.Cells("K9").Delete = True
.Cells("L9").Delete = True
Sheets("Accueil").Protect DrawingObjects:=False, Contents:=True,
Scenarios:= _
False
End With
An = Sheets("Accueil").Range("Date").Value
Raffarin = (Day(DateSerial(2005, 1, 1)) = 1)
If Raffarin = True Then
' message pour année après 2005
MsgBox An & " est une année Raffarinade..." & Chr(10) & Chr(10) _
& "Vous allez travailler le lundi de Pentecote", vbInformation,
"Adaptation des grilles"

With Sheets("Accueil")
Sheets("Accueil").Unprotect
.Cells("I9").i = False
Sheets("Accueil").Protect DrawingObjects:=False, Contents:=True,
Scenarios:= _
False
End With
Else
' message pour année qui n'est pas bissextile
MsgBox "Raffarin n'est pas encore passer par là" & " " & An,
vbInformation, "Adaptation des grilles"

End If
Sheets("Accueil").Select
Range("c2").Select
Application.ScreenUpdating = True
End Sub
End Sub

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre

6 réponses

1 2
Avatar
LeSteph
Ah ben non ! :(
là c'est plus le sursciterre que t'enlèves c'est la joie de
vivre.......................
;-))
A bientôt ...

Stephane

"Le Surcitaire" a écrit dans le message de
news:
LeSteph avait soumis l'idée :
..trop tard..!
:DDDD
"Le Surcitaire" a écrit dans le message
de


news:

Oublier ma question je ne voudrais pas creer une polemique :o)

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



Eh oui! a l'heure d'aujourd hui on ne peux plus plaisanter

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre





Avatar
Frédéric Sigonneau
Bonsoir,

Merci d'éviter les contrepêteries, surtout dans un fil abordant un sujet
aussi polémiqueux.


Il est clair que de tels dérapages ne méritent qu'une panne de micro dans la
pièce du fond :(

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à toi aussi, *LeSteph*.
*Pour reprendre les termes de ton intervention* :



...évidemment à rajouter au choix de la date




Merci d'éviter les contrepêteries, surtout dans un fil abordant un sujet
aussi polémiqueux.
rofl rofl rofl




Avatar
sabatier
forcément, puisque la joie de vivre (et mieux, d'aimer) n'était-elle pas sur
Cythère...?
jps

"LeSteph" a écrit dans le message de
news:um$o5$
Ah ben non ! :(
là c'est plus le sursciterre que t'enlèves c'est la joie de
vivre.......................
;-))
A bientôt ...

Stephane

"Le Surcitaire" a écrit dans le message de
news:
LeSteph avait soumis l'idée :
..trop tard..!
:DDDD
"Le Surcitaire" a écrit dans le
message



de
news:

Oublier ma question je ne voudrais pas creer une polemique :o)

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



Eh oui! a l'heure d'aujourd hui on ne peux plus plaisanter

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre









Avatar
Patrick Bastard
Bonjour à toi aussi, *Frédéric Sigonneau*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :


Il est clair que de tels dérapages ne méritent qu'une panne de micro
dans la pièce du fond :(


Cela ne risque-t'il pas de nous brouiller l'écoute?

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à toi aussi, *LeSteph*.
*Pour reprendre les termes de ton intervention* :



...évidemment à rajouter au choix de la date




Merci d'éviter les contrepêteries, surtout dans un fil abordant un
sujet aussi polémiqueux.
rofl rofl rofl





Avatar
Frédéric Sigonneau
Re,

Cela ne risque-t'il pas de nous brouiller l'écoute?


criiiiouiiii
Ici Londres (etc.)
L'aspirant habite Javel
Je répète
L'aspirant habite Javel
criiiiouiiii

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à toi aussi, *Frédéric Sigonneau*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :


Il est clair que de tels dérapages ne méritent qu'une panne de micro
dans la pièce du fond :(



Cela ne risque-t'il pas de nous brouiller l'écoute?

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !



Bonjour à toi aussi, *LeSteph*.
*Pour reprendre les termes de ton intervention* :




...évidemment à rajouter au choix de la date




Merci d'éviter les contrepêteries, surtout dans un fil abordant un
sujet aussi polémiqueux.
rofl rofl rofl











Avatar
LeSteph
Attention à ne pas choir dans une telle spirale :
Car comme dirait Papy B
"Nos vieilles bêtes ont l'âge de l'arthrite !"

"Frédéric Sigonneau" a écrit dans le message de
news:
Re,

Cela ne risque-t'il pas de nous brouiller l'écoute?


criiiiouiiii
Ici Londres (etc.)
L'aspirant habite Javel
Je répète
L'aspirant habite Javel
criiiiouiiii

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à toi aussi, *Frédéric Sigonneau*.
*Pour reprendre les termes de ton intervention* -voir en fin de message
:




Il est clair que de tels dérapages ne méritent qu'une panne de micro
dans la pièce du fond :(



Cela ne risque-t'il pas de nous brouiller l'écoute?

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !



Bonjour à toi aussi, *LeSteph*.
*Pour reprendre les termes de ton intervention* :




...évidemment à rajouter au choix de la date




Merci d'éviter les contrepêteries, surtout dans un fil abordant un
sujet aussi polémiqueux.
rofl rofl rofl













1 2