Version imprimable
déjà un truc gros comme une maison
ceci: c'est quoi??
bien que j'aurais pas pris ce chemin mais bonCode:Ajout = Crit = "" Or .Cells(i, Application.Max(1, ColCrit)) = Crit
mais cela :Code:Ajout = Crit = "" ' ca ca peut aller
tu va chercher le max dans une seule cellule toi???????Code:.Cells(i, Application.Max(1, ColCrit)) = Crit
si un jour ou une nuit ton code a fait ce que tu demandais tu a du allumer to PC dans tes rêves
La premiere erreur apparait sur monCitation:
Envoyé par unparia
Ensuite en déroulant avec F8Code:MYCOM.Show 0
puisCode:Private Sub UserForm_Initialize()
Code:InitMaxMin Me.Caption
Code:
2
Code:hWnd = FindWindowA(vbNullString, mCaption)
Code:
2
3
Code:
2Ht = Me.Height Lg = Me.Width
Code:hWnd = FindWindowA(vbNullString, Me.Caption)
Code:SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
Code:Remplir Me.cdi, 1
Code:Private Sub Remplir(ByVal LST As Object, ByVal Col As Integer, Optional ByVal Crit As String, Optional ByVal ColCrit As Integer)
Voila tous ce qui se surligne en jauneCode:
2
3
4
5
6
7
8
Ben pourtant je t'assure que ca fonctionnais tres tres bien.Citation:
Envoyé par patricktoulon
et oui je ne peut pas etre parfait ce n'est pas mon metier et je fais de mon mieux
re
pas parfait a ben ca non alors loin de la
voici l'enoncé de ta sub
donc si je traduitCode:Private Sub Remplir(ByVal LST As Object, ByVal Col As Integer, Optional ByVal Crit As String, Optional ByVal ColCrit As Integer)
ca donneCode:Ajout = Crit = "" Or .Cells(i, Application.Max(1, ColCrit)) = Crit
ajout=ce que crit est = a rien ouce que le maximum du tableau cells(i ,colcrit) est egale a crit
sachant que cocrit est un integer ca ne peut qu'etre un numero quelqu'il soit
donc cells(i,colcrit ) est une cellule et non un tableau donc la fonction maxwalouh walouh!!!!!!!
alors ya pas un soucis la
forcement ce qui est en vert donnera toujour faux la bonne blague
voila j'espère que c'est plus claire pour toi
Bon
écoutez c'est bien vous savez tous c'est génial votre plaisir est des rabaisser les gens bravo vous n'avez rien a faire sur ce genre de discussion. Je suis la pour avoir une compréhension et non pour me faire désendre en fleche par quelqu'un qui a un egaux surdimensionner.
Merci pour votre leçon et s'il vous plait abstenez vous de ces commentaire rabaissants
re
non je ne sais pas tout mais si il y aune chose que je sais c'est que ta ligne ne peut pas marcher
ca fait je ne sais combien de message qu'on te dis pour analyser ce qui ne va pas il faut le code entier
tu te contente de nous donner tes soit disant lignes qui ne vont pas
unparia t'a demandé quelle ligne te donnait l'erreur "Object requis " et il attends toujours
loin de moi l'envie de te rabaisser comme tu dis mais tu semble pas comprendre ce qu'on te dis
peut être devrais tu revenir au bases
en plus je t'explique en couleur les choses pour te les mettre en évidence tu semble toujours pas avoir compris
je sais plus trop quoi faire
enfin bref je vais stopper mon inter sur ce post car il semblerait que tu ne soit pas prêt a recevoir ce que tu demande si ca te plait pas
Ce n'est pas ca je m'en excuse c'est un peut stressant pour moi.
Bon la ligne qui me donne l'erreur objet requis est le
Désolé pour l'agacement c'est que j'essais d'apprendre au mieuCode:MYCOM.Show 0
Cordialement
Bon ben on avance !
Cette ligne est donc en jaune dans l editeur VBE
Alors soit ton userform ne s appele comme ca soit c et dans les premiere ligne que sa déraille
Donne. Moi les sub initialise et activate de l userform le code entier bien entendu
Oui
Alors cette ligne apparait en jaune .
Par rapport au nom c'est bien le bon nom.
Donc voici les ligne pour le activate :
Et pour l'initialisation :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
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
75
76
77
78
79
80
81
82
bon maintenant vu la simplicité du code je pense qu'il doit te manquer un control ou alors il est mal nommer dans son ordre
par contre pour enlever tout doute comme l'userform est un enfant de l'application met en commentaire enablewindow........et test
ensuite liste tout les control de l'userform
pour ca tu peux te faire une petite sub : change pour le nom de ton userform!!!
regarde la liste dans la fentre d'exution(debug) et control sil ils sont present dans la macro et vice et vercaCode:
2
3
4
5
6
après on avisera
il y a une chose aussi qui me perturbe
tout ces control ne sont ils pas déjà vide au départ????????????????
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
52Me.exceptionregie.Value = "" Me.insee.Value = "" Me.cdp.Value = "" Me.cable.Value = "" Me.piquetage.Value = "" Me.compactage.Value = "" Me.identificationcable.Value = "" Me.piquetagesout.Value = "" Me.compactagesout.Value = "" Me.centre.Value = "" Me.comm.Value = "" Me.moar.Value = "" Me.cpc.Value = "" Me.ccs.Value = "" Me.k10.Value = "" Me.k10sout.Value = "" Me.leve.Value = "" Me.levesout.Value = "" Me.maitriseouvrage.Value = "" Me.urba.Value = "" Me.erdf1.Value = "" Me.er1.Value = "" Me.exp.Value = "" Me.Ent.Value = "" Me.CUTM.Value = "" Me.emmeraude.Value = "" Me.moreseau.Value = "" Me.CA.Value = "" Me.attention.Value = "" Me.commentaire.Value = "" Me.mailexp.Value = "" Me.telca.Value = "" Me.departement.Value = "" Me.moad.Value = "" Me.ceb.Value = "" Me.partraci.Value = "" Me.partracs.Value = "" Me.partracc.Value = "" Me.partmod.Value = "" Me.proraci.Value = "" Me.proracs.Value = "" Me.proracc.Value = "" Me.promod.Value = "" Me.zoneetude.Value = "" Me.mailmoar.Value = "" Me.appref.Value = "" Me.affairecom.Value = "" Me.telexp.Value = "" Me.Ip.Value = "" Me.Mailip.Value = "" Me.Portip.Value = "" Me.Telip.Value = ""
Je suis désolé mais je n'ai jamais fait de test ,Citation:
Envoyé par patricktoulon
La maccro pour le test de mon user form je la met dans un module et le commentaire se met où
Oui car en fait je vide mon userform a chaque ouverture pour qu'il n'y est pas de confusion d'informationCitation:
Envoyé par patricktoulon
Tout d abords quand je dis en commentaire
Ca veut dire met un apostrophe devant pour bloquer cette ligne
Ensuite si tu a pas. Inscrit quelque chose dans tes controls dans l. Editeur vbe il ne. Peut pas y avoir confusion ils doivent etre vide
La. Sub test tu la. Met dans un module standards
On reprends demain pour. Le. Momment
Dodo
A+
hello,
sebastien le plus simple c'est que tu exportes tout ton code dans des fichiers : tu groupes tous tes fichiers dans un répertoire et tu mets en pièce jointe ici le zip de ce répertoire.
Pour exporter le code :
dans l'éditeur VBA (VBE) dans l'explorateur de projets, tu cliques sur chaque userform et tu fais exporter un fichier ( un fichier .frm est créé pour chaque userform). Même chose pour le ou les modules (.bas) et pour les classes (.cls)
Ami calmant, J.P
Merci pour cette proposition voici mon classeur complet
Merci a toi en tout cas j'esper que tu pourra trouver car moi je suis perdu je ne comprend vraiment pas ou est le soucisCitation:
Envoyé par jurassic pork
Est ce normal que lors de l'xécution de la macro test la ligneCitation:
Envoyé par patricktoulon
Se mette en erreur ??Code:For Each ctrl In mycom2.Controls
Cordialement
hello,
il manque des objets dans ta userform mycom2, par exemple ceux-ci :
il y a un erreur aussi dans :Code:
2
3
4
5
6
7
8
9
10
puisque ta userform s'appelle mycom2 maintenant.Code:
2
3
4
5
6
tu as dit précédemment :
N'aurais-tu pas effacer des parties de ta userform ?Citation:
Apres une ou deux mise à jour sur ce programme lors de l'ouverture du userform une erreur 424 objet requis apparait
D'autre part tes fichiers frx sont volumineux car tu utilises des images de fond non retaillées. Par exemple l'image de fond de ta userform a comme taille : 3630x1668 pixels.
Ami calmant, J.P
Malgrais ces modif il est toujours en bug