XL 2013 Date fin de mois calendrier tableau Excel

jedi0307 · 18 Septembre 2019

Bonjour à tous,

Je cherche une macro pour faire disparaître automatiquement les dates de fin de mois pour les mois de février ainsi que les mois n'ayant que 30 jours.

J'ai essayé celle-ci, mais elle est en erreur :

Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Col)) &gt;= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules
End Sub

Mon calendrier possède un menu déroulant pour les mois et les années à venir, j'y ai inséré les week-end et les jours férié avec affichage automatique en couleur.
Mon seul soucis restant est vraiment dû à l'affichage des jours de fin de mois.

Je vous joint mon fichier Excel.
Merci pour votre aide.

Santulud · 18 Septembre 2019

Bonjour,

J'ai contourné le problème :
si dans la feuille la date dépasse la fin de mois, elle ne s'affiche pas.
ensuite,
La macro cache les colonnes vides du tableau.

jedi0307 · 19 Septembre 2019

Merci beaucoup c'est nickel maintenant

Qu'as-tu changé dans la macro ?

Santulud · 19 Septembre 2019

Bonjour,
j'ai tous changé

Dans le tableau en ligne 6, pour les jour, j'ai mis une formule pour laisser la case vide si la date dépasse la fin de mois.

Code:

=SIERREUR(SI(AE6+1>$B$4;"";AE6+1);"")

Ensuite seulement interviens la macro pour masquer les colonne

VB:

Private Sub Worksheet_Calculate()
Columns("c:ah").Select                     'On sélectionne tous le tableau
Selection.EntireColumn.Hidden = False       'On annule les filtre précédent, si il y en a

For Each cell In ActiveSheet.Range("AF6:AH6"):  'On fait le test les colonnes pour chaque date du 29-30-31
        If cell.Value = "" Then                 'Si aucune date n'est affiché (masqué par la formule dans le tableau)
            Columns(cell.Column).Select         'Alors on la sélectionne
            Selection.EntireColumn.Hidden = True    'Et on la masque
        End If
    Next cell                                       'On relance le test sur la date suivant
End Sub

Disons que j'ai réparti le travail pour simplifier le code

jedi0307 · 24 Septembre 2019

Ok merci à toi pour tes explications, par contre j'ai un autre soucis :

Ce calendrier est destiné à obtenir les prestations des membres du personnel, cependant, j'ai créé un menu déroulant pour enregistrer les prestations journalières de chaque "agent" (voir liste feuille intitulé du tableau).

Le soucis c'est que si j'enregistre par exemple pour un agent une prestation le 03 septembre, celle-ci se reproduit aussi sur tous les autres mois/années (3 octobre, 3 novembre, etc...)

Exemple :
Agent 1 on enregistre un CM (congé maladie) le 03 septembre, CM sera aussi reporté le 03/10, le 03/11, etc...; or chaque mois ça sera des prestations différentes selon l'agent concerné.

Comment peux-t-on éviter cela ?

Merci à vous.

Voici mon tableau ci joint

jedi0307 · 24 Septembre 2019

Quelqu'un a une petite idée pour mon post ci-dessus, là je suis un peu limité ?
Merci d'avance

Santulud · 25 Septembre 2019

Re,

j'ai cherché par rapport a ton problème, mais je ne vois aucune solution viable pour "stocker" les informations de chaque mois dans le format actuel du tableau...

jedi0307 · 25 Septembre 2019

Ayeee que me conseilles-tu alors?

Santulud · 25 Septembre 2019

je vois deux solution :

1- revenir a un format de fichier "basique" avec un onglet par mois => pas besoin de macros ni rien de spécial
2-Faire en sorte que le fichier s'archive en automatique avec le nom de mois correspondant (ex : Prestation Agent - Septembre.xls), et qu'il se remette a zéro à chaque début de mois.

jedi0307 · 25 Septembre 2019

Santulud à dit:
2-Faire en sorte que le fichier s'archive en automatique avec le nom de mois correspondant (ex : Prestation Agent - Septembre.xls), et qu'il se remette a zéro à chaque début de mois.

On partirais alors du tableau existant ci-joint ?
Comment faire en sorte que le fichier s'archive en automatique avec le mois correspondant ?

Encore merci à toi

Santulud · 26 Septembre 2019

Il suffit d'ajouter se petit code au fichier :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Chemin As String, Fichier As String, MonFichier As String
 
  If ThisWorkbook.Name = "Prestations Agents.xlsm" Then
Chemin = "C:\" 'Entre le chemin de ton Archive
Fichier = "Prestations Agents " & Format(Date, "mm-yyyy") & ".xlsm"
MonFichier = Chemin & Fichier
            ActiveWorkbook.SaveCopyAs Chemin & Fichier
Else
End If
End Sub

Private Sub Workbook_Open()
If Range("c3").Value = "1" Then
Range("d7:ag22").ClearContents
End If
End Sub

J'ai ajouté aussi dans la Feuil1 - C3 le numéro du jour.
A l'ouverture du fichier, il verifie si on est le premier jour du mois, si oui, il vide le calendrier.
Ou sinon on peut mettre un bouton de remise a zéro ?

A la fermeture il enregistre une copie avec mois-année, dans un dossier d'archive (a définir).

Voir fichier en P.J

jedi0307 · 26 Septembre 2019

Merci bcps à toi, je teste et je reviens vers toi

jedi0307 · 26 Septembre 2019

Je viens de tester, en fait dès que j'enregistre des modifs par exemple sur le mois de septembre, il les gardes et pas de soucis.
Une fois le 1er octobre il remet tout à 0 (septembre également) donc je n'ai plus la possibilité d'aller rechercher mes données insérées en septembre.
J'ai défini le chemin d'archive ou il agrde les données du mois précédent mais malheureusement sans avoir le pouvoir de réaliser une éventuelle modif.
Ne sais-t-on pas remettre à 0 le 1er du mois en cours et garder en mémoire les anciennes données insérées ?
Le but étant de retrouver le statut de chaque agent même pour une période précédente.
Merci de ton aide.

Santulud · 26 Septembre 2019

Bah, oui....
j'ai oublié, il faut modifié la macros d'effacement
avec un test pour qu'il vérifie si le fichier s'appel bien
Prestations Agents.xlsm

si les test est vrai, il efface, sinon rien ne se passe.

Santulud · 26 Septembre 2019

Et comme ca il n'effacera plus les archives, puisqu'ils n'ont pas le même nom...

XL 2013 Date fin de mois calendrier tableau Excel

jedi0307

XLDnaute Nouveau

Pièces jointes

Santulud

XLDnaute Occasionnel

Pièces jointes

jedi0307

XLDnaute Nouveau

Santulud

XLDnaute Occasionnel

jedi0307

XLDnaute Nouveau

Pièces jointes

jedi0307

XLDnaute Nouveau

Santulud

XLDnaute Occasionnel

jedi0307

XLDnaute Nouveau

Santulud

XLDnaute Occasionnel

jedi0307

XLDnaute Nouveau

Santulud

XLDnaute Occasionnel

Pièces jointes

jedi0307

XLDnaute Nouveau

jedi0307

XLDnaute Nouveau

Santulud

XLDnaute Occasionnel

Santulud

XLDnaute Occasionnel

Discussions similaires