Programme VBA (copie d'une ligne)

Question

Bonsoir &#224; tous. 
Il faut que je cr&#233;&#233; un programme permettant &#224; un utilisateur d'entrer un nom afin de cr&#233;er une nouvelle feuille excel et de copier les donn&#233;es li&#233;es &#224; cet utilisateur (peut etre pr&#233;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.

cs_tecman · Answer

Bonjour.



Sans vouloir te r&#233;primer, ta demande ne concerne aucunnement SQL.

Je te conseille d'aller sur VBFrance (http://www.vbfrance.com/).



Bon courage.

Tecman

Programme VBA (copie d'une ligne)

1 réponse

Votre réponse

Discussions similaires