creer une boite d'ajout de contact pour BD

[freefreebird]

Bonjour;
Voila, le suis sur une base de donnée client sous excel et j'ai besoin d'y ajouter un cadre avec plusieurs champs (12 au total) a remplir permétant d'ajouter automatiquement les nouveaux clients et leurs info dans la feuille excel quand on clique sur un bouton "valider" par ex.
A oui; et cette boite s'ouvrirais quand je cliquerais sur un bouton "ajouter un contact" sur ma feuille excel...
(je suis clair la??)
Je voudrais faire sa sous VB (ou course) mais mes souvenirs sont plutot lointains...

Merci enormément si vous pouvez m'aider...

PS : je vous passe le fichier excel "vide" pour que vous voyez

 

[jmd2]

Re : creer une boite d'ajout de contact pour BD

hello

as-tu essayé le menu données formulaire ?

*****

 

[Evelynetfrancois]

Re : creer une boite d'ajout de contact pour BD

bonjour freefreebird
pourquoi 12 ? je ne vois que 10 colonnes ! à renseigner .....
E et F

as-tu deja créé ton usf , ou bien il faut le faire ?

 

[freefreebird]

Re : creer une boite d'ajout de contact pour BD

A ouai je truc formulaire est pas mal...
et sa évite que je me prene la tete
Vé voir sa avec le boss!!

merci beaucoup!

 

[jp14]

Re : creer une boite d'ajout de contact pour BD

Bonjour

Ci joint un fichier avec un usf
Il suffit simplement de modifier le code suivant pour l'adapter.

' a modifier en fonction de la base de donnée

nomfeuille1 = "Sheet1"
lidep1 = 6
' fin modif

Les label et les textbox associés doivent avoir le même numéro, ce numéro doit correspondre à la colonne.

Il faut rajouter dans la procédure CommandButton2_Click les contrôles à effectuer

' exemple de code
If controldonne(3, "TextBox", 8) = 1 Then Exit Sub

If controldonne(code erreur, "TextBox", numéro du contrôle) = 1 Then Exit Sub

On peut facilement rajouter des contrôles de données dans la procédure "Function controldonne"

A tester

JP