smahancharif
XLDnaute Junior
bonjour je suis nouvelle ici et je souhaiterai créer un planning où les 47 employés pourrait intégrer leurs horaires il y 4 types d'horaires et 3 tupes de pauses.
merci
merci
@GALOUGALOU excuse-moi j'ai bien mes 8h mais c'est la Casa AM qui m'a induite en erreur... d'ailleurs pourquoi il y est indique 3h30? merci encore pour toutet il y a aussi un problème avec l'horaire du lun au jeu: j'ai pas mes 8h?
oucou non ca ira c'est super gentil. par contre peux-tu m'expliquer a quoi ser la colonne A et pourquoi au niveau des semaines colonne c il a y 1 horaire sem37 et 40? merci
Regarde la pièce jointe 1115126
Citer
ActiveWorkbook.Worksheets("Base").Sort.SortFields.Add2 Key:=Range("C3:C10000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
Oui ça fonctionne désormais, tu savais pourquoi ça bloquait ?re etoto
c'est une macro dans l'événement feuille, pour trier la feuille Base
elle n'est pas indispensable, essaye de la supprimer pour voir le résultat.
cdt
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If Sheets("Base").Visible = True Then
On Error Resume Next
Range("A3:L10000").Select
ActiveWorkbook.Worksheets("Base").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Base").Sort.SortFields.Add2 Key:=Range("C3:C10000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Base").Sort
.SetRange Range("A3:L10000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A9500:L10000").Select
Selection.ClearContents
Range("A3").Select
End If
Application.ScreenUpdating = True
End Sub
Hello,re etoto
allez je te sollicite pour un essai
pourrais-tu modifier la macro evenenent feuille de la feuille base et me faire retour de ton experience
cdtVB:Private Sub Worksheet_Activate() Application.ScreenUpdating = False If Sheets("Base").Visible = True Then On Error Resume Next Range("A3:L10000").Select ActiveWorkbook.Worksheets("Base").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Base").Sort.SortFields.Add2 Key:=Range("C3:C10000") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Base").Sort .SetRange Range("A3:L10000") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A9500:L10000").Select Selection.ClearContents Range("A3").Select End If Application.ScreenUpdating = True End Sub
Normal non ? y'a le :je n'ai pas eu l'erreur qui est apparue.
si tu le supprimes ca donne quoi ?On Error Resume Next
Du coup y'a pas de problème.n'est pas indispensable
merci! autre petite modification: est-ce que l'on pourrait faire le même planning mais en laissant la possibilité de choisir la pause de midi en fonction du jour et non pas le figer pour le lundi au jeudi?re smahancharif
il suffit de cliquer sur la petite flèche pour voir tous les horaires. Si d'aventure il manque une information, il faut corriger la feuille configuration colonne M et N
utile a la macro. en cas de modification sur une saisie valide, cela permet d'identifier la bonne ligne.
Il faut prendre du recul. C'est un classeur de test avec des informations inutiles (mais utile aux test)
toutes ces informations sont a supprimés. au bout de plusieurs semaine cette feuille sera remplie par des centaines d'informations. (voir les messages précédent)(pour les opérateurs il n'est pas utile de consulter la feuille Base, cette feuille ne sert qu'à stocker l'ensemble des informations saisies par les collaborateurs
cdt
galougalou
Cela va pas lui faciliter la tache, bonne chance @GALOUGALOUen fonction du jour et non pas le figer pour le lundi au jeudi?