Discussion :

[ValerieH34]

Bonjour,
Je suis novice et je suis parvenue à créer un formulaire.
Tout fonctionne comme je le souhaite à l'exception du bouton MODIFIER qui n'enregistre pas les modifications demandées.
Quelqu'un pourrait il m'aider à résoudre cette difficulté ?
Je vous en remercie par avance.

[Menhir]

Ne sachant pas comment tu as constitué ce formulaire ni ce qu'il y a derrière ce bouton, il va être difficile de te renseigner.
Il faudrait que tu apportes plus de précisions à ton problème.

[ValerieH34]

Bonsoir Menhir
Est il possible que je t'envoie un extrait de mon fichier ?
Merci

[Menhir]

Non, je ne suis pas service d'assistance personnel.
Par contre, tu peux le mettre en pièce jointe dans ton message pour que chacun sur ce forum puisse s'y intéresser.
Mais mettre un fichier en pièce jointe ne te dispense pas de décrire clairement ton problème, comme il est expliqué ici :
http://www.developpez.net/forums/d84...s-discussions/

[ValerieH34]

Je vais essayer d'expliquer mon problème
J'ai créé un formulaire qui me permet de créer une fiche reprenant plusieurs informations d'une personne.
Parfois il me faut apporter des modifications à la fiche d'une personne
Donc dans mon formulaire, la création se passe très bien
Mes menus déroulants, et tout ce qui doit tourner correctement, fonctionnent.
Ma seule difficulté est le bouton MODIFIER que j'ai essayé de paramétrer de plusieurs façons différentes qui ne fonctionne pas.
D'où ma demande.
En voici la programmation (si c'est comme ça que l'on doit dire )

Code :

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

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
      Private Sub CommandButton2_Click()
      Dim Ligne As Long
            Dim I As Integer
            If MsgBox("Confirmez-vous la modification de cet agent ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
            If Me.ComboBox1.ListIndex = -1 Then Exit Sub
            Ligne = Me.ComboBox1.ListIndex + 2
            I= sheet("ESSAI")
                         Range("A") = ComboBox4
                         Range("B") = ComboBox5
                         Range("C") = ComboBox6
                         Range("D") = ComboBox7
                         Range("E") = ComboBox8
                         Range("F") = TextBox4
                         Range("G") = ComboBox9
                         Range("H") = TextBox2
                         Range("I") = TextBox3
                         Range("J") = TextBox1
                         Range("K") = ComboBox10
                         Range("L") = ComboBox11
                         Range("M") = ComboBox1
                         Range("N") = ComboBox2
                         Range("O") = ComboBox3
                         Range("P") = TextBox5
                         Range("Q") = ComboBox12
                         Range("R") = ComboBox13
                         Range("S") = ComboBox14
                         Range("T") = ComboBox15
                         Range("U") = ComboBox16
                         Range("V") = ComboBox17
                         Range("W") = ComboBox18
                         Range("X") = ComboBox19
                         Range("Y") = ComboBox20
                         Range("Z") = ComboBox21
                         Range("AA") = ComboBox22
                         Range("AB") = ComboBox23
                         Range("AC") = ComboBox24
                         Range("AD") = ComboBox25
                         Range("AE") = TextBox6
                         Range("AF") = TextBox8
                         Range("AG") = TextBox7
                         Range("AH") = TextBox9
                         Range("AI") = TextBox11
                         Range("AJ") = TextBox10
                         Range("AK") = TextBox12
                         Range("AL") = TextBox13
                         Range("AM") = TextBox14
                         Range("AN") = TextBox15
                         Range("AO") = TextBox16
                         Range("AP") = TextBox17
                         Range("AQ") = TextBox18
                         Range("AR") = TextBox19
                         Range("AS") = TextBox20
                         Range("AT") = TextBox21
                         Range("AU") = TextBox22
                         Range("AV") = TextBox23
                         Range("AW") = TextBox24
                         Range("AX") = TextBox25
                         Range("AY") = TextBox26
                         Range("AZ") = TextBox27
                         Range("BA") = TextBox28
                         Range("BB") = TextBox29
                         Range("BC") = TextBox30
                         Range("BD") = TextBox31
                         Range("BE") = TextBox32
                         Range("BF") = TextBox33
                         Range("BG") = TextBox34
                         Range("BH") = TextBox35
                         Range("BI") = TextBox36
                         Range("BJ") = TextBox37
                         Range("BK") = TextBox38
                         Range("BL") = TextBox39
                         Range("BM") = TextBox40
             Unload Me
   End Sub

[Menhir]

Il y a plusieurs choses étranges dans ton code.

Ton premier If n'as pas de End If.
Le second non plus mais c'est normal puisque son instruction est sur la même ligne.

Tes Range n'ont pas de numéro de ligne.
C'est d'autant plus surprenant que, à priori, il semble que tu ais calculé ce numéro à ta ligne "Ligne = ..."

Pour désigner un onglet par son nom, on utilise pas l'objet Sheet mais Sheets (au pluriel). Le nom est en quelque sorte un indice dans la collection de tous les onglets.

Tu déclare la variable I comme un Integer mais tu mets dedans une référence à un onglet, ce qui n'est possible que si tu l'as déclaré en tant que Worksheet.

Tu mets la référence à ton onglet ESSAI dans la variable I mais tu ne l'utilise pas derrière puisque tes Range ne font référence à aucun onglet.

Avec tout ça, il me semble étrange que ton programme ait pu tourné sans qu'il t'ai envoyé un message d'erreur.