Discussion :

[Reno974]

Bonjour,

Je suis débutant en VBA !

j'ai créé un Userform (avec textbox, combobox, listbox, ...) qui me permet de renseigner une petite base de donnée sous Excel.

Je souhaiterais renseigner automatiquement les champs de mon Userform lorsque j'entre un N° unique existant dans ma base de données à un champ du Userform (en l’occurrence l'Id_Polygonne dans mon cas) afin de vérifier les informations et de les modifier si besoin.

J'ai pas vraiment trouver de solutions sur le site et ailleurs pour le moment.

Merci pour votre aide

Cf. Fichier en pièce jointe

[arnaudTHE]

Bonjour Reno974,

Il faudrait plus de précision.
L'USF c'est le bouton bleu Formulaire?
Ta base de données c'est RelHab ?
C'est là qu'il faut récupérer l'Id_Polygonne?

Peux tu dire pour chaque entrée du USF quelle est la colonne source?

Reno974,

Voici en PJ un début de réponse.
Quand tu rentre un Id Polygone et que tu sors du combo ça recherche dans ta base de données et met à jour les champ.
Ne reste plus qu'à faire ça pour tous les champs.

[Reno974]

Bonjour arnaudTHE et Merci,

Tu as effectivement bien compris ce que je voulais malgré le manque d'éléments de ma question.

Ta proposition correspond exactement à ce que je souhaite

Sauf que j'ai un souci du coup avec le bouton validation qui fait beuguer mon formulaire. Il faut je pense que je rajoute un bouton modifié lorsque je modifie ou valide une entrée déjà saisie et valider lorsque je créé une nouvelle entrée.

Je vais essayé de m'en sortir avec des if then ou quelque chose du genre. Si t'as une idée ou si tu pense que je ne suis pas sur la bonne voie n'hésites pas

Encore merci ! je n'arrivais vraiment pas à rappeler mes données saisies !

[arnaudTHE]

Bonjour Reno974,

Avec plaisir!

Le bug quand tu cliques sur Validation vient du fait que je t'ai rajouté en haut du code de ton USF : "Option Explicit". Ca t'oblige à déclarer toutes les variables utilisées (optimisation de ta mémoire, code plus propre, etc.).

Du coup il te suffit de rajouter ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim num As Long

Juste après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub ComdValider_Click()

Et là, en principe tout devrait rouler...
Bonne journée,
Arnaud

[Reno974]

Salut ArnaudTHE,

J'avais effectivement compris en cherchant sur les forums même si j'avais pas placé au bon endroit ma déclaration de variable !

Maintenant ca marche bien par contre je suis en train de chercher comment modifier les données déjà entrées sans créer une nouvelle ligne, afin d'avoir un identifiant polygone unique qui correspond à ma clef unique pour réaliser des analyses et des correspondances.

Je vais tester des codes dés que j'ai un temps et reviendrais éventuellement sur le forum en cas de pb.

Encore merci

Bonjour ArnaudTHE,

Je me repenche sur mon pb et comme indiqué dans mon dernier message je souhaiterais en rajoutant un bouton modifier pouvoir modifier sur la même ligne et non pas qu'il me créé un nouvel enregistrement !

Après avoir fait des tests de débutant et regardé sur les forums je vois que je suis vraiment trop nul pour y arriver seul.

peux tu m'aider stp ?

[Reno974]

C'est bon je pense avoir réussi à force de tester des codes.

Je te tiendrais au courant qd même mais ne te penche pas sur mon pb du coup.

merci