calendrier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
Fred51510
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 2 février 2019
Version d'Excel : 2016fr

Message par Fred51510 » 12 février 2019, 16:40

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 :x
Encore merci à vous
Cordialement
F.
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'679
Appréciations reçues : 109
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 12 février 2019, 16:47

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 ?
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'679
Appréciations reçues : 109
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 12 février 2019, 17:39

re
si j'ai compris, ci-joint
crdlt,
André
Classeur1_Fred51510__test002.xlsm
(30.37 Kio) Téléchargé 5 fois
F
Fred51510
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 2 février 2019
Version d'Excel : 2016fr

Message par Fred51510 » 12 février 2019, 18:33

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
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'679
Appréciations reçues : 109
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 12 février 2019, 18:48

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)
Z
Z
Z000Z.jpg (102.88 Kio) Vu 63 fois
B
B
Z000B.jpg (36.73 Kio) Vu 65 fois
A
A
Z000A.jpg (28.78 Kio) Vu 65 fois
F
Fred51510
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 2 février 2019
Version d'Excel : 2016fr

Message par Fred51510 » 12 février 2019, 19:02

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
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'679
Appréciations reçues : 109
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 12 février 2019, 19:20

Re,
De rien c'est avec plaisir, bon entraînement
bonne fin de soirée
crdlt,
André
F
Fred51510
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 2 février 2019
Version d'Excel : 2016fr

Message par Fred51510 » 13 février 2019, 09:01

Bonjour,
Ca fonctionne :) :) :)
Un grand Merci à vous
Bonne journée
F
F
Fred51510
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 2 février 2019
Version d'Excel : 2016fr

Message par Fred51510 » 13 février 2019, 09:21

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
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'679
Appréciations reçues : 109
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 13 février 2019, 10:55

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
Classeur1_Fred51510__test004_enregistrement.xlsm
feuil3 enregistre une partie feuil1
(36.02 Kio) Téléchargé 8 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Calendrier
    par JPPLS85 » 24 novembre 2018, 09:11 » dans Excel - VBA
    3 Réponses
    196 Vues
    Dernier message par MFerrand
    24 novembre 2018, 09:35
  • Calendrier
    par Naabz » 6 août 2019, 16:14 » dans Excel - VBA
    6 Réponses
    1081 Vues
    Dernier message par Naabz
    9 août 2019, 11:44
  • Calendrier
    par ludeaux » 8 août 2019, 13:52 » dans Excel - VBA
    8 Réponses
    107 Vues
    Dernier message par ludeaux
    9 août 2019, 10:34
  • Calendrier
    par ludeaux » 9 août 2019, 11:43 » dans Excel - VBA
    8 Réponses
    99 Vues
    Dernier message par ludeaux
    9 août 2019, 14:55
  • Calendrier
    par ploz » 4 janvier 2016, 18:33 » dans Excel - VBA
    15 Réponses
    195 Vues
    Dernier message par ploz
    5 janvier 2016, 11:59
  • Calendrier
    par Respotech » 14 juin 2019, 09:33 » dans Excel - VBA
    38 Réponses
    2563 Vues
    Dernier message par Respotech
    11 juillet 2019, 12:34