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
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.pourquoi chez etoto le classeur bug, ce qui n'est pas chez d'autre utilisateur ?
Oui tu vas devoir tout repenser ton code, bonne chance et bon courage.et oui ce n'est pas une petite modification
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.Effectivement il y a certainement une relation de cause à effet
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
.Sort.SortFields.Add2 Key:=Range("C3:C" & DerLgn) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
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")
J'ai la même chose lors que j'appuie sur fin au message d'erreur.mais j'ai constaté que lors de l'affichage du Userform5 la feuille "Base" est systématiquement affichée ! est ce Normal ?
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 solutionmais j'ai constaté que lors de l'affichage du Userform5 la feuille "Base" est systématiquement affichée