Donner le focus à la feuille après un clic sur UserForm

**ESVBA** · 30/08/2012, 11h18

bonjour,

je garde une UserForm en vbModeless en permanence sur le classeur.

Je souhaite après avoir cliqué sur un contrôle de la UserForm rendre le focus à la feuille pour sélectionner d'autres cellules.

Actuellement, il me faut cliquer sur la feuille pour l'activer puis sélectionner mes cellules. Des codes du genre :

Code :

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

sheets("Tmp").activate

Code :

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

Application.Activate

ne changent rien.

ESVBA

**fring** · 30/08/2012, 11h49

Bonjour,

Pourtant ce code fonctionne

Code :

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

1
2
Sheets("Tmp").Select
Range("A1").Select

**ESVBA** · 30/08/2012, 13h41

mais hélas non. Ce code ne fonctionne pas chez moi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TxtCouleur_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
    Dim Rg As Range
    Set Rg = Selection
 
   Selection.Merge True
    '--- du code ici
 
    Sheets("Planning ESSAIS").Select
    Range("A1").Select              '<<< même avec "A1" au lieu de Rg.Address
 
    Set Rg = Nothing
End Sub

Le traitement se fait bien bien mais je suis obligé après un double-clic sur une zone de texte de la UserForm de cliquer une première fois sur la feuille pour sélectionner la feuille puis de faire enfin la prochaine sélection de cellules.

ESVBA

**fring** · 30/08/2012, 14h02

Je te confirme qu'avec ce que tu nous montres cela fonctionne.
Que contient cette partie ?

Code :

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

'--- du code ici

**ESVBA** · 30/08/2012, 15h55

Fring, merci de vous intéresser à mon code.

il s'agit simplement de mise en forme de la sélection de cellules d'après une textbox sur la UserForm.

Exemple de code

Code :

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

1
2
3
4
5
With Selection
            .Interior.Color=255
            .Border = ...
            .FormulaR1C1 = "'" & TxtCouleur.Text.
          End With

Mon code est dans un module de classe.

Rappels complet :

Le but est d'automatiser la mise en forme de cellules en utilisant des formats pré-établis (planning que l'on contruit, rien n'existe pour utiliser la MFC).

Je clique sur un bouton, une UserForm s'ouvre et construit des textbox en récupérant les paramètres placés dans une feuille (Appelation, couleurs, catégories...).
Je sélectionne une plage de cellules et clique sur la mise en forme correspondante placé dans une zone de texte (TxtCouleur) sur la UserForm. Ca fonctionne bien. MAIS...

Si je veux sélectionner une autre plage de cellules, il me faut activer la feuille en cliquant dessus puis seulement en sélectionnant la nouvelle plage de cellules. Je voudrais éviter de devoir cliquer une première fois pour éviter puis une seconde fois.

Est-le fait d'être dans un module de classe ?

ESVBA

**fring** · 30/08/2012, 20h05

Je ne sais pas si c'est dû au module de classe, joins un bout de fichier que je puisse tester

**ESVBA** · 30/08/2012, 21h52

Effectivement sur un nouveau classeur, les deux ".select" fonctionnent correctement.

Sur ce classeur réduit à son maximum, je constate que la cellule "A1"est sélectionnée tout comme le contenu du textbox. Ce que je ne voyais pas avant sur le classeur complet.

Hypothèse : le fait que l'on double clique lance correctement le code de la procédure "DblClic" mais le code intrinséque VBE exige de sélectionner le texte donc on perd le focus sur la feuille ?

L'utilisation d'un label à la place d'un TextBox m'interdit de modifier facilement le contenu.

Je ne vois pas de solution.

ESVBA

**AlainTech** · 01/09/2012, 11h32

Bonjour,

Je suis vraiment étonné que, depuis le temps que tu es sur le forum, tu en sois encore à travailler avec des Select et Selection.

Dans ce code

Code :

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

1
2
    Dim Rg As Range
    Set Rg = Selection

Tu étais bien parti.
Puis, tu écris ceci:

Code :

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

   Selection.Merge True

Au lieu d'utiliser Rg...
Pourquoi?

Il faut penser objet pour tout:
Classeurs, feuilles, Ranges, cellules.

Si un code "oblige" une sélection, c'est qu'il est mal conçu.

Je viens de tester ton fichier et j'ai une première erreur sur

Code :

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

Range("TabRepartitionHoraireNiveau").Rows.Count

TabRepartitionHoraireNiveau n'est pas défini.

**ESVBA** · 01/09/2012, 17h48

effectivement j'ai oublié de changer cette ligne de code provenant de l'enregistreur de macro.

Par contre dans le fichier "2Fring.xls" que j'ai posté, le tableau nommé "TabRepartitionHoraireNiveau" est bien défini et fonctionne correctement. Plage : "A3:F19" sur la feuille "Répartition Horaire par niveau".

ESVBA

