Bonsoir à tous.
Il faut que je créé un programme permettant à un utilisateur d'entrer un nom afin de créer une nouvelle feuille excel et de copier les données liées à cet utilisateur (peut etre présent plusieurs fois).
Voici mon programme:
______________________________________________________________
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
'copier toute la ligne dans la ligne 1ere ligne vide de la feuille nom End If
Next
fin:
Unload utilisateur
End Sub
_______________________________________________________________
Merci d'avance.