Salut pepette54
bonsoir Patrick
bonsoir le forum
tout d'abord je tiens à dire et même à répéter ,qu'il n'est pas évident de travailler directement sur du code ,un fichier joint permet de tester et donc de mieux comprendre.
car il faudrait reconstruire un fichier ainsi que les Forms etc
pas possible Lol
donc en Gras ce que j'ai rajouté non Testé
Private Sub Ok_Click()
If nom = '' Or nom = ' ' Then
MsgBox ('Veuillez entrer un nom d'utilisateur pour continuer'), vbOKOnly
GoTo fin
Else
For ligne = Worksheets('journal').UsedRange.Rows.Count To 1 Step -1
If UCase(Worksheets('journal').Cells(ligne, 6).Value) = UCase(nom.Value) Then
GoTo suite
End If
Next
MsgBox ('L'utilisateur n'a pas ouvert de session'), vbOKOnly
GoTo fin
End If
suite:
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = nom
Range('A1:E1').Select
ActiveCell.Offset(0, 0).Value = 'Id'
ActiveCell.Offset(0, 1).Value = 'ouverture:date'
ActiveCell.Offset(0, 2).Value = 'ouverture:heure'
ActiveCell.Offset(0, 3).Value = 'fermeture date'
ActiveCell.Offset(0, 4).Value = 'fermeture heure'
For ligne = Worksheets('journal').UsedRange.Rows.Count To 1 Step -1
If UCase(Worksheets('journal').Cells(ligne, 6).Value) = UCase(nom.Value) Then
Worksheets('journal').Cells(ligne, 6).EntireRow.Select
Selection.Copy
With Worksheets(nom)
Derlgn = .Range('A65536').End(xlUp).Row + 1
.Cells(Derlgn, 1).Paste
End With
End If
Next
fin:
Unload utilisateur
End Sub