Formulaire 2

Le
David Laulan
Bonsoir,
je reviens vers vous car j'avoue que j'ai encore un peu de mal à concretiser
mon projet
FormBD qui est le nom attribué au formulaire reprend les etiquettes de la
base dans l'ordre
Societe categorie nom prenom adresse1 adresse2 cp ville tel fax email
portable (colonne A à l )
voici le code entree mise en oeuvre et je suis perdu, c'est encore decalé,
faut il rajouter ou modiifer ?
Et comment éviter un doublon par exemple à l'entree,
Sub afficheform()
Merci de votre aide, sincerement
Load FormBD
FormBD.Show
End Sub
Sub entrée()
FormBD.Hide
Application.ScreenUpdating = False
Range("table").Activate table est le nom
de la base
En_Colonne = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colonne).Activate
En_Ligne = En_Ligne + 1
Wend
If FormBD.categorie <> "" Then
Range("a65536").End(xlUp).Offset(0, 1).Value = FormBD.categorie.Value
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.nom1 ce sont les noms attribués lors de
la creation de l'userform
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.prenom1
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Offset(0, -3).Select
ActiveCell.Value = FormBD.categorie
ActiveCell.Offset(0, -1).Range("a1").Select
ActiveCell.Value = FormBD.Societe
ActiveCell.Offset(0, 4).Range("a1").Select
ActiveCell.Value = FormBD.adresse11
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.adresse22
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.cp
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.ville
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.tel
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.fax
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.email
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.portable
End If

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4231941
Post ton fichier http://www.cjoint.com

JB
On 3 mar, 22:06, "David Laulan"
Bonsoir,
je reviens vers vous car j'avoue que j'ai encore un peu de mal à concre tiser
mon projet
FormBD qui est le nom attribué au formulaire reprend les etiquettes de la
base dans l'ordre
Societe categorie nom prenom adresse1 adresse2 cp ville tel fax email
portable (colonne A à l )
voici le code entree mise en oeuvre et je suis perdu, c'est encore decal é,
faut il rajouter ou modiifer ?
Et comment éviter un doublon par exemple à l'entree,
Sub afficheform()
Merci de votre aide, sincerement
Load FormBD
FormBD.Show
End Sub
Sub entrée()
FormBD.Hide
Application.ScreenUpdating = False
Range("table").Activate table est le n om
de la base
En_Colonne = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colonne).Activate
En_Ligne = En_Ligne + 1
Wend
If FormBD.categorie <> "" Then
Range("a65536").End(xlUp).Offset(0, 1).Value = FormBD.categorie.Value
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.nom1 ce sont les noms attribués lors de
la creation de l'userform
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.prenom1
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Offset(0, -3).Select
ActiveCell.Value = FormBD.categorie
ActiveCell.Offset(0, -1).Range("a1").Select
ActiveCell.Value = FormBD.Societe
ActiveCell.Offset(0, 4).Range("a1").Select
ActiveCell.Value = FormBD.adresse11
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.adresse22
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.cp
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.ville
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.tel
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.fax
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.email
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = FormBD.portable
End If

End Sub


Publicité
Poster une réponse
Anonyme