Userform non modal et Refedit: la sélection reste bloquée

Version imprimable

02/06/2015, 11h29
V.I.T.R.I.O.L.

Userform non modal et Refedit: la sélection reste bloquée

Bonjour à tous,

Je réalise en ce moment un programme dont l'objectif est de récupérer des données sur un autre classeur. Pour ce faire, des RefeEdit sont générés de manière dynamiques sur un Userform. Ayant lu différentes conversations à ce sujet, j'ai décidé de paramétrer le userform en non modal.

Cependant, lorsque que je souhaite sélectionner une cellule, l'adresse de celle-ci s'affiche bien dans le RefEdit mais il m'est impossible de retourner sur le Userform contenant le RefEdit. En effet, la sélection reste bloquée sur le classeur excel et le Userform devient in-sélectionnable.

Paramétrer le Userform en ShowModal = True réalise l'exacte opposé. C'est à dire que cette fois, il est possible de retourner sur le Userform MAIS il n'est plus possible de sélectionner tout classeurs excel ouverts.

Je vous remercie d'avance pour vos idée.
Cordialement,

V.I.T.R.I.O.L.
02/06/2015, 11h37
joe.levrai

Bonjour,

je n'ai jamais vraiment utilisé ce contrôle

un petit exemple ici, peut être que ça t'aidera ?
http://ericrenaud.fr/refedit.htm
02/06/2015, 11h52
Daniel.C

Bonjour,

C'est un problème connu. Essaie en mettant un bouton de commande sur l'userform. Ce bouton affichera un second userform modal, lui même affichant le refedit.
02/06/2015, 13h53
V.I.T.R.I.O.L.
Bonjour,

Merci pour vos réponses rapides.

Citation:

un petit exemple ici, peut être que ça t'aidera ?
http://ericrenaud.fr/refedit.htm

Malheureusement, rien ne me permet de résoudre le problème. La RefEdit créé vraiment un soucis de "modalité" du Userform en voulant à tout prix garder le focus d'une cellule excel. C'est d'ailleurs assez incroyable car même si l'on veut forcer le changement de modalité du Userform en passant de true à false tel que suit, le problème persiste...
Code:

1 2 3 Userform.Hide Userform.Show False Unload Userform
Citation:

C'est un problème connu. Essaie en mettant un bouton de commande sur l'userform. Ce bouton affichera un second userform modal, lui même affichant le refedit.

En réalité il existe deux cas de figures:
1er cas: le Userform est définit comme non-modal. Dans cette situation, si j'utilise un RefEfit du Userform, il reste bloqué sur la page excel. Impossible donc de revenir sur le Userform pour activer un quelconque bouton.
2eme cas: le Userform est définit comme modal. Là, même si le RefEdit bloque la sélection sur l'Excel, il est possible d'aller sur un bouton et d'afficher un autre Userform. Le programme tourne parfaitement, en particulier si l'on récupérer des valeurs sur le classeur source (ou le classeur comportant le code VBA, appelons le "classeur A"). Cependant, si je souhaite récupérer des valeurs d'un autre classeur excel ("classeur B"), le focus va être être maintenu à l'extérieur du "classeur A". Le programme tourne toujours et jusqu'au bout MAIS lorsqu'il est terminé, toutes les feuilles excel sont désactivées (donc celles du classeur A et B). Il est impossible de sélectionner quoi que ce soit.
02/06/2015, 14h06
Daniel.C

Essaie alors avec un inputbox :

Code:

Set Plage = Application.InputBox("choisissez une plage", Type:=8)
02/06/2015, 14h34
V.I.T.R.I.O.L.

Je trouve l'idée de l'InputBox très intéressante, merci.

Cependant, au lieu d'implémenter dynamiquement des RefEdits, il faudra que je créé des boutons avec à chacun un Event associé à l'apparition d'une InputBox (ainsi que des TextBox d'affichage). Cela va impacter lourdement mon code mais il s'agit d'une solution plus robuste que celle du RefEdit, qui a été ma principale source de problème depuis le début. Je regrette de ne pas y avoir pensé plus tôt...

Si toutefois vous avez d'autres idées n'hésitez pas. C'est quand même curieux qu'un control comme le RefEdit soit aussi défaillant pour un logiciel utilisant ses fonctions de manière aussi large.
02/06/2015, 14h40
Daniel.C

Citation:

C'est quand même curieux qu'un control comme le RefEdit soit aussi défaillant pour un logiciel utilisant ses fonctions de manière aussi large.

Ils sont connus pour générer des problèmes. On m'a toujours conseillé de les éviter.
03/06/2015, 10h45
V.I.T.R.I.O.L.

Bonjour,

Je me permet de me tourner vers vous une fois de plus par rapport à l'IntputBox. Est-il possible de récupérer l'adresse de la cellule sélectionnée plutôt que sa valeur (dans le cas de l'exemple, j'ai utilisé Plage.Value)? Je n'ai pas eu l'occasion de manipuler un tel objet... (Et... Je tiens à dire que je n'ai pas accès à l'aide en ligne de VBA à cause de multiples pare-feu)

