Bonjour à tous,
Je me permets de poster un nouveau sujet car je n'ai pas trouvé de réponse à ma question dans les autres sujets de ce forum ni ailleurs.
Je vais essayer de vous expliquer l'ensemble de ma problématique :
Je dois créer un planning de production de dossier dans lequel je pourrai rentrer les dates de début et de fin de chaque dossier (plusieurs par jour) pour qu'une fois le dossier fini, les employés puissent rentrer leurs heures de prod avant de "clore" ce dossier.
Je dois pouvoir ensuite récupérer et sauvegarder différentes données comme le nom, le temps général de prod du dossier, etc.
Bon, je suis encore loin de toute la partie VBA pour la façon dont les employés feront cela, j'ai commencé un petit peu dans le fichier joint mais je vous avoue que je ne sais pas trop comment faire au mieux, en passant par des formulaires ou autres solutions.
J'ai vu cette vidéo mais est-ce la meilleure solution pour mon besoin ? https://www.youtube.com/watch?v=cnEROTSu3yA
Bref, pour l'instant, je travaille à l'affichage de mon planning. Il va se présenter en 3 parties :
- A gauche, tout ce qui concerne le dossier
- Au milieu, le calendrier avec les dates de départ et de fin
- A droite, les heures de production
J'ai créé mon calendrier perpétuel et tout l'affichage des types de dossier mais je bloque sur une chose : je souhaiterais fixer le calendrier au milieu, sur 4 semaines, pour pouvoir garder sur l'écran les 3 parties en même temps.
Il faudrait juste que je puisse faire défiler ce calendrier au milieu.
Je ne sais pas si je suis très clair, je joins le fichier pour que vous puissiez voir ce que je souhaite faire.
J'ai remarqué cette macro qui se rapproche de ce que je voudrais sur un autre sujet de ce forum, mais n'ai pas réussi à l'adapter à mes besoins.
https://forum.excel-pratique.com/viewtopic.php?f=2&t=101700&p=596014&hilit=figer+colonnes#p596014
Private Sub SpinButton1_Change()
Dim k%
k = SpinButton1.Value
If k = 1 Then
k = 11
ElseIf k = 12 Then
k = 2
End If
Application.ScreenUpdating = False
Me.Columns("B:K").Hidden = True
Me.Columns(k).Hidden = False
SpinButton1.Value = k
End Sub
D'avance merci à tous ceux qui prendront le temps de me lire et de m'aider
Cdt