Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comment supprimer la raffarinade

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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
LeSteph
Bonsoir,

Le principe pourrait aussi être
à compter de 2005 s'ils sont obsolètes:

Sub mypurpose()
Dim raff as Error 'le typage ici est facultatif car par defaut
On error resume next
Project
Vbprojects("Suppressjourspentecôte").delete
Vbprojects("SecuPoubelle").delete
Vbprojects("PrivateFonctPubl").delete
Vbprojects("PrecarEmplJeun").delete
Vbprojects("KillRetraites").delete
End sub
'-----
'mais c'est une autre méthode

leSteph

"Le Surcitaire" a écrit dans le message de
news:
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:úlse, 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:úlse, 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



Avatar
LeSteph
Re,

Pardon pour la charte,
l'intitulé touche une dent encore sensible
et quand m^me pour toi :
if Format([i9],"yyyy")>"2004" then [i9].clearcontents

leSteph

"Le Surcitaire" a écrit dans le message de
news:
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:úlse, 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:úlse, 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



Avatar
Le Surcitaire
LeSteph a pensé très fort :
Re,

Pardon pour la charte,
l'intitulé touche une dent encore sensible
et quand m^me pour toi :
if Format([i9],"yyyy")>"2004" then [i9].clearcontents

leSteph

"Le Surcitaire" a écrit dans le message de
news:
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:úlse, 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:úlse, 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



Merci mais comment recrer le jour de pêntecote

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


Avatar
LeSteph
...évidemment à rajouter au choix de la date
sinon cela supprime tout ce qui est supérieur à 2004
...
;-)

"LeSteph" a écrit dans le message de
news:
Re,

Pardon pour la charte,
l'intitulé touche une dent encore sensible
et quand m^me pour toi :
if Format([i9],"yyyy")>"2004" then [i9].clearcontents

leSteph

"Le Surcitaire" a écrit dans le message de
news:
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:úlse, 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:úlse, 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







Avatar
LeSteph
Bsr,oupss
je pensais que cette réf i9 visait entre autresdans la feuille
les cellules en réf de la fonction
nb.jours.ouvres(date deb;date;fin;jours fériés)
si tu ne l'as pas charge dans macro compl.
l'utilitaire d'analyse voir l'istaller.
Le troisième param sert à déterminer la liste des jours fériés.
pour référer à une seule cell mettre idem date deb date fin.
C'est une parmi d'autres solution.

leSteph


"Le Surcitaire" a écrit dans le message de
news:
LeSteph a pensé très fort :
Re,

Pardon pour la charte,
l'intitulé touche une dent encore sensible
et quand m^me pour toi :
if Format([i9],"yyyy")>"2004" then [i9].clearcontents

leSteph

"Le Surcitaire" a écrit dans le message
de


news:
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:úlse, 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:úlse, 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



Merci mais comment recrer le jour de pêntecote

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





Avatar
Patrick Bastard
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

--
Bien cordialement,
==================================== P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Avatar
LeSteph
..tu as donc mis le doigt dessus..Rabelaisien

"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de
news:
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

--
Bien cordialement,
==================================== > P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse





Avatar
Le Surcitaire

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

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Avatar
LeSteph
..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



Avatar
Le Surcitaire
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


1 2