Discussion :

[gonsp]

Coucou à tous,

J'ai programmé un petit truc sur VBA avec un userform sur lequel on trouve quelque boutons etc... Dont un bouton qui s'appelle "Annuler" comme dans la plupart des fenêtres windows (fenêtre fenêtres ), elle sert à quitter le userform (code vba de l’événement clic : End).

Quand je lance le programme à partir d'un bouton auquel ma macro est assigné, tout se passe bien. Mais j'ai décidé de rajouter quelque chose.
Maintenant, ma macro se lance au démarrage de mon classeur Excel. Et alors là, quelque chose de magique se produit :
Mon bouton annuler ne marche plus...

J'ai donc décidé de regarder mon code toussa toussa, rien ne cloche. Alors j'ai eu la bonne idée de vous écrire!
Et quand je vous ai écrit, j'ai voulu joindre mon fichier par "cijoint.com".
J'ai revérifié ce que j'allais vous envoyer donc j'ai téléchargé le classeur et la BIM ça remarche (dès le démarrage)
J'ai donc déplacé mon classeur dans différents dossiers de mon ordi, (Téléchargements, Bureau, Documents...) et il se trouve qu'il ne marche pas partout selon les dossiers.

Alors? magique?

Voici le lien en question : http://www.cjoint.com/c/FKkpnPRQkhU

J'aimerais juste savoir si vous aviez des idées ou non... Merci par avance!

[joe.levrai]

Bonjour,


quitter un userform avec l'instruction End ? C'est prendre une tronçonneuse pour découper des lamelles de courgettes en vue de décorer une assiette !


Utilise plutôt Unload Me pour fermer ton userform

[gonsp]

J'ai besoin de plusieurs valeurs que renvoi la USF donc si je met un unload, il me bash par une erreur

[joe.levrai]

peut-on avoir un aperçu des procédures de ton userform ?

impératives : celle du bouton, l'initialisation, celle qui "renvoi des valeurs"

[gonsp]

Tu as le classeur complet en PJ.

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
Private Sub UserForm_Initialize()
 
    Dim b As Integer
    Dim a As Integer
 
 
        For a = Asc("A") To Asc("Z")
            ComboBox1.AddItem Chr(a)
            ComboBox2.AddItem Chr(a)
            ComboBox3.AddItem Chr(a)
            ComboBox4.AddItem Chr(a)
            ComboBox5.AddItem Chr(a)
        Next a
 
 
    ComboBox1.Style = fmStyleDropDownList
    ComboBox1.ListIndex = 0
 
    ComboBox2.Style = fmStyleDropDownList
    ComboBox2.ListIndex = 1
 
    ComboBox3.Style = fmStyleDropDownList
    ComboBox3.ListIndex = 2
 
    ComboBox4.Style = fmStyleDropDownList
    ComboBox4.ListIndex = 1
 
    ComboBox5.Style = fmStyleDropDownList
    ComboBox5.ListIndex = 3
 
 
End Sub

Code :

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

1
2
3
4
5
Private Sub CommandButton4_Click()
 
    End
 
End Sub

Par exemple, je dois sélectionner 2 fichiers, si je fais un unload, la fonction continue et un message d'erreur apparaît logiquement en me disant qu'il manque des infos (comme les deux fichiers)

[joe.levrai]

Quelle fonction ? Quel message ?

nous n'ouvrons pas les classeurs excel fournis (sauf si c'est nous qui le demandons), pour des questions de sécurité d'une part, mais aussi de structuration dans la façon qu'à l'auteur d'expliquer et présenter son problème.

si chacune de tes interventions génère de nouvelles questions, c'est que clairement tu n'arrives pas à présenter ton problème et à exposer les points précis de ton projet qui sont impactés.
Si tu es l'auteur du projet, c'est normalement simple d'apporter tous les éléments requis.

Tu dois vraiment faire un effort pour nous montrer toutes les procédures qui ont un impact sur ta problématique
Là, je crois deviner que tu as une procédure qui appelle ton userform... et qu'à la fermeture de ce dernier ta procédure continue d'autres traitements ?

Si tel est le cas, tu commences à deviner ce dont nous avons besoin pour comprendre comment fonctionne ta machinerie ?


Entre nous, avec juste les éléments que tu as montré et expliqué .... je conçois mal comment un Unload Me te génère une erreur là où un End ne le fait pas.
Ce qui m'amène à penser que tu n'as pas sécurisé ta procédure appelante pour gérer l'absence de ces "valeurs" quand le userform est fermé.

Si c'est bien ça ... la solution sera très simple je pense

Mais, que de suppositions dans mon messages ... une seule c'est déjà trop d'ailleurs