Version imprimable
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.
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.
Bonsoir Menhir
Est il possible que je t'envoie un extrait de mon fichier ?
Merci
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/
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 :D)
Code:
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
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.
Justement il ne tournait pas
J'ai mis des ' devant les lignes et j'ai essayé de m'y retrouver mais je tournais en boucle
D'où ma demande d'aide
Je vais donc essayer de reprendre chacune de tes observations et surtout de toutes les comprendre pour corriger mon problème
En tout cas merci pour ton aide
:D
Et ça ne te semblait pas opportun d'indiquer dans ta demande les erreurs qui avaient été générée à l'exécution et quelles lignes avaient été signalée en erreur ? :roll:Citation:
Envoyé par ValerieH34
Bonjour,
chaque contrôle possède une propriété "tag".
cette propriété permet de stocker une information sur chaque contrôle (une référence, un nombre etc...)
tu peux utiliser la propriété Tag pour optimiser le transfert des informations dans ta base de données, dans la mesure où chacun de tes contrôles correspond à une colonne de ta BDD, et que ce ne sont pas les mêmes types de contrôles
par exemple, si chacun de tes contrôles possède le numéro de colonne où écrire dans son tag, voici comment simplifier ta boucle :
N'hésite pas si tu as des questionsCode:
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
@ Menhir
Je suis un peu blonde je l'avoue et je n'y ai donc pas pensé.
1er :oops:
Suite à tes remarques j'ai apporté les modifications que j'ai comprise mais il y en a que je n'ai pas pu retranscrire
Le END IF en effet je l'ai oublié
2nd :oops:
La référence de I dans les range est aussi intégré
Après le reste je n'ai pas tout saisi
Voici donc mon programme modifié que je lance et dont l'erreur est 1004 : La methode range a echoue
Code:
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
@Joe
Merci pour cette explication que je ne connaissais pas
J'ai essayé avec ce programme et j'ai une erreur 13 : Incompatibilité de type
déjà sur la ligne 12, j'ai oublié de corriger ton "s" manquant à "sheets" :
Ensuite, tu as bien affecté à tes contrôles la valeur du tag ? Il faut l'écrire à la main dans la propriété de chaque contrôle.Code:With Sheets("ESSAI")
Tu l'écris une fois et tu n'auras plus à le faire
Le message d'erreur vient sûrement de là : le code cherche à comparer la valeur du tag au chiffre i (qui va de 1 à 65)
Or, si le tag est vide, il y a erreur
Pièce jointe 177125
Je l'avais auto corrigé par rapport aux remarques de Menhir :mrgreen:Citation:
Envoyé par joe.levrai
J'ai apporté les modifications mais j'ai toujours le même message d'erreur
Désolé à nouveau, j'ai juste oublié que tu n'avais pas que ces 65 contrôles sur ton userform :oops:
on va donc tester en amont si le contrôle contient un Tag, comme ça ça va exclure les autres contrôles que les 65 où tu as mis un tag :
Code:
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
Magnifique cela fonctionne enfin
Un grand merci
Derniere petite chose
Cela me garde les données dans le formulaire mais cela ne les retranscrit pas sur la feuille
Comment faire ?
J'ai crée un userform avec 65 contrôles, leur Tag et une valeur dans chaque
quand j'applique le code, j'ai bien mes 65 colonnes qui se remplissent
En fait, les données s'inscrivent sur les premières lignes du fichier en écrasant les données d'un autre agent
Cela ne s'enregistre pas sur la ligne de l'agent concerné
8O
Ah d'accord, là je ne pouvais pas savoir que le calcul de ta ligne d'écriture est faux
la ligne où écrire tu l'as calculé comme ça :
c'est à dire que tu prend la position qu'occupe l'agent dans ta combobox + 1 ligneCode:Ligne = Me.ComboBox1.ListIndex + 2
exemple :
si ta liste contient dans cet ordre
- JEAN
- MARC
- PIERRE
alors Pierre doit avoir ses données dans la ligne 4, Marc en ligne 3, Jean en ligne 2
Comment effectues-tu le remplissage de ta combobox ?
- Par code VBA ? Fait voir le code de l'initialisation de ton userform
- En liant ta combobox à une référence Excel via la propriété "RowSource" ? Fait voir ta référence
J'ai voulu faire une modification sur un autre agent et elles ne se sont pas enregistréesCode:
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
Cela n'enregistre que sur un seul agent, c'est à dire le premier que j'ai testé:calim2:
tu n'as pas compris mon précédent message, je vais tourner la question à l'envers :
sur quelle ligne on doit se positionner ? Quelle est la valeur unique sur cette ligne qui nous permet de la détecter ?
Tu parlais d'un "AGENT", mais je ne vois nul part cette donnée dans ta procédure d'initialisation
là tu calcules ta LIGNE en utilisant la valeur choisie dans Combobox1
Or, Combobox1 ne contient que deux valeurs
donc, t'auras beau faire ce que tu veux, tu ne pourras écrire qu'en ligne 2 (si tu as choisi FEMME) et en ligne 3 (si tu as choisi HOMME)Citation:
ComboBox1.ColumnCount = 1
ComboBox1.List() = Array("Femme", "Homme")
je suis vraiment novice et blonde
toutes les tares
:weird:
en fait j'ai un module de recherche qui va chercher les données d'un agent
ca remplit mon formulaire et j'y apporte les modifications que j'enregistre en cliquant sur le bouton modifie
cela incrémente ainsi ma feuille excel
je n'ai toujours pas la réponse qui me permet de t'aider à résoudre ce problème
tu parles d'incrémentation, ça veut donc dire que les données doivent s'écrire dans une nouvelle ligne ? La première non vide ?
je demande ... parce qu'à la base ton sujet porte sur un bouton de "modification"
tu peux montrer ton "module" qui recherche l'agent et ses informations ?
Pardon
Merci pour ta patience
Voici les 2 module pour les 2 types de recherches que j'ai programmé
Pour le bouton RECHERCHER N° CP
Pour le bouton RECHERCHER NOMCode:
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
Code:
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
Tu ne manqueras pas de remarquer que le remplissage effectué dans ces deux procédures peut être simplifié, sur le même modèle que je t'ai présenté, en ré utilisant les Tag que tu as mis dans tes contrôles ;)
je te laisse le faire, un bon exercice d'entrainement
donc si je comprend bien, le nom de tes Agents est dans le ComboBox27 ?
alors, il faut juste changer
parCode:Ligne = Me.ComboBox1.ListIndex + 2
ça devrait être bon ... mais c'est difficile pour moi de bien conceptualiser ton userform sans le voir ... compte tenu du nombre de contrôles, des petits problèmes que tu rencontres pour me donner explicitement l'information qui m'intéresse, et surtout de la longueur de tes codes, qu'il est impératif d'optimiser comme je te l'ai suggéré (ton code sera beaucoup plus lisible)Code:Ligne = Me.ComboBox27.ListIndex + 2
sinon, c'est pas grave, on continuera de chercher ensemble :ptdr:
Au passage, n'hésite jamais à renommer toi-même les contrôles, pour leur donner des noms simples à comprendre
Exemple : si tu renommes ta ComboBox27 par "Combo_NomAgent" ... c'est plus simple pour toi quand tu dois relire, corriger, faire évoluer ton code ! Sans parler du pauvre malheureux qui reprendrait un jour ton projet. Un tube d'aspirine et une cafetière complète pour décortiquer ton code :aie:
Je reprends tout ca et je reviens vers toi
Merci
Par contre j'ai 2 combobox de recherche la 26 et la 27
Comment est ce que j'indique ces 2 formules
En effet si quelqu'un reprend mon fichier c'est parce que moi meme je serai deja devenue chevre
:calim2::aie::aie::aie::aie:
y'a quoi exactement dans la 26 ? "CP" ça me parle pas
et pourquoi tu as deux combobox différents pour remplir tes champs ?
La 26 est une recherche par un identifiant propre à chaque agent
Je peux donc rechercher soit par nom soit par identifiant
il y a un petit problème de conception du coup, je pense.
on doit utiliser la valeur du combobox 26 ou 27, suivant celui qui a été utilisé pour appeler les données.
le problème, c'est qu'on sait pas lequel a été utilisé, et l'utilisateur peut très bien avoir choisi un agent "JEAN" dont l'id est "1" ... et avoir saisi la valeur 4 dans le combobox des ID
le plus simple est :
- si l'utilisateur charge les données par la Combo26 : on masque la 27 durant le remplissage du userform
- inversement si l'utilisateur charge les données depuis la combo27 : on masque la 26 durant le remplissage
- quand on lance l'exportation des données, on regarde le combobox qui est visible : c'est lui qui nous fournira la ligne
testons :
dans ton Private Sub CommandButton4_Click(), après la déclaration de la variable M tu mets
dans ton Private Sub CommandButton5_Click(), après la déclaration de la variable M tu metsCode:Me.ComboBox27.Visible = False
Code:Me.ComboBox26.Visible = False
et la procédure d'exportation des données devient :
Code:
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
Il serait, de ce fait, opportun de créer un bouton qui va réinitialiser tous tes champs, et réafficher la combobox invisible ... au cas où l'utilisateur ne souhaite finalement pas modifier cet agent, et veux en sélectionner un autre
Merci merci merci
Ca tourne nickel
Maintenant je suis en train de d''essayer d'appliquer le programme avec tag et je pense que je vais devenir chauve à la place d'être blonde mais j'y arriverai :aie::aie::aie::aie:
Essaye, si tu veux que je vérifies, tu postes les deux codes une fois modifié
c'est la même chose que mon code ... sauf que tu fais l'opération inverse (Excel vers les Controles)
Je n'y arrive pas
Je regarderai ca ce soir ou demain avec un cerveau un peu plus reposé.
Merci en tout cas pour ton aide précieuse
Bonjour Joe
Je reviens vers toi car je bloque avec le tag de mon bouton nouvel agent
En voici le programme
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Bonjour,
je parie qu'il n'enregistre pas sur la première ligne non vide, et tu as un message d'erreur "erreur définie par l'application ou l'objet" ?
tu a bien calculée ta ligne L où faire l'enregistrement, mais tu dois l'utiliser ici, à la place de "LIGNE"
c'est cette ligne qui plantait ? ;)Code:.Cells(L, I) = Ctrl
Trop fort
Ca fonctionne
Je m'attaque maintenant à mes boutons RECHERCHER
Et là je risque d'avoir besoin de nouveau de ton aide :?
Et bien voila tout fonctionne
J'y suis arrivée
Yes
Yes
Yes
Un grand merci et un gros bisou en prime
:oops:
Bravo,
j'espère surtout que t'as appris la mécanique et tu pourras optimiser tes projets futurs
:mrgreen:
Oui je pense que j'ai compris
A voir au prochain épisode quand l'idée me reprendra de vouloir refaire un autre programme :mouarf:
