XL 2016 Calendrier Automatique

C

Compte Supprimé 979

Guest

• 22 Mai 2019

• #2

Bonjour Monhtc

Ta cellule K1 de la feuille 2 contient une date, il faut donc faire

VB:

If Month(Cells(6, Num_Col)) <> Month(Sheets("CONFIG").Range("k1").Value Then

Nota : Je préfère nommer les feuilles sur lequel je travaille, moins dangereux

A+

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Mai 2019

• #3

Bonjour Monhtc
Bonjour le Fil (Bruno) ,le Forum
Une autre version:

VB:

Sub Masquer_Jour()
Dim Num_Col As Long
Dim M_1 As Byte
Application.ScreenUpdating = False
With Feuil1
         M_Ref = Month(.Cells(10, 30))'On récupére le mois du 28 du Mois
   For Num_Col = 31 To 33     ' Boucle sur les cellules des jours 29, 30 et 31
          .Columns(Num_Col).Hidden = IIf(Month(.Cells(10, Num_Col)) <> M_Ref, True, False)'On masque en fonction de la comparaison
   Next
   .Range("c11:aG50").ClearContents  'Supprime le contenu dans les cellules
End With
Application.ScreenUpdating = True
End Sub

jean marie

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 22 Mai 2019

• #4

Merci pour votre assistance, j'ai éssayé le code de @ChTi160 mais je n'arive toujours pas à masquer les colonnes unitiles quand le mois compte 30 jours ou 28 jours. Je vous joinds le fichier pour une meilleure assistance; Merci

 

Pièces jointes

• E.xlsm

  29.3 KB · Affichages: 15

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mai 2019

• #5

Bonsoir le fil,

C'est dans l'air du temps (Recyclons, recyclons, petitpatapon )
Une macro issue d'une réponse que je postais en 2016 sur XLD

VB:

Sub Calendrier()
Dim X&, i&, cal As Range, cell As Range
ANNEE = InputBox("Choisir l'année du calendrier?", "Calendrier", Year(Date))
Application.ScreenUpdating = False
FD = CDate("1/1/" & ANNEE): [B4] = FD: [B4:M4].DataSeries 1, 3, 3, 1
For i = 1 To 12
X = Day(DateSerial(Year(Cells(4, i + 1)), Month(Cells(4, i + 1)) + 1, 0))
Cells(4, i + 1).Resize(X).DataSeries 2, 3, 1, 1
Next
End Sub

Si ça peut servir tant mieux, sinon tant mieux

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Mai 2019

• #6

Re
Le fichier avec la Macro incorporée à La procédure de la Zone combinée 1 des Mois .
jean marie

 

Pièces jointes

• E-Chti160.xlsm

  30.2 KB · Affichages: 23

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 22 Mai 2019

• #7

Bonjour le fil,

Salut ChTi160

Comme de mon côté j'avais concocté un truc, voici le fichier modifié

A+

 

Pièces jointes

• Monhtc_E.xlsm

  31 KB · Affichages: 19

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 22 Mai 2019

• #8

Bonsoir Bruno
Eh ben , plus y a de propositions , plus il a le Choix Lol
Bonne fin de Soirée
jean marie

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mai 2019

• #9

Bonsoir à toi aussi JM (de la part d'un autre JM)

(cf message#5)

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 23 Mai 2019

• #10

Merci à tous pour les différentes propositions, @ChTi160 @BrunoM45 toutes marchent celle de @Staple1600 aussi surement mais je ne sais ou copier la macro.
Par contre mon calendrier est destiné à recenser pour chaque mois la liste des absences, sauf qu'après le remplissage à la suite de ma mise en forme conditionnée (Voir fichier joint) je perds toutes les données d'un mois à un autre

 

Pièces jointes

• Monhtc_E.xlsm

  30.4 KB · Affichages: 22

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 23 Mai 2019

• #11

Re,

Monhtc à dit:

Par contre mon calendrier est destiné à recenser pour chaque mois la liste des absences, sauf qu'après le remplissage à la suite de ma mise en forme conditionnée (Voir fichier joint) je perds toutes les données d'un mois à un autre

Cliquez pour agrandir...

Noooonnnnn sans déconner

VB:

    .Range("c11:aG50").ClearContents  'Supprime le contenu dans les cellules

Perso, j'apelle ça du foutage de gueule

Aller, pour ma part banni et tchao

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 23 Mai 2019

• #12

Bonjour le fil, bonjour @BrunoM45 Comment pourrais-je donc changer de mois de façon indépendante avec ses propres donnée a remplir ?
Désolé suis novice en VBA. En supprimant cette ligne mon code ne marche plus non:

VB:

.Range("c11:aG50").ClearContents  'Supprime le contenu dans les cellules

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Mai 2019

• #13

Monhtc à dit:

Merci à tous pour les différentes propositions,... toutes marchent celle de @Staple1600 aussi surement mais je ne sais ou copier la macro.

Cliquez pour agrandir...

Ma macro est testable sur tout classeur né en Europe ou autre continent.
Elle fonctionnera aussi sur un classeur stocké sur un PC portable en apesanteur dans l'I.S.S

Tant que ce classeur (par sécurité autant qu'il soit vierge) possède un module standard dans lequel on pourra coller ma macro.
(En faisant par exemple: Sélection de la macro sur XLD -> CTRL+C -> ALT+F11 -> ALT+I -> ALT+M -> CTRL+V et enfin ALT+ F11)
Ensuite dans Excel, aller dans Affichage/Macros choisir Calendrier et cliquer sur Exécuter)

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 25 Mai 2019

• #14

ChTi160 à dit:

Bonjour Monhtc
Bonjour le Fil (Bruno) ,le Forum
Une autre version:

VB:

Sub Masquer_Jour()
Dim Num_Col As Long
Dim M_1 As Byte
Application.ScreenUpdating = False
With Feuil1
         M_Ref = Month(.Cells(10, 30))'On récupére le mois du 28 du Mois
   For Num_Col = 31 To 33     ' Boucle sur les cellules des jours 29, 30 et 31
          .Columns(Num_Col).Hidden = IIf(Month(.Cells(10, Num_Col)) <> M_Ref, True, False)'On masque en fonction de la comparaison
   Next
   .Range("c11:aG50").ClearContents  'Supprime le contenu dans les cellules
End With
Application.ScreenUpdating = True
End Sub

jean marie

Cliquez pour agrandir...

Merci de pour ton assistance @ChTi160. Le calendrier marché Nickel. Cependant j'aimerais que chaque cellule soit indépendante d'un mois à l'autre de sorte à voir les absence de Janvier, Février, mars, ainsi de suite.
Sauf que cette ligne du code:

VB:

Range("c11:aG50").ClearContents  'Supprime le contenu dans les cellules

.
Empêche cela. Comment puis-je trouver une solution ?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 25 Mai 2019

• #15

Bonjour Monhtc
Bonjour le Fil , le Forum
c est donc une vision de l ensemble des absences que tu veux ？
donc annuelle ？
explique nous .
ou alors je n ai pas compris lol
jean marie

 

Vote positif 0 Vote négatif