Discussion :

[ESVBA]

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]

Bonjour,

Pourtant ce code fonctionne

Code :

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

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

[ESVBA]

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]

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]

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]

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

[AlainTech]

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]

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]

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.