matrix
XLDnaute Occasionnel
Bonjour,
J'ai besoins ancore de votre aide pour un script.
Dans le fichier joint, je dois transférer de la feuille "Horaire Fruits" vers la feuille "Trancheur" les personne qui sont sujet à travailler selon l'horraire. Je dit bien uniquement ceux qui travail.
Jusque là, ça va bien selon le script si:
La ou est le problème, est dans le userform, si je veux faire sortir par jour, exemple les nom des personnes qui travail le lundi, il me donnera les nom de ceux qui travail lundi.
Comment faire s.v.p.
Merci encore pour votre aide.
J'ai besoins ancore de votre aide pour un script.
Dans le fichier joint, je dois transférer de la feuille "Horaire Fruits" vers la feuille "Trancheur" les personne qui sont sujet à travailler selon l'horraire. Je dit bien uniquement ceux qui travail.
Jusque là, ça va bien selon le script si:
Code:
Sheets("Trancheur").Select
Rows("3:1014").Select
Selection.Delete Shift:=xlUp
Range("A3").Select
Sheets("Trancheur").Select
Dim i As Long, j As Long
Dim cumlig As Long
' Première ligne d'affichage dans la feuille "Cumul de l'employé"
cumlig = 3
' Boucle à partir de la ligne 6 dans la feuille "Base de donnée"
For i = 6 To Sheets(ComboBox13.Text).Range("A" & Cells.Rows.Count).End(xlUp).Row
' Si la valeur de la colonne A correspond au nom sélectionné
If Sheets(ComboBox13.Text).Range("E" & i).Value >= "00:00" Then
' Copier les valeurs
'Sheets(ComboBox13.Text).Range("A" & i & ":E" & i).Copy Destination:=Sheets("Trancheur").Range("A" & cumlig & ":B" & cumlig)
Sheets("Trancheur").Range("A" & cumlig & ":E" & cumlig).Value = Sheets(ComboBox13.Text).Range("A" & i & ":E" & i).Value
' Ligne suivante pour l'affichage
cumlig = cumlig + 1
End If
Next i
'supprimer ligne vide
Application.ScreenUpdating = False
Dim cel As Range, PlageTest, z
z = 2
Set PlageTest = Range("A3:A200")
For Each cel In PlageTest
If cel.Value = "" Then
z = z + 1
cel.Select
Selection.EntireRow.Delete
End If
Next cel
z = 2
Set PlageTest = Range("A3:A200")
For Each cel In PlageTest
If cel.Value = "" Then
z = z + 1
cel.Select
Selection.EntireRow.Delete
End If
Next cel
'SUPPRIMER VACANCE
W = 3
Set PlageTest = Range("e3:e200")
For Each cel In PlageTest
If cel.Value = "VACANCE" Then
W = W + 1
cel.Select
Selection.EntireRow.Delete
End If
Next cel
Range("c3:D1305").Select
Selection.ClearContents
Range("B3").Select
Application.ScreenUpdating = True
UserForm1.HideLa ou est le problème, est dans le userform, si je veux faire sortir par jour, exemple les nom des personnes qui travail le lundi, il me donnera les nom de ceux qui travail lundi.
Comment faire s.v.p.
Merci encore pour votre aide.