XL 2021 Formation d'un tableau automatique (Calendrier)

C

clausen

XLDnaute Occasionnel
J'aimerais en fonction de la zone AI3 en typant l'année en cours. Que le système me remplisse les zones
en jaune pour samedi et bleu pour dimanche de tous les mois.

Est-ce qu'il y aurait un génie que pourrait m'aider ?

Merci d'avance
 
Solution
AtTheOne
bonsoir à toutes & à tous, bonsoir @clausen , @piga25
Voici une proposition sans aucune formule (même cachée), uniquement gérée par 3 formats conditionnels (sur la totalité du planning).

Code d'accès à la cellule du jour :
VB: 
Sub Vers_Aujourdhui()
     If Year(Date) = [Année] Then
         ligne = (Month(Date) * 4) + [début].Row - 2
         colonne = Day(Date) + [début].Column - 1
         Application.Goto sh_Planning.Cells(ligne, colonne)
     Else
         Application.Goto [Année]
     End If
End Sub
Ce code est exécuté à l'ouverture du classeur, en cas de modification de l'année, à l'activation de la feuille planning, en cas de clic sur le bouton Aujourd'hui.

Code à l'ouverture du...
Trier par date Trier par votes
piga25

piga25

XLDnaute Barbatruc
Bonjour,
Pour faire suite à votre demande:
Les lignes avec les dates sont masquées.
En cliquant sur le bouton date du jour, cela active la cellule du jour sur la même ligne ou il y a la mise en forme conditionnelle pour les samedi et dimanche.

VB: 
Sub SelectionnerCelluleSousDateDuJour()
    Dim ws As Worksheet
    Dim dateTrouvee As Boolean
    Dim cell As Range
    Dim i As Long

    ' Définir la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1")
    dateTrouvee = False

    ' Boucle à travers les lignes 5, 10, 15, etc.
    For i = 5 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 5
        For Each cell In ws.Rows(i).Cells
            If cell.Value = Date Then
                ' Sélectionner la cellule juste en dessous de la date du jour trouvée
                ws.Cells(cell.Row + 1, cell.Column).Select
                dateTrouvee = True
                Exit For
            End If
        Next cell
        If dateTrouvee Then Exit For
    Next i

    ' Si la date du jour n'est pas trouvée
    If Not dateTrouvee Then
        MsgBox "La date du jour n'a pas été trouvée dans le tableau."
    End If
End Sub
 

Pièces jointes

  • Olivier vide.xlsm
    34.6 KB · Affichages: 6
Vote positif 0 Vote négatif
C

clausen

XLDnaute Occasionnel
piga25 à dit:
Bonjour,
Pour faire suite à votre demande:
Les lignes avec les dates sont masquées.
En cliquant sur le bouton date du jour, cela active la cellule du jour sur la même ligne ou il y a la mise en forme conditionnelle pour les samedi et dimanche.

VB: 
Sub SelectionnerCelluleSousDateDuJour()
    Dim ws As Worksheet
    Dim dateTrouvee As Boolean
    Dim cell As Range
    Dim i As Long

    ' Définir la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1")
    dateTrouvee = False

    ' Boucle à travers les lignes 5, 10, 15, etc.
    For i = 5 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 5
        For Each cell In ws.Rows(i).Cells
            If cell.Value = Date Then
                ' Sélectionner la cellule juste en dessous de la date du jour trouvée
                ws.Cells(cell.Row + 1, cell.Column).Select
                dateTrouvee = True
                Exit For
            End If
        Next cell
        If dateTrouvee Then Exit For
    Next i

    ' Si la date du jour n'est pas trouvée
    If Not dateTrouvee Then
        MsgBox "La date du jour n'a pas été trouvée dans le tableau."
    End If
End Sub
Cliquez pour agrandir...
Il y a un probléme des cellules se mettent en couleur n'importe ou quand je les remplis.
J'aimerai que chaque fois que j'ouvre le fichier il se mette automatiquement sur la date du jour sans devoir aller sur une zone "Date du jour"
 

Pièces jointes

  • xxx.xlsm
    27.3 KB · Affichages: 1
Vote positif 0 Vote négatif
AtTheOne

AtTheOne

XLDnaute Accro
Supporter XLD
bonsoir à toutes & à tous, bonsoir @clausen , @piga25
Voici une proposition sans aucune formule (même cachée), uniquement gérée par 3 formats conditionnels (sur la totalité du planning).

