XL 2019 ajuster macro copier/coller

[chinel]

Bonjour tout le monde et surtout joyeux Noël ! Je cherche toujours à résoudre mon problème. Donc, je désire coller les données des cellule de la feuille "Planning" (cellules ou se trouve les prénoms) dans la colonne M de la même feuille mais par ordre alphabétique. Peut-on adapter cette macro ? Merci !

Sub Archivage()
If MsgBox("Le planning est-il complet ?", vbYesNo + vbQuestion, "Archivage") = vbNo Then Exit Sub
Dim F As Worksheet, lig&, c As Range, n%
Set F = Sheets("Personnel")
lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
F.Cells(lig, 1) = Sheets("Planning").[B1] 'date
For Each c In Sheets("Planning").[B8,B10:B15,G8,G10:G15,B17,B19:B22,G17,G19:G23,B25:B29] 'plage adaptable
n = n + 1
F.Cells(lig, n + 1) = c.Value

Next
F.Cells(lig, 1).Resize(, n + 1).Borders.Weight = xlMedium 'bordures
F.Columns.AutoFit 'ajustement largeurs
'F.Activate 'facultatif
F.[A1].CurrentRegion.Name = "T" 'plage nommée
'Worksheets("Planning").PrintPreview
End Sub

 

[job75]

Bonjour chinel,

Ce qui fiche tout par terre c'est Magali-Jonathan dans la feuille "Personnel".

Une machine doit être affectée à une seule personne.

A+

 

[chinel]

Bonjour chinel,

Ce qui fiche tout par terre c'est Magali-Jonathan dans la feuille "Personnel".

Une machine doit être affectée à une seule personne.

A+

Non j'ai modifié ça en mettant une case en plus dans la feuille "Planning" donc, on a bien 1 personne par machine

 

[job75]

Par ailleurs entrer une liste partielle en feuille "Planning" colonne M ne présente aucun intérêt.

Il faut y entrer la liste de tous les ouvriers et cela doit se faire manuellement.

 

[chinel]

Par ailleurs entrer une liste partielle en feuille "Planning" colonne M ne présente aucun intérêt.

Il faut y entrer la liste de tous les ouvriers et cela doit se faire manuellement.

je ne dispose pas de la liste des gens mais bien le chef d'équipe. La liste des gens varie vis-à-vis d'autres secteur comme la RH et aussi de l'agence d'intérim

 

[job75]

je ne dispose pas de la liste des gens

Elle est pourtant nécessaire pour créer les listes de validation et la 2ème ligne de la feuille "Comptage".

Sans elle votre fichier n'aura pas de sens.

 

[chinel]

Elle est pourtant nécessaire pour créer les listes de validation et la 2ème ligne de la feuille "Comptage".

Sans elle votre fichier n'aura pas de sens.

c'est possible ou pas ? sachant qu'il y a maximum 30 personnes qui occupe les 30 machines

 

[job75]

c'est possible ou pas ?

C'est à vous de voir et si ce n'est pas possible mettez votre fichier à la poubelle.

La liste des ouvriers peut bien sûr contenir plus de 30 personnes.