Calendrier

Bonjour,

Je viens de créer un calendrier. J'ai "lié" le mois et l'année au haut du calendrier. Quand je change le mois ou l'année le calendrier change sauf… Dans les cases en dessous de la date (01/01/2019) par exemple, si je sélectionne le prénom "Jean" dans le menu déroulant et que je change de date, ce que j'ai sélectionné auparavant reste.

Est-il possible d'avoir un mois "vierge" quand je change de mois?

J'espère avoir été suffisamment explicite.

J'ai également essayé d'attribuer à chaque prénom une couleur via la mise en forme conditionnelle. On voit dans la pièce jointe que les couleurs apparaissent mais quand je fais dérouler le menu dans le tableau les noms apparaissent sans les couleurs.

Par avance merci de l'aide que vous pourrez m'apporter.

F

18classeur1.xlsx (17.87 Ko)

Bonjour toutes et tous


en .xlsm (car formatage des cellules)

j'ai mis ce code:

Sub Zonecombinée4_QuandChangement()
With Sheets("Feuil1")
.Range("B5:BK11").ClearContents
End With
End Sub

Après mise en forme conditionnelle MFC pour Inttitulé et TPO de ta feuil1

@ tester

crdlt,

André

ztesccccc ztesbbbbb

Bonjour,

Merci beaucoup pour votre aide c'est génial.

J'ai une dernière question, que veux dire ceci:

en .xlsm (car formatage des cellules)

j'ai mis ce code:

Sub Zonecombinée4_QuandChangement()

With Sheets("Feuil1")

.Range("B5:BK11").ClearContents

End With

End Sub

Ou dois-je mettre? Dans une macro?

Bonne soirée et encore merci

F

re,

la macro est déjà présente sur la pièce jointe de mon post précédent, pour le formatage des cellules

s'était juste pour le signaler

la mfc quant à elle, avec macro ou sans macro fonctionnera pour tes TPO et intitulé en couleurs


Question: Je n'ai pas bien compris pour: ton mois vide ?

en attente de ta réponse

crdlt,

André

Re

Mon mois vide je ne comprends pas (désolé … ça doit être la fatigue).

Je viens de le refaire. J'ai dans un premier temps effectué la mise en forme.

Dans un second temps j'essaie de réaliser la macro

Je dois sélectionner la ligne de B5 à BK11 pour commencer c'est ça?

Est-il possible d'avoir une méthode pas à pas svp?

Encore merci

Bonne soirée

Re,

moi aussi, c'est la fatigue lol

j'avais compris qu'il fallait ajouté un mois supplémentaire

oupsss. les mois vierges (ce sont tes cellules de B5 à BK11 qui seront vident plus de contenu)

pas à pas:

1/ formatage de tes cellules de B5 à BK11. = ok (la macro le fait bien)


2/ la 1ère mise en forme conditionnelle (MFC) pour INTITULE

J'ai sélectionné : en utilisant la touche CTRL du clavier (restant appuyé)

CTRL enfoncé +clic gauche enfoncé en sélectionnant B5 à B11 , CTRL toujours enfoncé,D5 à D11,... F5 à F11 H5 à H11 .[...] BJ5 à BJ11 après, je suis allé sur le menu ==>Accueil<== , ==>

A Mise en forme Conditionnelle, Gérer les Règles, j'ai choisi Nouvelle Règle, dans la mini fenêtre qui s'ouvre, j'ai choisi Appliquer une mise en forme uniquement aux cellules qui contiennent à côté à droite de Valeur de Cellule, j'ai cliqué sur la petite flèche et choisi 'Texte Spécifique' <contenant> ==> Jean (par exemple) j'ai cliqué sur Format, j'ai défini son Remplissage (couleur de la cellule) puis Ok et surtout ne pas oublier de cliquer sur Appliquer

et hop! on retourne sur Mise en forme conditionnelle on continu.... (A)

3/la 2ème mise en forme conditionnelle (MFC) pour DPO