**AlainTech** · 02/09/2012, 13h03

C'est bien ce fichier que j'ai testé.
Après ajout du nom, l'erreur suivante est sur

Code :

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

.Text = Range("TabRepartitionHoraireNiveau[#Data]").ListObject.Range.Cells(i + 1, 1)

Je ne vois pas à quoi correspond

Code :

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

TabRepartitionHoraireNiveau[#Data]

Bref, difficile de tester ce fichier par rapport à la question initiale avec des erreurs dans le reste du code.

**ESVBA** · 02/09/2012, 18h05

je n'ai aucune erreur chez moi.
Il s'agit des données d'un tableau Excel 2007. Je prélève le contenu des cellules du tableau pour le mettre dans les textbox correspondnates.

J'ai reposté mon fichier dans le post plus haut.

ESVBA

**AlainTech** · 02/09/2012, 18h38

Je suppose que c'est le passage de xlsm à xls qui provoquent les problèmes que je rencontre.
Quoi qu'il en soit, je ne pourrai pas t'aider plus si ton fichier et ton code son développés en 2007.
Je n'ai, pour le moment, qu'un 2003 sous la main.

Idem dans le nouveau fichier, le tableau n'est pas nommé.

**ESVBA** · 02/09/2012, 22h47

j'aurai sous la main un XL2003 demain. Je testerai.

ESVBA

**ESVBA** · 03/09/2012, 10h23

Je ne sais pas ce que j'ai fait avec les fichiers "2fring.xls" mais effectivement il y avait une erreur dans le fichier posté. Ce n'était certainement pas le même que celui sur mon bureau.

J'ai mis pour la seconde version posté les déclarations de collection en remarque d'où le bug.

Cette fois c'est la bonne. Et ça fonctionne sous XL2003.

ESVBA

**fring** · 03/09/2012, 10h46

J'ai testé ton fichier sous 2007 et hormis une ligne de code qui bug chez moi et que j'ai du désactiver, il fonctionne correctement

Code :

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

1
2
3
4
5
6
Sub Interface()
'...
'...
.Accelerator = i '<-- cette ligne coince
'...
'...

Lorsque je fais un double clic dans un textbox, il me sélectionne bien la cellule A1 de la feuille "Planning Hebdo 2012-13" et je peux sans problème faire la sélection d'autres cellules. Finalement je ne vois pas où se situe le problème

**ESVBA** · 03/09/2012, 11h33

Si Si il ya un problème...

Je me suis mal exprimé depuis le début. Au niveau programmation, j'obtiens bien ce que je veux mais l'usage ne suit pas. Je m'explique :

Je clique sur le bouton pour ouvrir la "UserForm"
La fenêtre UserForm s'ouvre
Je clique down sur une cellule et j'étends la selection avec la souris
Je vais au-dessus de la TextBox et fait un double-clic

La plage de cellules prend la bonne apparence. Ca Fonctionne parfaitement la première fois.

MAIS SI JE POURSUIS:

je place mon curseur souris au dessus de la première cellule de la nouvelle plage de cellules
Je clique down-up pour sélectionner la feuille <<<<<<<<<<<
Je clique down et glisse le curseur pour sélectionner la plage.

Je souhaite pour l'utilisateur supprimer l'étape 2 (<<<<<<<) de sélection par un premier clic de la feuille. Je clique une fois (en général sur la premiere cellule de la plage de cellules) et je dois refaire un clic sur la même cellule pour commencer la sélection de la plage.

C'est la raison pour laquelle je sélectionne la feuille en fin de procédure. Mais ca ne change rien au niveau pratique : il faut faire deux clics.

J'espère être clair cette fois.

ESVBA

**fring** · 03/09/2012, 12h15

J'avais bien compris mais je n'ai pas l'étape 2

Je peux à chaque fois refaire la sélection de cellules dès le premier clic

**ESVBA** · 03/09/2012, 16h11

AH !

je viens d'essayer le fichier posté sur des versions XL2010 - XL2007 et XL2003 provenant de différentes images et j'ai toujours le même problème !

Question : Après le double clic, j'ai le contenu de la textbox sélectionné. Vous aussi ?

ESVBA

**fring** · 04/09/2012, 11h36

Envoyé par ESVBA

Question : Après le double clic, j'ai le contenu de la textbox sélectionné. Vous aussi ?

Oui

**ESVBA** · 04/09/2012, 22h33

Je viens fermer la discussion et vous fournir ma solution.

La solution est évidente, valait juste y penser.

Mais comme je suis un amateur... (même si je suis inscrit depuis longtemps, AlainTech)

Explication :
quand on fait un double-clic, la procédure événementielle réalise les opérations écritent dans la procédure mais aussi les opérations "programmées par défaut". Pour une zone de texte le double-clic provoque la sélection du texte donc indirectement la perte du focus mis sur la feuille. Il faut donc annuler cette procédure en ajoutant simplement :

Code :

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