EDIT:

Code:

Plage.Address

My bad, j'avais oublié un d.

Avant que je ne place le sujet en Résolu, est-ce qu'il est souhaitable que je place un morceau de mon code pour créer un RefEdit alternatif?

Cdt,

V.I.T.R.I.O.L.
03/06/2015, 11h16
Daniel.C

Bonjour,

Citation:

Avant que je ne place le sujet en Résolu, est-ce qu'il est souhaitable que je place un morceau de mon code pour créer un RefEdit alternatif?

C'est toujours bienvenu.

Han la durée avant laquelle on est déconnectée sur ce forum est terriblement courte... Je dois recommencer mon message.

Le code est divisé en 3 parties:
1) Un code présent lorsque l'on click sur le bouton OK (nommé Button_OK) d'un UserForm (nommé Userform1)
2) Un code présent dans un module de classe (nommé Module_De_Classe)
3) Un code présent dans un module (nommé Module 1)

Attention: certaines de mes variables sont déclarées en Public dans le Module1

1) Userfom1: code permettant de créer dynamiquement les objets (TextBox et CommandButton) permettant réaliser les "RefEdit alternatives"

Code:

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
Option Explicit
Option Base 1 'Oui j'ai encore mes vieilles habitudes de Matlab...
Dim N As Integer
Dim i As Integer
Dim Nzero As Integer
 
Sub Button_Ok_Click()
N=10 'Dans mon code, l'utilisateur a le choix de modifier ce paramètre
 
ReDim Module1.TxtBox_Ctrl(N)
ReDim Module1.Button_cell_Ctrl(N)
ReDim Module1.Evenement(N)
 
For i = 1 to N
     'Permet de mettre un compteur à 4 Digit après chaques noms d'objets créés. Par exemple, pour N=7 on aurra "Nom0007". 
     'Il s'agit d'un identifiant que l'on réutilisera plus tard.
     Nzero = i
     Nzero = String(4 - Len(NDigit), "0") Next i
 
     Set Module1.TxtBox_Ctrl(i) = Userform1.Controls.Add("Forms.TextBox.1")
     Set Module1.Button_cell_Ctrl(i) = Userform1.Controls.Add("Forms.CommandButton.1")
 
     With Module1.TxtBox_Ctrl(i)
          .Name = "Adresse_cell" & Nzero & i
          .Top = i * 22 - 15
          .Left = 60
          .Width = 66
          .Height = 15.75
     End With
 
     Set Module1.Evenement(i).Group_Browse_Cell= Module1.Button_cell_Ctrl(i) 'Attribution d' l'évènement au 10 boutons générés dynamiquement
     With Module1.Button_cell_Ctrl(i)
          .Name = "Button_cell" & Nzero & i
          .Top = i * 22 - 15
          .Left = 140
          .Width = 15.75
          .Height = 15.75
          .Caption="-"
     End With
Next i
 
End Sub

2) Module_De_Classe: code d'attribution d'évènements aux boutons générés dans le Userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Option Base 1 
 
Public WithEvents Group_Browse_Cell As MSForms.CommandButton
 
Sub Group_Browse_Cell_Click()
 
Dim Fin_nom_string As String
Dim Fin_nom_integer As Integer
 
'Lecture des 4 dernières lettres des noms de boutons générés dans le Useform1. 
'Exemple à N= 7, on aura "Button_cell0007"
Fin_nom_string = Right(Group_Browse_Cell.Name, 4) 
Fin_nom_integer = CInt(Fin_nom_string) 
 
Call Procedure_Browse_Cell(Fin_nom_integer)
 
End Sub

3) Module1: procédure permettant de sélectionner une cellule et de recopier son adresse dans les TextBox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Option Base 1 
 
Public TxtBox_Ctrl() As Control
Public Button_cell_Ctrl() As Control
Public Evenement() As New Module_De_Classe
 
Sub Procedure_Browse_Cell(Identifiant As Integer)
Dim Adresse_cellule As Object
 
Userform1.Hide
 
Set Adresse_cellule = Application.InputBox("choisissez une cellule", Type:=8)
TxtBox_Ctrl(Identifiant).Value = Adresse_cellule.Address
 
Userform1.Show
End Sub

Il se peut que j'ai oublié deux ou trois petites choses, je ne l'ai pas testé directement. N'hésitez pas à critiquer.
Cdt,

V.I.T.R.I.O.L.

04/06/2015, 14h59
joe.levrai

Citation:

Han la durée avant laquelle on est déconnectée sur ce forum est terriblement courte... Je dois recommencer mon message.

Bonjour,

quand tu te connectes, tu as la possibilité de cocher une case qui se souvient de tes identifiants (je n'ai plus le nom exact)
ça évite de se faire déconnecter et d'avoir à s'authentifier à chaque fois que tu viens sur le forum