XL 2016 retroplanning

fanfan38

XLDnaute Barbatruc

• 31 Octobre 2023

• #2

Bonjour
Est ce un truc comme ça que tu souhaites...
les evenements sont sur la feuille Données

A+ François

 

Pièces jointes

• evenement.xlsm

  91.8 KB · Affichages: 7

Vote positif 0 Vote négatif

V

vivi21

XLDnaute Occasionnel

• 31 Octobre 2023

• #3

fanfan38 à dit:

Bonjour
Est ce un truc comme ça que tu souhaites...
les evenements sont sur la feuille Données

A+ François

Cliquez pour agrandir...

Bonjour Fanfan,

Merci. Oui cela peut-être ce type. Je peux remplacer les nom des employés par des activités.
Par contre lorsque je clique sur un employés cela m'ouvre une fenêtre me demandant si cet évènement m'intéresse. Comment faire pour supprimer cette fenêtre ?
vivi

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 31 Octobre 2023

• #4

Il y avait une petite erreur que j'ai corrigé.
Quand tu clic sur un nom ça montre la date de l'évenement.
Si il y a plusieurs nom identique ça montre le premier et si tu clic sur non ça montre le suivant.
Si tu veux enlever cette fonction c'est la macro (sur la feuille planning)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
qu'il faut enlever
A+ François

 

Pièces jointes

• evenement.xlsm

  92.3 KB · Affichages: 3

Vote positif 0 Vote négatif

V

vivi21

XLDnaute Occasionnel

• 31 Octobre 2023

• #5

fanfan38 à dit:

Il y avait une petite erreur que j'ai corrigé.
Quand tu clic sur un nom ça montre la date de l'évenement.
Si il y a plusieurs nom identique ça montre le premier et si tu clic sur non ça montre le suivant.
Si tu veux enlever cette fonction c'est la macro (sur la feuille planning)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
qu'il faut enlever
A+ François

Cliquez pour agrandir...

Merci, j'ai effectivement enlever la macro. J'ai juste une éventuelle demande pour compléter ce fichier. J'ai besoin que cela soit à cheval sur une année. C'est à dire que j'aimerais que mon rétroplanning commence au 01/09/2023 et se termine au 31/12/2024. Est ce possible ?
vivi

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 31 Octobre 2023

• #6

Au regret de t'annoncer que je ne penses pas que ce soit possible
A+ François

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Octobre 2023

• #7

Bonsoir le Fil

Et pourquoi pas mettre cette Formule en "C2" ---> =DATE(B2;9;1)
Peut-être n'ai je pas compris Lol
Bonn fin de soirée.
Jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Octobre 2023

• #8

Re
Pour avoir la période demandée

du 01/09/2023 et se termine au 31/12/2024. Est ce possible ?

Cliquez pour agrandir...

J'ai mis en cellule "C2" ---> =DATE( Var_An;9;1)
Puis pour créer la Liste des Mois en Feuille "Données"

VB:

=TEXTE(DATE(Var_An;9;1);"mmmm aaaa") 'septembre de l'année sélectionnée
=TEXTE(DATE(Var_An;10;1);"mmmm aaaa")
etc
=TEXTE(DATE(Var_An;12;1);"mmmm aaaa")
=TEXTE(DATE(Var_An+1;1;1);"mmmm aaaa") 'Janvier de l'année suivante
etc
etc
etc
=TEXTE(DATE(Var_An+1;12;1);"mmmm aaaa") 'Décembre de l'année suivante

J'ai aussi réduit le Nombre des Colonnes du Planning de "C" à "RV"
Jean marie

 

Pièces jointes

• Planning-1.gif

  664.5 KB · Affichages: 10

Dernière édition: 31 Octobre 2023

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 1 Novembre 2023

• #9

Bonjour
Salut Chti160
La nuit porte conseil et j'ai trouvé la solution

A+ François

 

Pièces jointes

• vivi.xlsm

  103.9 KB · Affichages: 6

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Novembre 2023

• #10

Bonjour Le Fil
ce que j'ai modifié pour afficher le Planning lors du changement de "B1" à voir !

VB:

  If Target.Address = "$B$1" Then Range("A2").Value = "Septembre " & Right (Range("B1").Value, 4) 'Ici'

Beau travail François !
Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 1 Novembre 2023

• #11

Salut ChTi160
Je n'ai pas fait ça car si pas de mois affichage de l'année...
A+ François

 

Vote positif 0 Vote négatif