P
pepette54
Guest
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
_______________________________________________________________
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
_______________________________________________________________