XL 2016 Geler cellules de calendrier

Brodeuls · 16 Mars 2020

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 · 16 Mars 2020

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

Brodeuls · 16 Mars 2020

Ci-joint mon fichier
Merci

Staple1600 · 16 Mars 2020

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")

VB:

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 · 16 Mars 2020

Staple1600 à dit:
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")

VB:

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 · 16 Mars 2020

Re

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

VB:

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

Staple1600 · 16 Mars 2020

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 · 16 Mars 2020

Staple1600 à dit:
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 · 16 Mars 2020

Re,

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

Brodeuls · 17 Mars 2020

Staple1600 à dit:
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 · 19 Mars 2020

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 · 19 Mars 2020

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 · 19 Mars 2020

Bonjour le fil, Brodeuls, fanfan38

Brodeuls à dit:
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 · 19 Mars 2020

Staple1600 à dit:
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 · 19 Mars 2020

Re,

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

XL 2016 Geler cellules de calendrier

Brodeuls

Guest

Pièces jointes

fanfan38

XLDnaute Barbatruc

Brodeuls

Guest

Pièces jointes

Staple1600

XLDnaute Barbatruc

Brodeuls

Guest

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Brodeuls

Guest

Staple1600

XLDnaute Barbatruc

Brodeuls

Guest

Brodeuls

Guest

Pièces jointes

fanfan38

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Brodeuls

Guest

Staple1600

XLDnaute Barbatruc

Discussions similaires