Ctrl (restant appuyé) C5C11 E5E11... etc puis refaire A

Re bonsoir

Je vous remercie c'est très gentil à vous d'avoir pris du temps

Je vous souhaite une excellente soirée

F

re,

De rien, également bonne fin de soirée.

crdlt,

André

Bonjour,

Je viens de faire les MFC cela fonctionne parfaitement. Pour ce qui est du code à copier j'ai fait:

Macro enregistrer puis j'ai mis votre code et ça ne fonctionne pas.

Pourriez-vous m'aider à nouveau svp?

Bonne journée à vous

Cordialement

F

Bonjour,

[...] Pour ce qui est du code à copier j'ai fait:

Macro enregistrer puis j'ai mis votre code et ça ne fonctionne pas.

[...]

Re,

A tout hasard le nom de l'onglet de votre classeur s'appelle t'il toujours Feuil1 ?

en attente...

crdlt,

André

Bonjour,

Mon onglet est la feuille 8 je l'ai changé dans la formule.

En fait je dois le refaire sur un poste au travail sans possibilité de copier votre formule qui fonctionne parfaitement

Mon calendrier pour le mois de janvier va de la case C4 à la case BL10

Le champ mois est en A3

Le champ date est en A4

Le champ période est dans une cellule fusionnée de B2 à BL2

Je pense vous avoir donné toutes les infos

J'ai créé une macro et quand j'essaie de la faire fonctionner

Encore merci à vous

Cordialement

F.

re,

Excel déteste les fusions, il ne supporte pas il est hyper allergique

Le champ période est dans une cellule fusionnée de B2 à BL2

sans fusion cela donne quoi ?

re

si j'ai compris, ci-joint

crdlt,

André

re,

je testerai demain

si j'ose pouvez-vous me mettre un pas à pas pour la macro svp

je voue remercie pour votre patience et votre gentilesse

bonne soirée

F

Re, Fred51510


Pour ouvrir la macro

2 touches du clavier: Alt + F11


on aperçoit le nom : Module 1 sur la partie de gauche et la partie de droite le code:

Sub Zonecombinée4_QuandChangement()
With Sheets("Feuil1")
.Range("C5:BL11").ClearContents
End With
End Sub

On lui affecte cette macro par exemple(B):


Pour créer un Nouveau Module ( voir image Z )

par défaut il s'appellera Module 1 (on peut très bien le renommer également)

(dans ce cas là, je ne vais pas en créer un autre Module car, le code est déjà présent dans le Module 1 de ce classeur)

z000a z000b z000z

C'est super

Merci … merci

Je n'ai pas fait du tout de cette façon je pense que je m'y prennais très mal

Votre pas à pas est génial

Je teste demain

Je vous souhaite une excellente soirée

F

Re,

De rien c'est avec plaisir, bon entraînement

bonne fin de soirée

crdlt,

André

Bonjour,

Ca fonctionne

Un grand Merci à vous

Bonne journée

F

Re-bonjour,

J'ai encore une question … désolé je débute

Quand on change de mois, les données se remettent à 0

Est-il possible de les concerver? Ou doit-on enregsitrer une feuille par mois?

Bonne journée

Cordialement

F

re,

tu peux tester comme ceci (me reste à trouver la ref de la feuil3)

Option Explicit

Sub Zonecombinée4_QuandChangement()
' demande de confirmation par message si oui, on vide la feuille 3
' si non, on supprime le contenu de c5 à bl11 de la feuille 1
If MsgBox("Etes vous certain(e) de vouloir inscrire ce mois ?", vbYesNo + vbInformation, _
"Attention") = vbYes Then
With Sheets("feuil3").Cells.Clear
End With

 Sheets("Feuil1").Range("C4:BL12").Copy Destination:=Sheets("Feuil3").Range("A1")

Else

With Sheets("Feuil1")
.Range("C5:BL11").ClearContents
End With
Exit Sub
End If
End Sub

@ tester et surtout à améliorer

Rechercher des sujets similaires à "calendrier"