Mise à jour de ligne excel avec formulaire vb

Fermé
butters9547 Messages postés 208 Date d'inscription mardi 9 juin 2009 Statut Membre Dernière intervention 27 août 2013 - 15 juin 2009 à 13:48
butters9547 Messages postés 208 Date d'inscription mardi 9 juin 2009 Statut Membre Dernière intervention 27 août 2013 - 17 juin 2009 à 10:33
Bonjour,
alors voila, j'ai un formulaire tout beau qui quand je coche mes checkbox et et saisie mes donnée dans mes textbox (employé ici en revanche) , tout s'affiche dans un fichier excel avec une ligne différente pour chaque employé, donc jusque la pas de problème, celui-ci arrive maintenant en fait je voudrais que a chaque saisie d'un nom d'employé celui-ci se mette en lien hypertext ou autre pour que par la suite quand je clique dessus cela m'oouvre un autre formulaire pour faire la miseà jour, je vous montre mon code :

'Procédure qui va générer sur la feuille excel un nouvel employé ou une mise à jour'
'il faudra remplir les cases correspondante et cliquer sur le bouton pour ajouter l'employé sur la feuille'

Private Sub cmdcreer_Click()

Dim conf
Dim reponse As Long

' Contrôle de saisie du nom.
If Me.Txtnom.Text = "" Then 'si le champ de saisie du nom est vide alors'
Beep 'bip sonore'
MsgBox "Vous devez entrer un nom." 'fenêtre d'information qui prévient qu'il faut saisir un nom'
Me.Txtnom.SetFocus
Exit Sub
End If
'Contrôle de saisie du prénom.
If Me.Txtprenom.Text = "" Then 'si le champ de saisie du prénom est vide alors'
Beep 'un bip sonore'
MsgBox "Vous devez entrer un prénom." 'une fenête apparait et préviens qu'il faut saisir un prénom'
Me.Txtprenom.SetFocus
Exit Sub
End If

' Mise en place des données dans la feuille de calcul Excel'

'colonne des arrivées'
'Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1, 0).Value = Me.Txtnom.Text
'Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1, 0).Value = Me.Txtprenom.Text
'Sheets("Feuil1").Range("D65536").End(xlUp).Offset(1, 0).Value = Me.Txtdatearrive.Text
'Sheets("Feuil1").Range("E65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox1.Value
'Sheets("Feuil1").Range("F65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox3.Value
'Sheets("Feuil1").Range("G65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox4.Value
'Sheets("Feuil1").Range("H65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox5.Value
'Sheets("Feuil1").Range("I65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox6.Value
'Sheets("Feuil1").Range("J65536").End(xlUp).Offset(1, 0).Value = Me.Txtvalidite.Text
'Sheets("Feuil1").Range("K65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox7.Value
'Sheets("Feuil1").Range("L65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox8.Value
'Sheets("Feuil1").Range("M65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox9.Value
'Sheets("Feuil1").Range("N65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox10.Value
'Sheets("Feuil1").Range("O65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox11.Value
'Sheets("Feuil1").Range("P65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox12.Value
'Sheets("Feuil1").Range("Q65536").End(xlUp).Offset(1, 0).Value = Me.Txtacces.Text
'Sheets("Feuil1").Range("R65536").End(xlUp).Offset(1, 0).Value = Me.Txtemp.Text



'colonne des départs'
'Sheets("Feuil1").Range("T65536").End(xlUp).Offset(1, 0).Value = Me.Txtdatedepart.Text
'Sheets("Feuil1").Range("U65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox23.Value
'Sheets("Feuil1").Range("V65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox24.Value
'Sheets("Feuil1").Range("W65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox25.Value
'Sheets("Feuil1").Range("X65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox26.Value
'Sheets("Feuil1").Range("Y65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox27.Value
'Sheets("Feuil1").Range("Z65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox28.Value
'Sheets("Feuil1").Range("AA65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox29.Value
'Sheets("Feuil1").Range("AB65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox30.Value
'Sheets("Feuil1").Range("AC65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox31.Value
'Sheets("Feuil1").Range("AD65536").End(xlUp).Offset(1, 0).Value = Me.CheckBox32.Value



Unload Me 'De cette façon, à la prochaine saisie, les textbox seront vides à l'ouverture'
'message de confirmation de la saisie'
conf = MsgBox("saisie correctement effectuée", vbInformation + vbYes + 256, "Confirmation")




End Sub



donc la en revanche ce que j'aimerais c'est que ma colonne des départ soit sur une autre userform (pas compliqué) qui s'ouvrirait quand je clique sur le nom de l'employé voulut pour pouvoir faire la mise à jour

voila merci beaucoup de votre aide j'espère avoir été assé claire ^^
merci
A voir également:

2 réponses

butters9547 Messages postés 208 Date d'inscription mardi 9 juin 2009 Statut Membre Dernière intervention 27 août 2013 6
16 juin 2009 à 13:36
svp need help

merci d'avance ^^
0
butters9547 Messages postés 208 Date d'inscription mardi 9 juin 2009 Statut Membre Dernière intervention 27 août 2013 6
17 juin 2009 à 10:33
je peux aussi mettre mon classeur sur Cjoin si le besoin s'en fait ressentir ^^
merci
0