probleme avec un formualire de saisie

[freefreebird]

Bonjour, J'ai fais un formulaire de saisie ev vb pour une base de donnee excel mais lorsque je valide rien de s'affiche sur ma feuille excel et la boite de saisie se contente juste de se fermer.
J'arrive pas a comprendre pourquoi.

Voici mes lignes de commandes :


Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub Cmdok_Click()

If Me.txtname.Text = "" Then
Me.txtname.Text = "-"
End If

If Me.txtfirstname.Text = "" Then
Me.txtfirstname.Text = "-"
End If

If Me.txtcompany.Text = "" Then
Me.txtcompany.Text = "-"
End If

If Me.txttype.Text = "" Then
Me.txttype.Text = "-"
End If

If Me.txtphone.Text = "" Then
Me.txtphone.Text = "-"
End If

If Me.txtmobile.Text = "" Then
Me.txtmobile.Text = "-"
End If

If Me.txtfax.Text = "" Then
Me.txtfax.Text = "-"
End If

If Me.txtemail.Text = "" Then
Me.txtemail.Text = "-"
End If

If Me.txtwebsite.Text = "" Then
Me.txtwebsite.Text = "-"
End If

If Me.txtaddress.Text = "" Then
Me.txtaddress.Text = "-"
End If

If Me.txtinfo.Text = "" Then
Me.txtinfo.Text = "-"
End If



Sheets("sheet1").Range("A6000").End(xlUp).Offset(1, 0).Value = Me.txtname.Text
Sheets("sheet1").Range("B6000").End(xlUp).Offset(1, 0).Value = Me.txtfirstname.Text
Sheets("sheet1").Range("C6000").End(xlUp).Offset(1, 0).Value = Me.txtcompany.Text
Sheets("sheet1").Range("D6000").End(xlUp).Offset(1, 0).Value = Me.txttype.Text
Sheets("sheet1").Range("E6000").End(xlUp).Offset(1, 0).Value = Me.txtphone.Text
Sheets("sheet1").Range("F6000").End(xlUp).Offset(1, 0).Value = Me.txtmobile
Sheets("sheet1").Range("G6000").End(xlUp).Offset(1, 0).Value = Me.txtfax.Text
Sheets("sheet1").Range("H6000").End(xlUp).Offset(1, 0).Value = Me.txtemail.Text
Sheets("sheet1").Range("I6000").End(xlUp).Offset(1, 0).Value = Me.txtwebsite.Text
Sheets("sheet1").Range("J6000").End(xlUp).Offset(1, 0).Value = Me.txtaddress.Text
Sheets("sheet1").Range("K6000").End(xlUp).Offset(1, 0).Value = Me.txtinfo.Text



Unload Me


End Sub

Vous pouvez m'aider? Besoin de plus d'info??

merci beaucoup!!

 

[freefreebird]

Re : probleme avec un formualire de saisie

Au fait, vous l'aurez peut etre compris, les ligne de "if..." servent a ajouter un "-" a la saisie si rien n'est ajouter pour eviter que mes info ne se retrouve dans la mauvaise ligne si rien n'est inscrit dans la ligne precedente.

Dsl de pourir le forum avec plein de post... 😉

 

[kjin]

Re : probleme avec un formualire de saisie

Bonjour,
Essaie peut-être comme ceci

'...le début de ton code
With Sheets("sheet1")
Derlign = .Range("A60000").End(xlUp).Row + 1
    .Cells(Derlign, 1) = txtname.Text
    .Cells(Derlign, 2) = txtfirstname.Text
    .Cells(Derlign, 3) = txtcompany.Text
    .Cells(Derlign, 4) = txttype.Text
    .Cells(Derlign, 5) = txtphone.Text
    .Cells(Derlign, 6) = txtmobile
    .Cells(Derlign, 7) = txtfax.Text
    .Cells(Derlign, 8) = txtemail.Text
    .Cells(Derlign, 9) = txtwebsite.Text
    .Cells(Derlign, 10) = txtaddress.Text
    .Cells(Derlign, 11) = txtinfo.Text
End With
Unload Me
End sub

A+
kjin

 

[freefreebird]

Re : probleme avec un formualire de saisie

Bah merci beaucoup mais...non toujours pas.
En fait depusi tout a l'heure j'ai essayer mon code sur une nouvelle feuille juste avec 2 entrees (nom et prenom) et il se trouve que sa marche mais evidement pas dans la base que je voudrais.
Dans la base ou jessaye de faire ce formulaire, il y a deja des donnes inscrites "manuellement", des entetes, etc etc...Mais je voi pas en quoi sa gene. C'est juste sencé partir d'en bas et inscrire mes infos des qu'il trouve une case pleine...

HELP!!!!^^😀😀

 

[kjin]

Re : probleme avec un formualire de saisie

Re,
Assure toi que les lignes situées après la dernière ligne de ton tableau sont vides en les sélectionnant (sélectionne la première ligne vide + Ctrl + Maj + flèche bas) et supprimer.
Sinon, fichier requis
A+
kjin

 

[freefreebird]

Re : probleme avec un formualire de saisie

A ben ca y est, sa marche...
J'ai juste tou recommencer a zero avec ton code KJIN et pouf, miracle, sa marche...

Merci beaucoup et a bientot!!