Effacer les colonnes appartenant au mois suivant

[Atiom]

Bonjour,

Dans un planning,tout en gardent les formules et les mises MFC existantes, je souhaiterait effacer les colonnes appartenant au mois suivant, dans l’occurrence la plage AF6 :AH33.

Comme il y a déjà 3 MFC j’ai pensé au VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("AG8").Value = "01" Then
Range("AG8").ClearContents
End If
End Sub

Mais comme les cellules en question son au format personnalisé date, ça complique encore plus.

Je mets en fichier joint pour une meilleure compréhension de mon problème.
Merci d’avance pour votre aide

Ps : Je suppose que le problème peut être aussi résolu par formule, mais franchement je vois pas comment.

 

[skoobi]

Re : Effacer les colonnes appartenant au mois suivant

Bonjour,
essaye ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="Red"]If Day(Range("AG8").Value) = 1[/COLOR] Then
Range("AG8").ClearContents
End If
End Sub

 

[jeanpierre]

Re : Effacer les colonnes appartenant au mois suivant

Bonjour Atiom, le forum,

Par formules :

Cette formule en AF6 : =SI(MOIS($D$4<>$AE$7);"";ENT((AF8-SOMME(MOD(DATE(ANNEE(AF8-MOD(AF8-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7))

En AF7 : =SI(MOIS($D$4<>$AE$7);"";TEXTE(AF8;"jjj"))

En AF8 : =SI(MOIS($D$4<>$AE$7);"";AE8+1),

et tirer jusqu'en AH

A te lire.

Jean-Pierre

Edit : Salut Skoobi

 

[Atiom]

Re : Effacer les colonnes appartenant au mois suivant

Bonjour, Skoobi et jeanpierre

Skoobi j’ai essayé ta proposition en VBA mais elle ne fonctionne pas, as-tu essayé ?


Jeanpierre ta proposition par formules, efface le contenu dans la plage AF6 :AH8 mais le but est de pouvoir réafficher à nouveau ces colonnes lorsque le mois change.

Chez toi lorsque tu change le mois, exemple renomme la Feuille 2 (correspondante au mois de février en 1 pour janvier ) ça fonctionne ? Est-ce que les jours 29,30 et 31 sont affiches.

Merci beaucoup de votre aide

 

[jeanpierre]

Re : Effacer les colonnes appartenant au mois suivant

Re,

Le problème provient de ta macro évenementielle dont je ne sais toujours pas ce qu'elle veut faire puisqu'elle m'éjecte à chaque fois.

Si tu avais la date en claire quelque part du genre 01/01/2008 plutôt que plusieurs cellules pour le jour, l'année, le mois, je pense que le problème serait résolu.... Pour le reste on peut faire la même chose à partir de ce seul renseignement.

A te lire donc sur cette macro et son intérêt.

 

[Atiom]

Re : Effacer les colonnes appartenant au mois suivant

Salut. Jeanpierre

Ca fait un moment que je fait de testes et même en suppriment toutes les macros les formules ne fonctionne pas.
Peux-tu me mettre un fichier sans les macros ?

Merci de ton aide

 

[Banzai64]

Re : Effacer les colonnes appartenant au mois suivant

Bonjour

Une étude

 

[Atiom]

Re : Effacer les colonnes appartenant au mois suivant

Salut, Banzai64

Impeccable.
Ça me convient.
Merci beaucoup, et bonne soirée à tous.🙂

 

[jeanpierre]

Re : Effacer les colonnes appartenant au mois suivant

Re, Salut Banzai, et le forum,

Même pas le temps d'ouvrir excel pour répondre, que tu es déjà passé....

N'empêche que je trouve illogique de devoir passer par AX, AY, AZ, pour une date, alors que ces cellules sont cachées par format/ligne/0

Ou bien je n'ai pas tout vu....

Finalement, le principal est que cela fonctionne.