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
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
Post ton fichier http://www.cjoint.com
JB
On 3 mar, 22:06, "David Laulan" <david.bi...@wanadoo.fr> wrote:
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
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