Microsoft 365 planning pour gestion d'horaire modif

[smahancharif]

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

 

[GALOUGALOU]

re chti160 etoto
le tri n'est pas indispensable à l'ouverture du classeur ni à chaque activation de la feuille.
on pourrait le faire au déclenchement d'une macro.
Ou alors lors de l'activation à d'autre moment d'utilisation du classeur, de manière aléatoire, le tri se fera d'où l'utilité de on error resume next
la question reste entière : pourquoi chez etoto le classeur bug, ce qui n'est pas le cas chez d'autre utilisateur ?

 

[GALOUGALOU]

re smahancharif
et oui ce n'est pas une petite modification
je vais essayer de trouver une solution, mais il faudra un peu de temps
cdt

 

[Etoto]

pourquoi chez etoto le classeur bug, ce qui n'est pas chez d'autre utilisateur ?

Excel 2016 ? J'utilise mon ordi professionnel actuellement qui fait partie d'un serveur LAN et mon entreprise gère tous les paramètres de l'ordinateur y'a peut-être un lien.

 

[Etoto]

et oui ce n'est pas une petite modification

Oui tu vas devoir tout repenser ton code, bonne chance et bon courage.

 

[GALOUGALOU]

Effectivement il y a certainement une relation de cause à effet

 

[Etoto]

Effectivement il y a certainement une relation de cause à effet

Ecoutes, quand je serais avec mon ordi personnel qui a aussi Excel 2016 ce soir, je testera ton code et je regarderai si l'erreur est présente et je te donnera les résultats.

 

[ChTi160]

Re
est ce que ceux ci ne pourrait pas faire l'affaire ?

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim DerLgn As Long
With ThisWorkbook.Worksheets("Base")
If .Visible = True Then
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
         .Sort.SortFields.Clear
         .Sort.SortFields.Add2 Key:=Range("C3:C" & DerLgn) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("A3:L" & DerLgn)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
     Range("A3").Select
     End If
End With
    Application.ScreenUpdating = True
End Sub

Bonne fin de Journée
jean marie

 

[Etoto]

Y a aussi une erreur :

La ligne de code en surbrillance est :

.Sort.SortFields.Add2 Key:=Range("C3:C" & DerLgn) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

 

[ChTi160]

Re
je n'est pas testé de cette façon Lol
je regarde
je n'ai pas utilisé "la Saisie du MdP"
en testatnt
je n'ai pas de problème d'erreur
mais j'ai constaté que lors de l'affichage du Userform5 la feuille "Base" est systématiquement affichée ! est ce Normal ?

Private Sub UserForm_Initialize()
Dim J As Long
Dim i As Integer

Worksheets("Base").Visible = True
Worksheets("Base").Select

ComboBox101 = Sheets("Tuto").Cells(1, 53)
Set Ws2 = Sheets("Configuration")

je continue Lol
jean marie

 

[Etoto]

mais j'ai constaté que lors de l'affichage du Userform5 la feuille "Base" est systématiquement affichée ! est ce Normal ?

J'ai la même chose lors que j'appuie sur fin au message d'erreur.

 

[ChTi160]

Re
pas normal puisqu'affichée en fonction du statut !
j'ai supprimé ces deux Lignes !
jean marie

 

[ChTi160]

Re
une vision de la Chose
ou alors ne je ne reproduis pas la même Chose Lol
jean marie

 

[GALOUGALOU]

re chti160

mais j'ai constaté que lors de l'affichage du Userform5 la feuille "Base" est systématiquement affichée

je l'ai conçu comme ça pour éviter des erreurs lors de l'exécution des macros ajouter modifier. Mais tu as peut-être une solution
cdtg

 

[Etoto]

En tout cas, ça change pas l'erreur que j'ai.

 

[ChTi160]

Re
le problème c'est que cette feuille ne doit pas si j'ai bien Compris , être visible par Tous ?
Etoto , chez moi rien mais fais je la bonne démarche ? Lol
jean marie