Forum consacré à la programmation en tous les langages (C, C++, Java, Perl, Python, Ada, ASM, Forth, Pascal, etc...

programmation VBA: copier une ligne

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

Alerter Rezoweb si ce message est illégal