chinel
XLDnaute Impliqué
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
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