Code d'accès à la cellule du jour :
VB: 
Sub Vers_Aujourdhui()
     If Year(Date) = [Année] Then
         ligne = (Month(Date) * 4) + [début].Row - 2
         colonne = Day(Date) + [début].Column - 1
         Application.Goto sh_Planning.Cells(ligne, colonne)
     Else
         Application.Goto [Année]
     End If
End Sub
Ce code est exécuté à l'ouverture du classeur, en cas de modification de l'année, à l'activation de la feuille planning, en cas de clic sur le bouton Aujourd'hui.

Code à l'ouverture du classeur
VB: 
Private Sub Workbook_Open()
     Vers_Aujourdhui
End Sub

Code de la feuille planning
VB: 
Private Sub Worksheet_Activate()
     Vers_Ajourdhui
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = [Année].Address Then
          Vers_Aujourdhui
     End If
End Sub

EDIT : Nota il y a 3 noms définis
"Début" la cellule qui contient le mot JANVIER,
"Année" la cellule qui contient l'année soit AI3)
"Mois" une formule qui déduit le mois en cours en fonction de la ligne courante


Voir pièce jointe
A bientôt
 

Pièces jointes

  • Olivier vide (AI3) AtTheOne.xlsm
    22 KB · Affichages: 9
Dernière édition:
Vote positif 0 Vote négatif
Solution
C

clausen

XLDnaute Occasionnel
AtTheOne à dit:
bonsoir à toutes & à tous, bonsoir @clausen , @piga25
Voici une proposition sans aucune formule (même cachée), uniquement gérée par 3 formats conditionnels (sur la totalité du planning).

Code d'accès à la cellule du jour :
VB: 
Sub Vers_Aujourdhui()
     If Year(Date) = [Année] Then
         ligne = (Month(Date) * 4) + [début].Row - 2
         colonne = Day(Date) + [début].Column - 1
         Application.Goto sh_Planning.Cells(ligne, colonne)
     Else
         Application.Goto [Année]
     End If
End Sub
Ce code est exécuté à l'ouverture du classeur, en cas de modification de l'année, à l'activation de la feuille planning, en cas de clic sur le bouton Aujourd'hui.

Code à l'ouverture du classeur
VB: 
Private Sub Workbook_Open()
     Vers_Aujourdhui
End Sub

Code de la feuille planning
VB: 
Private Sub Worksheet_Activate()
     Vers_Ajourdhui
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = [Année].Address Then
          Vers_Aujourdhui
     End If
End Sub

EDIT : Nota il y a 3 noms définis
"Début" la cellule qui contient le mot JANVIER,
"Année" la cellule qui contient l'année soit AI3)
"Mois" une formule qui déduit le mois en cours en fonction de la ligne courante


Voir pièce jointe
A bientôt
Cliquez pour agrandir...
Merci mille fois . Pour le moment tout fonctionne comme je voulais. Je n'arrive pas à supprimer la case "Aujourd'hui" En AL/3
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
XL 2021 calendrier
Réponses
6
Affichages
360
piga25
piga25
J
  • Question
Microsoft 365 Afficher calendrier annuel selon choix des listes déroulantes
Réponses
1
Affichages
314
JJulie
J
D
  • Question
XL 2021 report automatique de donnees
Réponses
3
Affichages
192
DomL
D
M
  • Résolu(e)
Microsoft 365 Planning et calendrier vacances
Réponses
8
Affichages
468
MLIZIN
M
S
  • Question
Autres Report de données d'un onglet sur autre pour récapitulatif
Réponses
0
Affichages
292
Shimano
S
E
  • Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
804
fanch55
fanch55
C
  • Question
XL 2019 Remplir plusieurs labels d'un Useform avec les dates d'un calendrier automatique
12 13 14
Réponses
195
Affichages
9 K
Clemee61
C
C
  • Question
XL 2021 Transfert d'une partie de tableau sur une autre page avec affichage différent
2
Réponses
16
Affichages
497
clausen
C
V
  • Question
Microsoft 365 analyse d'un tableau de données
Réponses
5
Affichages
418
vousoft
V
S
  • Question
Microsoft 365 Calendrier dynamique avec sauvegarde
2
Réponses
29
Affichages
1 K
samsam2212
S

Membres actuellement en ligne

20 membres et 149 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
313 867
Messages
2 103 090
Membres
108 521
dernier inscrit
manouba