enregistrer modifs de données dans userform

Version imprimable

22/12/2009, 14h46
Arobase72

enregistrer modifs de données dans userform

bonjour,
je travaille sur un userform (fichier joint) j'arrive à creer une nouvelle fiche, l'enregistrer dans ma "Base", j'arrive à rechercher une fiche existante grace au combobox , mais comment enregistrer les éventuelles modifications apportées à cette fiche?
Merci de votre aide.
22/12/2009, 16h22
drakkar_agfa

Bonjour,

Petite suggestion :
Si tu utilises quelque chose comme ça pour remplir ton USF :
(Bouton CHARGER)

Code:

MonUSF.MonTXT.Value = Worksheets("Feuil1").Cells(2, 3)

Il est possible d'utiliser ceci pour l'inverse tout simplement :
(Bouton ENREGISTRER)

Code:

Worksheets("Feuil1").Cells(2, 3) = MonUSF.MonTXT.Value

Redonne nous des nouvelles!

Bonne chance :ccool:
22/12/2009, 17h44
Arobase72

merci de ta réponse rapide Drakkar, mais je sèche lamentablement (je suis débutant ++ en VBA) sur l'adaptation du code du bouton "ENREGISTRER" dans mon UserForm

Code:

Worksheets("Base").Cells(2, 3) = UserForm1.Nom.Value

> ça c'est OK ,ça enregistre la modification pour le Nom

ensuite pour le prénom j'imagine que la suite du code est:

Code:

Worksheets("Base").Cells(?, ?) = UserForm1.Prenom.Value

j'essaye de comprendre à quoi correspond "(2,3)"
en résumé..... encore besoin d'aide
Un grand merci d'avance
22/12/2009, 17h47
drakkar_agfa

Bonjour,

Regarde ton code du bouton "CHARGER"... tu n'as qu'à faire l'inverse pour le bouton "ENREGISTRER".

Si tu as des problèmes, postes une partie de ton code.
;)
22/12/2009, 17h53
Arobase72

Merci Drakkar ,
Mon fichier est joint à mon 1er message.
22/12/2009, 17h59
drakkar_agfa

Bonjour,

Je vois que tu es nouveau sur le forum, Bienvenu en passant, mais il est préférable d'introduire les bouts de code concernés dans le message avec les balises "CODE". Plusieurs personnes n'ouvrent pas les fichiers joints.

EDIT: Pour répondre à ta question, si tu regardes dans l'aide en ligne beaucoup de questions tu pourras répondre.
Mais pour résumer, "cells" est utilisé avec (NuméroDeLigne, NuméroDeColonne)

Code:

Worksheets("Sheet1").Cells(3, 5) = "Ceci sera dans la cellule ligne 3, colonne 5 : 'E3'"

Merci du conseil, en effet j'ai trouvé déja plein d'aide ci et là pour construire mon USF.
Voici le code de mon ComBobox de recherche par "Nom"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub ComboBox1_Change()
Dim x As Long
Sheets("Base").Activate
        N°dedossier = Cells(ComboBox1.ListIndex + 2, 1)
        Civilite = Cells(ComboBox1.ListIndex + 2, 2)
        Nom = Cells(ComboBox1.ListIndex + 2, 3)
        Prenom = Cells(ComboBox1.ListIndex + 2, 4)
        Nomduconjoint = Cells(ComboBox1.ListIndex + 2, 5)
        Prenomduconjoint = Cells(ComboBox1.ListIndex + 2, 6)
        datedenaiss = Cells(ComboBox1.ListIndex + 2, 7)
        datedenaissconjoint = Cells(ComboBox1.ListIndex + 2, 8)
        Profession = Cells(ComboBox1.ListIndex + 2, 9)
        Classprof = Cells(ComboBox1.ListIndex + 2, 10)
        Professconjoint = Cells(ComboBox1.ListIndex + 2, 11)
        Classprofconjoint = Cells(ComboBox1.ListIndex + 2, 12)
        Maritale = Cells(ComboBox1.ListIndex + 2, 13)
        Enfantsfoyer = Cells(ComboBox1.ListIndex + 2, 14)
        adresse = Cells(ComboBox1.ListIndex + 2, 15)
        codepostal = Cells(ComboBox1.ListIndex + 2, 16)
        Commune = Cells(ComboBox1.ListIndex + 2, 17)
        Circonscription = Cells(ComboBox1.ListIndex + 2, 18)
        Telephon = Cells(ComboBox1.ListIndex + 2, 19)
        Telportable = Cells(ComboBox1.ListIndex + 2, 20)
        Mail = Cells(ComboBox1.ListIndex + 2, 21)
 
End Sub

22/12/2009, 18h18
LeForestier

Bonjour,
Quand tu poste du code tu doit le baliser avec les balise # (sélectionner et cliquer sur #)
Concernant ton classeur, il serait certainement plus "professionel" d'employer un UserForm.
A+