Microsoft 365 Copier/coller d'un onglet à l'autre correspondant au mois

[TAL]

Bonjour,

Après plusieurs semaine de recherche, de prise de tête, de recherche sur d'autres forums, sur des vidéos, je viens vers vous pour obtenir à nouveau de l'aide, si cela est possible.

Je cherche a avoir une macro qui me permettrait de recopier le contenu d'une feuille dans une autre feuille.

Avec votre aide, j'ai cherché a automatiser un planning et des feuilles d'émargements.

Les deux fonctionne de la même façon, bon, je n'ai pas trouver comment faire pour que le choix du mois et de l'année qui se trouve sur la feuille Planning soit commune aux deux feuilles, mais ça fonctionne.

Pour le copier/coller, ce que je voudrais c'est :

que le premier mois dans Planning se copie/colle dans le premier mois de la feuille Emargement

que le deuxième mois dans Planning se copie/colle dans le deuxième mois de la feuille Emargement

et ainsi de suite.

Pour compliquer la chose, se copier/coller ne concerne que certaines cellules du Planning et ce colle sur certaines cellules dans Emargement.

Ci-dessous les correspondances entre la feuille Planning et la feuille Emargement.

Ces références, ne concerne que la première ligne mais il faut que se soit pour toutes les lignes et en fonction du mois.

Planning		Emargement
E5	copie dans	D12
F5	copie dans	H12
H5	copie dans	E12
L5	copie dans	I12
M5	copie dans	M12
O5	copie dans	J12

et ainsi de suite pour tous les jours de la semaine sur tous les mois.

Je vous joins le fichier.

Par avance, merci pour votre aide

 

[TAL]

Re,
Une evol possible dans la dernière PJ est de modifier AfficherMois en rajoutant Emargement :

ub AfficherMois()
    ' Est appelée par boutons des mois ou par Worksheet_Change
    Application.ScreenUpdating = False
    Emargement  ' Enregistre les infos dans Emargement
    Dim Début, Fin, Mois, ChaineMoisDébut, ChaineMoisFin

De cette façon à chaque fois qu'on change de mois, on enregistre tout dans Emargement.
car sinon si ça n'a pas été enregistré auparavant, peut être existe t-il un cas où des infos seraient perdues.

Peut-être est ce dû au faite que j'ai modifié, suite au post #8, le complément qu'il fallait rajouter au

Sub AfficherMois() 🤔

Voir code ci-dessous :
[ATTACH type="full"]1165310[/ATTACH]

Je viens de faire le test, j'ai enlevé 
Emargement [COLOR=rgb(97, 189, 109)]' Enregistre les infos dans Emargement[/COLOR]
[COLOR=rgb(0, 0, 0)]et en effet, du coup ça fonctionne bien. [/COLOR]
[COLOR=#000000]Peut-être[/COLOR][COLOR=rgb(0, 0, 0)] que je n'ai pas bien enregistré la macro du post #8 😭

C'est génial la démonstration en vidéo !!![/COLOR]

 

[sylvanu]

Peu clair.
Si vous mettez cette ligne en commentaire, est ce que cela marche ?
Car chez moi, avec ou sans cette ligne cela ne change rien.
D'ailleurs en regardant la macro Emargement, on ne vois aucun impact sur Début, car il ne touche pas à la feuille Planning.

 

[TAL]

Je ne sais absolument pas ce qui c'est passé sur le dernier post , aucune idée de comment j'ai fait. Désolée

donc je disais, je viens d'enlever la dernière mise à jour de la macro Sub AfficherMois du post #8 et en effet, le planning fonctionne bien.

J'ai dû certainement mal enregistré, ci-dessous la macro que j'avais modifié suite au Post #8

 

[sylvanu]

Bof. Le principal est que ça re-marche.

 

[TAL]

Bof. Le principal est que ça re-marche.

Merci Sylvanu, Merci pour tout
Merci pour votre aide

Je vous souhaite une bonne nuit et encore merci pour tout