Discussion :

[MacGeol]

Bonjour à tous,

Bon je suis toujours avec mes problèmes de SetFocus sur mes contrôles. Alors grâce à Zazaraignée et Ouskel'n'or j'ai réussi à mettre mon point d'insertion dans un contrôle donné de la feuille active. Merci encore.

Mais j'ai un autre problème... Et oui car j'ai un contrôle multipage et je voudrais mettre le focus sur un contrôle d'une feuille du multipage qui n'est pas à ce moment là la feuille affichée. Quelqu'un aurait-il une idée. Moi j'ai essayé de faire MultiPageFeuille1.MonContrôle.SetFocus, mais apparemment c'est pas ça.
Et question subsidiaire : comment récupérer l'index de la feuille active du multipage?

Merci beaucoup d'avance!

[ouskel'n'or]

J'ai ça, extrait de l'aide :

Code :

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

1
2
3
4
5
6
    For i = 0 To MultiPage1.Count - 1
        PageNAme = MultiPage1.Pages(i).Name
        MsgBox "PageName = " & PageNAme
        MsgBox "MultiPage1.Pages(i).Caption = " & MultiPage1.Pages(i).Caption
        MsgBox "MultiPage1.Pages.Item(i).Caption = " & MultiPage1.Pages.Item(i).Caption
    Next i

Si ça peut t'aider

A+

[MacGeol]

Merci m'sieur,

J'ai également trouvé ça dans l'aide.
Et j'ai aussi trouvé comment récupéré l'index de la page active, c'est juste : MultiPage.Value = Index.

Par contre pour le SetFocus d'un contrôle je cherche encore...

MultiPage1.Pages(Index).Controls.MonControle ?

Le problème est que après MultiPage1.Pages(Index). Visual ne me met pas les propriétés ou méthodes disponibles alors je tatonne et comme l'instruction est difficile à tester dans le programme...

Merci encore.

Si vous avez d'autres infos... merci d'avance
_____________
EDIT:

MultiPage1.Pages(0).SetFocus --> Marche pô
MultiPage1.Pages(0).MonControle.SetFocus --> Marche pô
MultiPage1.Pages(0).Controls.MonControle.SetFocus --> Marche pô

MultiPage1.Pages(0).visible = True
MonControle.SetFocus ---> Marche pô non plus

[ouskel'n'or]

Puisque tu as l'aide, alors tu as dû trouver ça :

L’exemple suivant utilise la propriété ActiveControl d’une sous-routine qui effectue le suivi des contrôles consultés par l’utilisateur. Pour chaque contrôle, le contrôle Event appelle la sous-routine TraceFocus pour identifier le contrôle qui a le focus.
Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d’une feuille et vérifiez que celle-ci contient :

· un contrôle ScrollBar nommé ScrollBar1,
· un contrôle ListBox nommé ListBox1,
· deux contrôles OptionButton nommés OptionButton1 et OptionButton2,
· un contrôle Frame nommé Frame1.

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
Dim MyControl As Control
 
Private Sub TraceFocus()
    ListBox1.AddItem ActiveControl.Name
    ListBox1.List(ListBox1.ListCount - 1, 1) = ActiveControl.TabIndex
End Sub
 
Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 2
    ListBox1.AddItem "Contrôles consultés"
    ListBox1.List(0, 1) = "Index de contrôle"
End Sub
 
Private Sub Frame1_Enter()
    TraceFocus
End Sub
 
Private Sub ListBox1_Click()
    TraceFocus
End Sub
 
Private Sub OptionButton1_Enter()
 
    TraceFocus
End Sub
 
Private Sub OptionButton2_Enter()
    TraceFocus
End Sub
 
Private Sub ScrollBar1_Enter()
    TraceFocus
End Sub

A+

[MacGeol]

Oui, oui, merci Ouskel'n'or,

effectivement j'ai bien trouvé cela dans l'aide également. Mais cela ne correspond pas à ce que je veux faire. Plutôt que de suivre le focus, je veux placer le focus comme pour ma question précédente, pour laquelle tu m'as bien débloqué d'ailleurs, sauf que là le contrôle sur lequel je veux mettre le focus est sur une page différente de celle active dans un contrôle MultiPage.
Et c'est bien là le problème...

[ouskel'n'or]

Juste une idée comme ça (je n'ai jamais utilisé le multipage) n'as-tu pas moyen "d'aciver" la page en question avant de diregirer le focus ?

A+

[MacGeol]

Et béh....

Je cherche, je cherche mais je ne trouve pas dans les propriétés et méthodes de 'MultiPage', 'Pages', et 'Page' dans l'aide... mais... je ne trouve pas...

[ouskel'n'or]

et avec

Code :

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

TonMultiPage.Pages(NomDeLaPage).select

ça marche pas ?

Sinon,

Code :

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

1
2
3
With TonMultiPage
    .Pages(NomDeLaPage).select
end with

ou encore

Code :

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

1
2
3
4
Set MaMP = TonMultiPage
With MaMP
     .Pages(NomDeLaPage).select
end with

... toujours pas ? non, cépasdrôl...

A+

[MacGeol]

Et béh...
'Propriété non gérée par cet objet."

Pffff.... vraiment j'te jure...

Merci en tout cas Ouskel'n'or.

Quelqu'un aurait bien une idée tout de même?...

[MacGeol]

Personne n'as donc de solution à cette question?

Allez s'il vous plaît creusez vous un peu la tête, ça m'embête tout de même pas mal ce truc là...

Merci d'avance!

[ouskel'n'or]

Tu as essayé avec Show ?
Juste une question pour te montrer qu'il y a encore quelqu'un et te soutenir le moral...

A+

[MacGeol]

Salut Ouskel'n'or,

C'est vraiment très très gentil de ta part... mais... pareil... Erreur : Propriété non géré par cet objet...

Personne n'aurai donc de réponse à cette question?!
Je pensais que d'autre avaient déjà eut besoins de cette action...

[ouskel'n'or]

C'était juste pour remettre ta question en première place...
Non c'est pas vrai, mais on sait jamais... quand on connait pas

A+

[AlainTech]

J'ai eu beau chercher (pas très longtemps, je l'avoue) je n'ai pas trouvé comment "activer" (mettre à l'avant plan) une page d'un multipage.

La seule "solution" que j'entrevois (pas très propre mais bon...) c'est d'associer une AcceleratorKey à la page en question et de faire un SendKeys.

Oui, je sais, c'est crade mais je ne vois rien d'autre.

De toute façon, ça fait un Up pour le message.

[MacGeol]

Merci AlainTech,

il est vrai que mon message avait bien besoin d'un 'up', Ouskel'n'or à déjà fait tout ce qu'il peu également pour cela... Merci d'ailleurs.

Même si ta solution est 'crade' j'aimerais bien en connaître les tenant et les aboutissant je dois avouer que je ne connait pas les AcceleratorKey (je vais également aller faire un tour dans l'aide de VBA).

Merci d'avance.

Et la question reste toujours en suspend... Personne n'as donc jamais eut à mettre une Page d'un multipage en premier plan???
Aller un p'tit effort.

Merci d'avance!

P.S. : Et hop un 'up' de plus!

[zazaraignée]

Salut

Je ne connais pas le contrôle MultiPage. Mais avec un TabStrip, il n'y a qu'à

Code :

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

SSTab1.Tab = numéro d'index

et le tour est joué. Alors pourquoi pas

Code :

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

MultiPage.Page = numéro d'index

:

[AlainTech]

Le contrôle MultiPage n'a pas de propriété Page...

[ouskel'n'or]

Hello,

En cherchant aut' chose, j'ai trouvé ça dans l'aide VBA "Ajout d’un contrôle dans un contrôle MultiPage"

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Set MyTextBox = MultiPage1.Pages(0).Controls.Add("Forms.TextBox.1", "MyTextBox", Visible)
End Sub

D'après ces lignes, il semblerait qu'on peut nommer la page par l'index... (?)
Désolé AlainTech, mais si ça marche, MacGeol sera content...

A+

[MacGeol]

A bah pour sûr que je serais content si on trouve quelque chose qui marche!!!

Merci d'ailleurs à Zazaraignée, AlainTech et Ouskel'n'or pour cette activité subite sur ce sujet!

Je ne connais pas le contrôle MultiPage. Mais avec un TabStrip, il n'y a qu'à Code:

Code :

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

SSTab1.Tab = numéro d'index

et le tour est joué. Alors pourquoi pasCode:

Code :

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

MultiPage.Page = numéro d'index

Et oui je n'ai pas choisi le TabStrip... j'aurais peu être dû... mais j'ai trouvé le MultiPage vraiment très adapté à ce que je voulais faire. Et tout marche très très bien sauf ce maudit SetFocus sunr un contrôle dans une page différente que celle active!

Le contrôle MultiPage n'a pas de propriété Page...

Mais oui malheureusement le contrôle MultiPage n'as pas de propriété page... Par contre on peu effectivement appeler une page par :

Code :

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

MultiPage.Pages(n° d'index)

Ou même par son nom :

Code :

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

MultiPage1.Pages(i).Name

Mais c'est là que commence le problème. C'est que la page définie par MultiPage.Pages(n° index) a très peu de propriétés (selon l'aide):
Accelerator
ActiveControl
CanPaste
CanRedo
CanUndo
Caption
ControlTipText
Cycle
Enabled
HelpContextID
Index
InsideHeight
KeepScrollBarsVisible
Name
TabIndex
TabStop
TrasitionEffect
Visible
Zoom

et encore moins de méthodes (toujours selon l'aide):
Copy
Paste
RedoAction
Repaint
Scroll
SetDefaultTabOrder
UndoAction

Alors si l'un de vous trouve là dedans une propriété ou méthode qui pourrait répondre à ma question je serais plus qu'heureux!!!!

En cherchant aut' chose, j'ai trouvé ça dans l'aide VBA "Ajout d’un contrôle dans un contrôle MultiPage"

Code :

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

1
2
3
Private Sub CommandButton1_Click() 
Set MyTextBox = MultiPage1.Pages(0).Controls.Add("Forms.TextBox.1", "MyTextBox", Visible) 
End Sub

Moi aussi je l'avais trouvé et j'ai donc essayé tout de suite de faire :

Code :

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

MutliPage.Pages(N°Index).Controls.MonControl.SetFocus

Et si je me souviens bien cela ne fonctionnais pas... sinon je n'en serait pas là....

Merci à vous pour le soutient et à bientôt!
Et merci d'avance à tout autre contributeurs!

[ouskel'n'or]

Accès à un objet Page, exemple

Je pense que tu as aussi vu ça dans l'aide...

A+