Userform blocage puis redémarrage d'excel!

**fifo78370** · 14/01/2016, 10h57

Bonjour à toutes et tous,

Bonne santé à tous, et bons dev.
J'ai fait un cas de test d'une userform contenant 3 boutons radio. L'un pour "monter" (passer à la ligne du dessus), le deuxième pour "descendre" (passer à la ligne du dessous) et le dernier pour fermer la Userform! Le fonctionnement sur une feuille test est bon mais bloque au bout d'un certain nombre d'appui (touches clavier m,d) ou clicks boutons monter/descendre! Je me doute que le show/hide doit être la cause mais sans comprendre le pourquoi et donc résoudre le pb! La seule solution trouvée est de fermer la Userform puis la relancer tous les ~50 appuis pour être tranquille!...

En cas de blocage, aucun click ni appui ne fait quelque chose! La fermeture de la Userform par clic sur la croix de "destruction" fait redémarrez Excel!

D'avance merci.

**Sebphyto** · 16/01/2016, 13h17

Bonjour,

Si ton fichier fait planter Excel, il n'y aura pas beaucoup de personnes qui vont le télécharger!!!!!

Post ton code avec la balise [CODE], afin que l'on regarde ....

Seb

**anasecu** · 16/01/2016, 13h25

Bonjour,

Je me doute que le show/hide doit être la cause

Peux-tu nous expliquer à quoi sert-il ?

**fifo78370** · 19/01/2016, 11h34

Bonjour Sebphyto, anasecu,

Le code ne fait planter Excel QUE après un certain nombre d'action (monter descendre), je subodore donc un dépassement de pile ou quelque chose du même acabit... sinon rien tout marche bien

Le but est d'utiliser un Userform avec des boutons radio pour permettre dans une mini appli. de sélectionner une parmi x actions possibles. Ceci peut être commandé à la souris où au clavier.
La version jointe est un "test case" avec 3 actions possibles, je passe à la ligne du dessus, à celle du dessous où je quitte l'appli. Après appui d'une touche, on masque la Userform pendant le traitement de l'action (UF.Hide). En fin de traitement on revient à la sélection des actions possibles (UF.show).
J'espère avoir été plus clair.

Nota: J'avais fait la même chose avec une macro en Excel 4.0 qui fonctionnait impeccablement jusque sous Office 2010!
Un crash disque avec perte de l'install d'Office 2010 m'a obligé à racheter un Office 2013 puis réécrire la dite macro de ~900 lignes.

Nota2: Le passage clavier / souris ne prolonge pas le temps de fonctionnement! Buffer fool

**anasecu** · 19/01/2016, 18h34

Bonjour,

Après appui d'une touche, on masque la Userform pendant le traitement de l'action (UF.Hide). En fin de traitement on revient à la sélection des actions possibles (UF.show).
J'espère avoir été plus clair.

C'est bien ce que j'avais compris mais hide/show ne sert à rien ou alors il faut que tu m'expliques le pourquoi.

**fifo78370** · 22/01/2016, 09h30

Bonjour anasecu,

