Re : Planning mensuel
Re bonsoir à tous le monde,
Merci ChTi160
En fait, afin de réaliser les planning des salariés, nous enregistrerons le fichier le mois d'avant en supprimant toutes les feuilles de planning et des salariés (du mois précédant), à ce moment là.
Il faudrait donc juste deux macros à part (si elles sont au début des macro création, je pense que ça pourrait être dangereux)
Par contre, je me suis rendu compte que la macro 'Copie ouvrier' ne fonctionne pas avec un plus de 35 lignes dans la feuille 'Base'. Pourtant, la macro indique qu'elle tourne jusque la dernière ligne (DerL) : ci-joint le fichier avec une quarantaine de noms.
Sub Copie_Ouvriers()
Dim X As Integer
Dim DerL
DerL = Sheets("Base").Range("A65536").End(xlUp).Row
Application.ScreenUpdating = 0
Sheets("Base").Range("A5:Z100").Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess
For X = 5 To DerL
With Sheets("Modèle")
.Range("A3") = Sheets("Base").Range("A" & X)
.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("A3")
Range("A3:L3").Select
End With
Next X
Sheets("Base").Activate
Call Liens
Range("A5").Select
End Sub
Merci d'avance
Bonne nuit à tous le monde
A+
François