XL 2016 Geler cellules de calendrier

[Brodeuls]

Bonjour,

On m'a référé à ce site pour essayer de trouver solution à mon problème.
Je ne suis pas experte en excel mais j'essaie de me débrouiller sauf que présentement je suis bloquée.

J'essaie de terminer mon calendrier de réservations dans Excel et mon problème est lorsque j'insère une réservation à l'aide des boutons de gauche (macros) dans le calendrier de droite et que par la suite je passe à un autre mois, ou nouvelle année avec un des 3 choix disponibles, la réservation que j'ai effectuée précédemment reste fixe donc apparaît à n'importe quelle autre sélection que je fais.

Ce que j'essaie de faire est d'isoler chaque mois, chaque année en lien avec les choix, par des calendriers vierges à chaque nouvelle sélection.

Voir photos jointes si ça peut aider.

Merci pour votre aide.

 

[fanfan38]

Bonjour
Comme tu peux le voir pas d'aide...
Raison principal: pas de fichier
un fichier est TOUJOURS le bienvenu...
A+ François

 

[Brodeuls]

Ci-joint mon fichier
Merci 🙂

 

[Staple1600]

Bonsoir le fil, Brodeuls

Je ne réponds pas à la question mais je me permets cette petite suggestion
(1 seule macro affectée à tous les boutons "prénom")

Sub mBoutons()
Dim Prenom As String, Prenoms, Couleurs, i&
Couleurs = Array(14166165, 13382400, 16721403, 13311, 10079232, 12752394, 644599, 5296274, 6299648)
Prenoms = Array("Sandy", "David", "Jessica", "Jean-François", "Daniel", "Jérémy", "Simon", "Jean-Pierre", "Francis")
Prenom = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
i = Application.Match(Prenom, Prenoms, 0)
  With Selection.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 90: .Gradient.ColorStops.Clear
    End With
    With Selection.Interior.Gradient.ColorStops.Add(0)
    .ThemeColor = xlThemeColorDark1: .TintAndShade = 0
    End With
    With Selection.Interior.Gradient.ColorStops.Add(1)
    .Color = Couleurs(i - 1): .TintAndShade = 0
  End With
End Sub

Pour tester, affecter cette macro à chaque bouton "prénom"
(en lieu et place des 9 macros actuellement affectées à ceux-ci)
J'ai testé : on obtient le même résultat
A toi de voir, si cela t'intéresse ou pas 😉

 

[Brodeuls]

Bonsoir le fil, Brodeuls

Je ne réponds pas à la question mais je me permets cette petite suggestion
(1 seule macro affectée à tous les boutons "prénom")

Sub mBoutons()
Dim Prenom As String, Prenoms, Couleurs, i&
Couleurs = Array(14166165, 13382400, 16721403, 13311, 10079232, 12752394, 644599, 5296274, 6299648)
Prenoms = Array("Sandy", "David", "Jessica", "Jean-François", "Daniel", "Jérémy", "Simon", "Jean-Pierre", "Francis")
Prenom = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
i = Application.Match(Prenom, Prenoms, 0)
  With Selection.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 90: .Gradient.ColorStops.Clear
    End With
    With Selection.Interior.Gradient.ColorStops.Add(0)
    .ThemeColor = xlThemeColorDark1: .TintAndShade = 0
    End With
    With Selection.Interior.Gradient.ColorStops.Add(1)
    .Color = Couleurs(i - 1): .TintAndShade = 0
  End With
End Sub

Pour tester, affecter cette macro à chaque bouton "prénom"
(en lieu et place des 9 macros actuellement affectées à ceux-ci)
J'ai testé : on obtient le même résultat
A toi de voir, si cela t'intéresse ou pas 😉

Merci 🙂

 

[Staple1600]

Re

Et pour la route, une dernière suggestion
(sauf erreur de ma part), la macro Supprimer pourrait se résumer à

Sub Supprimer_bis()
If TypeName(Selection) = "Range" Then Selection.Interior.Pattern = xlNone
End Sub

 

[Staple1600]

Re

Pour ta question, lorsque tu as remplis un planning mensuel, tu souhaites créer un onglet "copie" de ce mois, puis effacer la saisie sur la feuille Calendrier ?
(ce qui ferait 12 onglets mensuels par année)

 

[Brodeuls]

Re

Pour ta question, lorsque tu as remplis un planning mensuel, tu souhaites créer un onglet "copie" de ce mois, puis effacer la saisie sur la feuille Calendrier ?
(ce qui ferait 12 onglets mensuels par année)

Bonjour, oui en fait lorsque je choisis un autre mois ou une autre année ou même un des 2 autres choix, je ne veux pas que ma réservation que j'effectue en janvier 2020 pour la vidéoconférence reste indiquer comme c'est le cas présentement lorsque je change ma sélection par exemple pour février 2020 véhicule ministériel.

 

[Staple1600]

Re,

J'ai bien compris.
Simplement, cela fera grossir rapidement la taille de ton classeur.

 

[Brodeuls]

Re,

J'ai bien compris.
Simplement, cela fera grossir rapidement la taille de ton classeur.

Donc, ça ne se fait pas ou il y a une solution ?

 

[Brodeuls]

J'ai réussi à ajouter un code qui permet que lorsque je change la sélection du mois, la réservation ne se répète pas, cependant elle disparaît. (Voir visualiser le code) Je sais que je dois quelque peu modifier encore le code pour que ça fonctionne et je requiert une fois de plus votre aide svp.
Merci

 

[fanfan38]

Bonjour,
Je pense que malgré la place que ça prend il faut une feuille par mois et un fichier par année...
A+ François

 

[Staple1600]

Bonjour le fil, Brodeuls, fanfan38

Donc, ça ne se fait pas ou il y a une solution ?

Ce n'est pas que cela se fait ou pas.
Je t'informais juste que cela ferait grossir ton classeur.
Donc tu peux tester et voir à l'usage si c'est problématique ou pas.

PS: Il y a toujours une solution.
Par exemple, générer N copies en PDF une fois la réservation faite
(avec le nom du mois dans le nom du fichier PDF)
Qu'en penses-tu?

 

[Brodeuls]

Bonjour le fil, Brodeuls, fanfan38


Ce n'est pas que cela se fait ou pas.
Je t'informais juste que cela ferait grossir ton classeur.
Donc tu peux tester et voir à l'usage si c'est problématique ou pas.

PS: Il y a toujours une solution.
Par exemple, générer N copies en PDF une fois la réservation faite
(avec le nom du mois dans le nom du fichier PDF)
Qu'en penses-tu?

En faite, je ne peux pas générer un PDF une fois la réservation faite car il peut s'en rajouter à tout moment...

 

[Staple1600]

Re,

Je voulais dire un export PDF une fois qu'un mois est complet.