Reporter la valeur d'une cellule sur une autre feuille.

Résolu/Fermé
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - Modifié par Villette54 le 30/12/2013 à 08:28
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 6 janv. 2014 à 11:23
Bonjour,

J'ai un petit soucis, je dois compléter un calendrier et j'ai besoin d'un coup de main pour me faciliter la vie.
En gros dans ce calendrier je dois définir qui va où, j'ai donc une feuille pour moi où je défini, et chacun des utilisateurs à une feuille avec son planning, où il peut ajouter des commentaires ect...

J'aimerais trouver un moyen de reporter ce que je remplis dans mon planning principal sur toute les feuilles correspondantes. Seulement, l'utilisateur peut-être amener à modifier ce planning directement sur sa feuille (Ex : ajouter une zone en plus, voir exemple sur le fichier en annexe feuille "M. C") je ne peux donc pas procéder par une formule.

J'ai donc essayer de "bricoler" un truc en VBA (sans succès) pour transposer mon planning lors de la saisie initiale, et non pas à chaque chargement de page ou autre... Afin de ne pas "écraser" les autres infos saisies par les utilisateurs.

Je cherche donc quelqu'un qui pourrait m'aider à faire cette macro, ou alors me proposer quelque chose de différent mais fonctionnel, sachant que je peux tout modifier à ma guise !

Merci d'avance à ceux qui pourront m'aider.

Ci-joint un exemple simplifié de mon fichier : https://www.cjoint.com/?0LEiAcmqaFX

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
30 déc. 2013 à 09:38
Bonjour,

Les cellules fusionnées sont à proscrire en VBA !
donc
sur tes feuilles "agents", le mois, les semaines doivent être dé-fusionnés et centrés sur plusieurs colonnes


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zone As String, Semaine As String, Agent As String

Application.ScreenUpdating = False
If Not Intersect(Target, Range("D9:F11")) Is Nothing Then
Zone = Target
Semaine = "semaine " & Target.Offset(0, -1)
Agent = Cells(8, Target.Column)

With Sheets(Agent)
Ligne = .Columns("B").Find(Semaine, .Range("B14")).Row + 2
.Cells(Ligne, "D") = Zone
End With
End If
End Sub

0
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
Modifié par Villette54 le 30/12/2013 à 10:51
Bonjour Michel,

Merci pour ta réponse, je vais essayer de comprendre comment ton code marche, et de le transposer à mon fichier.
En revanche, je ne comprends pas ce que tu veux que je fasse quand tu dis :
le mois, les semaines doivent être dé-fusionnés et centrés sur plusieurs colonnes

Merci.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 30/12/2013 à 11:21
Actuellement tu as fusionné B14:F14 (janvier) ce qui empêche les macros de fonctionner (fais un essai sur ta feuille "M.A" telle quelle et tu auras une erreur: on cherche en effet une cellule et non une plage de cellules, mais on pourrait le faire moyennant une usine à gaz)
il faut donc que tu enlèves la fusion, que tu sélectionnes B14:F14 et que tu demandes "centré sur plusieurs colonnes"
m^me punition pour les semaines B15:C15, B26:C26 etc

Pour accéder à ces commandes, tu cliques sur la petite flèche en bas et à droite du ruban accueil-alignement
0
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
30 déc. 2013 à 12:11
Ah, ok je comprends.

Désolé je ne connaissais pas cette fonction, merci.
Dernière petite question, le fait que plusieurs lignes soient fusionnées (ex D17:D21) pose-t-il un problème ?

En tout cas merci, tu vas me faire gagner un temps précieux.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
30 déc. 2013 à 13:35
le fait que plusieurs lignes soient fusionnées (ex D17:D21) pose-t-il un problème ?

Dans notre cas actuel, non.
0
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
30 déc. 2013 à 14:48
Je te remercie pour ton aide !

Bonne continuation, et bonnes fêtes (du moins ce qu'il en reste)
0