Rapatrier des données d'une feuille dans un UserForm
Bonjour à tous,
Je cherche (désespérément) comment "récupérer" mes données dans mon UserForm afin de pouvoir y apporter des modifications et les enregistrer.
Je suis très débutant en VBA, j'ai déja réussit a entrer les données du UserForm dans ma base avec le code suivant trouvé dans le forum.
Maintenant c'est donc l'inverse que je cherche.
J'ai dans mon userform un combobox qui me permet de sélectionner un NOM grace à son menu déroulant.
Je souhaite donc suite à ce choix, que l'ensemble des données de ma feuille (apellée Base) s'inscrivent dans les listbox et combobox correspondant.
ET ensuite j'ai un bouton pour enregistrer les modifications.
Donc je cherche:
1) codes à entrer dans le combobox du choix du NOM
2) code du bouton enregistrement de la modification.
Un TRES grand MERCI d'avance
Voici mon code UserForm vers Base
Private Sub CommandButton3_Click()
'inscription des données récupérées du formulaire validé dans la feuille excel
'sélection de la ligne sur laquelle écrire (la première vide)
num = Sheets("Base").Range("B65536").End(xlUp).Row + 1
'on part du bas de la colonne, on cherche
'la première cellule non vide avec end(xlup), on renvoie son N° avec row et on ajoute 1 pour avoir le numéro de la
'ligne d'en dessous
Sheets("Base").Activate
Range("B" & num).Value = Civilite
Range("C" & num).Value = Nom
Range("D" & num).Value = Prenom
Range("E" & num).Value = Nomduconjoint
Range("F" & num).Value = Prenomduconjoint
Range("G" & num).Value = datedenaiss
Range("H" & num).Value = datedenaissconjoint
Range("I" & num).Value = Profession
etc...
End sub
Bonsoir
Cela est possible mais il faut avoir un minimum d'informations, un morceaux de fichier serais le bien bienvenue.
Car de plus si tu as déjà ton userform cela permet de ne pas avoir à refaire un userform
Je ne peux pas joindre le fichier compréssé car le forum n'accepte que jusqu'a 120Ko et le fichier compréssé en fait 270 .
Que faire??????????????????????????????????????????????????????
eric.emileAcegetel.net
-- Mer Déc 16, 2009 10:47 pm --
Je crois que je m'en approche...... mais c'est pas encore tout à fait cela ....
Je choisit un nom dans mon combobox1 de recherche,cependant quand je clic sur mon bouton "chercher" il n'affiche dans le UserForm que l'ensemble des données que de la 1ere ligne... et ce, quelquesoit le nom sélectionné dans le combobox de recherche....Un problème dans la formule du bouton je pense qui est codé ainsi:
"Base" est la feuille du classeur où sont les données
Colonne A N° de dossier (de 1 à 3000) pré-rentrés dans la feuille
Colonne B Civilités (2000 données)
Colonne C Nom (2000 données)
Colonne D prénom (2000 données
etc...
Sheets("Base").Activate
' On recherche dans la Ligne 2 colonne C, si la case contient la même valeur que notre champ de recherche
For x = 2 To Range("C65535").End(xlUp).Row
If UCase(Range("C" & x)) Like "*" & UCase(UserForm1.ComboBox1.Value) & "*" Then
' Si on a trouvé on va à "Trouve"
GoTo Trouve
Exit For
End If
' Sinon on passe à la ligne suivante
Next x
' Si on ne trouve rien, on va à "Erreur"
Exit Sub
' Recherche trouvée, on retrouve notre programme pour charger le formulaire
Trouve: LigneActive = Selection.Row
'LigneActive est égale au numéro de ligne de la cellule active
Load UserForm1 'On charge dans le formulaire les données suivantes
'Le contact de la ligne active
UserForm1.N°dedossier.Value = Sheets("Base").Cells(LigneActive, "A").Value
UserForm1.Civilite.Value = Sheets("Base").Cells(LigneActive, "B").Value
UserForm1.Nom.Value = Sheets("Base").Cells(LigneActive, "C").Value
UserForm1.Prenom.Value = Sheets("Base").Cells(LigneActive, "D").Value
UserForm1.Nomduconjoint.Value = Sheets("Base").Cells(LigneActive, "E").Value
UserForm1.Prenomduconjoint.Value = Sheets("Base").Cells(LigneActive, "F").Value
etc...
end sub
Re
Au minimum il faut savoir à quel endroit sont stockés les données à récupérer.
Dans quelle feuille quel nom
Combien de titre quel nom car tu finis dans ta demande par ETC. alors tu vois etc. c'est ce qu'il y as de plus facile à comprendre.
Il faut que tu allèges ton dossier nous n'avons pas besoin de sa totalité 2 feuille sont largement suffisante.
Bonjour Bretagne35,
Malgré que je ne laisse que 2 feuilles, je n'arrive pas à descendre au dessous de 204Ko en fichier compréssé......
Puis je vous l'envoyer?
eric.emileAcegetel.net
bonsoir
Oui et apres je vais le mettre ici
pour envoie
domdom80460
Je met mon adresse comme cela pour les robots
Voici le fichier joint
Merci beaucoup Bretagne35 de ton aide pour mettre mon fichier en ligne.
Voila donc où j'en suis.
3 difficultés me reste à surmonter
- recherche par nom grace au combobox (comme sur le modèle joint) mais je n'arrive pas à l'adapter à mon fichier
- recherche aussi par N° de dossier l(à il faut à mon avis se servir du bouton "Lancer la recherche ").
- Enfin enregistrer les modifs
Bonjour à tous,
Personne pour me venir en aide??????
J'y suis presque..... j'arrive à remplir mon formulaire des données suivant un nom choisit dans le combo, ensuite me reste à enregistrer les modifs effectuées sur les données.
Quelqu'un a une piste?
d'avance merci