Pur impression de ma part, pour un blocage complet des actions puis crash d'Excel, il n'y a pas 37 causes possibles hormis un débordement de "pile" au sens large. Il semble à l'usage que le buffer alloué aux interactions clavier et où souris n'est pas "vidé" après chaque action?! Plusieurs clics de souris bloque le traitement aussi bien que les raccourcis claviers. (Je n'ai pas vu de "flush" sur un Userform!??).
Certes le Hide/Show n'est pas a incriminé en soit. J'ai eu une fois un panneau m'indiquant "Débordement de la pile ......." puis Excel à crashé. Ayant tester la même macro sur 2 machines différentes sous seven Pro et Excel 2013 pour le même résultat, je me suis tourné vers des pros, pour savoir si l'erreur était mienne ou déjà rencontrée et donc facilement solvable.

Pour Sebphyto

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
 
Private Sub Init_UF_Choix()
    OptionButton_Monter.Value = False
    OptionButton_Descendre.Value = False
    'OptionButton_Quitter.Value = True
End Sub
 
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        UF_Choix.Hide
        Select Case LCase(Chr(KeyAscii))
            Case "m":
                OptionButton_Monter_Click
                UF_Choix.Show
            Case "d":
                OptionButton_Descendre_Click
                UF_Choix.Show
            Case "q":
                OptionButton_Quitter_Click
            Case Else
                Rep = MsgBox("Touche activée = " & LCase(Chr(KeyAscii)), vbInformation, "TEST CLAVIER")
        End Select
End Sub
Private Sub OptionButton_Descendre_Click()
    'Selection de la ligne du dessous
    If (ActiveCell().Row < 50) Then
        ActiveCell().Offset(1, 0).Select
    End If
    If (ActiveCell().Row > 10) Then
        ActiveWindow.ScrollRow = ActiveCell().Row - 10
    End If
    Init_UF_Choix
End Sub
Private Sub OptionButton_Monter_Click()
    'Selection de la ligne du dessus
    If (ActiveCell().Row > 1) Then
        ActiveCell().Offset(-1, 0).Select
    End If
    If (ActiveCell().Row > 10) Then
        ActiveWindow.ScrollRow = ActiveCell().Row - 10
    End If
    Init_UF_Choix
End Sub
 
Private Sub OptionButton_Quitter_Click()
    UF_Choix.Hide
    'Unload (UF_Choix)
    Worksheets("RECAP").Activate
End Sub

L'initialisation de la UserFormer ce fait par clic sur une ellipse

Code :

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

1
2
3
Sub Ellipse1_Cliquer()
    UF_Choix.Show
End Sub

**Sebphyto** · 22/01/2016, 09h45

Salut Fifo,

A première vue, est-ce que ton code ci dessus fonctionne?
Car l'appel de la procédure

Code :

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

Private Sub Init_UF_Choix()

N'est pas correcte ici

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
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        UF_Choix.Hide
        Select Case LCase(Chr(KeyAscii))
            Case "m":
                OptionButton_Monter_Click
                UF_Choix.Show
            Case "d":
                OptionButton_Descendre_Click
                UF_Choix.Show
            Case "q":
                OptionButton_Quitter_Click
            Case Else
                Rep = MsgBox("Touche activée = " & LCase(Chr(KeyAscii)), vbInformation, "TEST CLAVIER")
        End Select
End Sub
 
 
Private Sub OptionButton_Quitter_Click()
    UF_Choix.Hide
    'Unload (UF_Choix)
    Worksheets("RECAP").Activate
End Sub

ta sub se nomme "Init_UF_Choix" et tu l'appelles "UF_Choix", un peu partout dans d'autres sub???

Regarde ce point et soit cohérent, après ce ne peut pas forcément résoudre ton problème mais bon ....
seb

**fifo78370** · 22/01/2016, 10h42

Bonjour Sebphyto,
En rajoutant simplement "UF_Choix." dans Init_UF_Choix au nom des boutons cela continu de bloquer mais au moins Excel ne crash plus!...
Merci pour ce point là.
Par contre en changeant Init_UF_Choix en Userform_Initialize() cela ne bloque plus! par contre les raccourcis claviers eux ne sont plus fonctionnelles!!

**anasecu** · 22/01/2016, 10h45

Bonjour à tous,

@ Sebphyto

ta sub se nomme "Init_UF_Choix" et tu l'appelles "UF_Choix", un peu partout dans d'autres sub???

En fait le userform s'appelle bien "UF_Choix" et fifo78370 à appelé une procédure "Init_UF_Choix"
c'est peut-être perturbant mais tout à fait fonctionnel car il aurait pu appeler sa procédure "toto" mais nom moins parlant.

@ fifo78370 : essaie de mettre en commentaire tes hide/show pour voir si tu plantes aussi.

Bien cordialement

Userform blocage puis redémarrage d'excel! [XL-2013]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager