Multipage page active

6 réponses

Stef

20/02/2012 à 09:40

Bonjour

J'ai un controle multipage avec plusieurs pages.

Je souhaite rendre active l'une d'entre-elles lors de son initialisation
mais la syntaxe suivante ne semble pas fonctionner. ???

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(page2).Enabled = True

Je vous en remercie par avance

6 réponses

DanielCo

20/02/2012 à 12:50

Bonjour,
A moins que "Page2" soit une variable, il faut mettre :

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(1).Enabled = True

La première page ayant l'indice 0.
Cordialement.
Daniel

Bonjour

J'ai un controle multipage avec plusieurs pages.

Je souhaite rendre active l'une d'entre-elles lors de son initialisation mais
la syntaxe suivante ne semble pas fonctionner. ???

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(page2).Enabled = True

Je vous en remercie par avance

Stef

20/02/2012 à 12:53

Merci

Je n'avais plus pensé à l'indice 0

"DanielCo" a écrit dans le message de news:
jhtc2v$qm5$

Bonjour,
A moins que "Page2" soit une variable, il faut mettre :

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(1).Enabled = True

La première page ayant l'indice 0.
Cordialement.
Daniel

Bonjour

J'ai un controle multipage avec plusieurs pages.

Je souhaite rendre active l'une d'entre-elles lors de son initialisation
mais la syntaxe suivante ne semble pas fonctionner. ???

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(page2).Enabled = True

Je vous en remercie par avance

Stef

20/02/2012 à 16:47

Je reviens vers vous car malheuresement je n'ai posé la bonne question.

Je souhaiterais en fait que l'onglet (page3) soit selectionner lors de
l'ouverture du userform

Merci

"DanielCo" a écrit dans le message de news:
jhtc2v$qm5$

Bonjour,
A moins que "Page2" soit une variable, il faut mettre :

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(1).Enabled = True

La première page ayant l'indice 0.
Cordialement.
Daniel

Bonjour

J'ai un controle multipage avec plusieurs pages.

Je souhaite rendre active l'une d'entre-elles lors de son initialisation
mais la syntaxe suivante ne semble pas fonctionner. ???

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(page2).Enabled = True

Je vous en remercie par avance

DanielCo

20/02/2012 à 18:54

Alors, c'est (en se servant du numéro d'indice :

Me.MultiPage1.Value = 2

Daniel

Je reviens vers vous car malheuresement je n'ai posé la bonne question.

Je souhaiterais en fait que l'onglet (page3) soit selectionner lors de
l'ouverture du userform

Merci

"DanielCo" a écrit dans le message de news:
jhtc2v$qm5$
Bonjour,
A moins que "Page2" soit une variable, il faut mettre :

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(1).Enabled = True

La première page ayant l'indice 0.
Cordialement.
Daniel

Bonjour

J'ai un controle multipage avec plusieurs pages.

Je souhaite rendre active l'une d'entre-elles lors de son initialisation
mais la syntaxe suivante ne semble pas fonctionner. ???

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(page2).Enabled = True

Je vous en remercie par avance

s.willy

20/02/2012 à 19:14

Bonjour

Private Sub UserForm_Initialize()
dim ind as integer
If Worksheets("Liste").Range("AI19") = "" Then
With A_LETTRES_phrases.MultiPage1
For ind = 0 To .Pages.Count - 1
If .Pages(ind).Caption = "page3" Then .Value = ind
Next
End With
End sub

"Stef" écrivait
news:4f426b1d$0$9789$:

Je reviens vers vous car malheuresement je n'ai posé la bonne
question.

Je souhaiterais en fait que l'onglet (page3) soit selectionner lors de
l'ouverture du userform

Merci

"DanielCo" a écrit dans le message de news:
jhtc2v$qm5$
Bonjour,
A moins que "Page2" soit une variable, il faut mettre :

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(1).Enabled = True

La première page ayant l'indice 0.
Cordialement.
Daniel

Bonjour

J'ai un controle multipage avec plusieurs pages.

Je souhaite rendre active l'une d'entre-elles lors de son
initialisation mais la syntaxe suivante ne semble pas fonctionner.
???

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(page2).Enabled = True

Je vous en remercie par avance

Stef

21/02/2012 à 08:38

Merci
"s.willy" a écrit dans le message de news:

Bonjour

Private Sub UserForm_Initialize()
dim ind as integer
If Worksheets("Liste").Range("AI19") = "" Then
With A_LETTRES_phrases.MultiPage1
For ind = 0 To .Pages.Count - 1
If .Pages(ind).Caption = "page3" Then .Value = ind
Next
End With
End sub

"Stef" écrivait
news:4f426b1d$0$9789$:

Je reviens vers vous car malheuresement je n'ai posé la bonne
question.

Je souhaiterais en fait que l'onglet (page3) soit selectionner lors de
l'ouverture du userform

Merci

"DanielCo" a écrit dans le message de news:
jhtc2v$qm5$
Bonjour,
A moins que "Page2" soit une variable, il faut mettre :

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(1).Enabled = True

La première page ayant l'indice 0.
Cordialement.
Daniel

Bonjour

J'ai un controle multipage avec plusieurs pages.

Je souhaite rendre active l'une d'entre-elles lors de son
initialisation mais la syntaxe suivante ne semble pas fonctionner.
???

Private Sub UserForm_Initialize()
If Worksheets("Liste").Range("AI19") = "" Then
A_LETTRES_phrases.MultiPage1.Pages(page2).Enabled = True

Je vous en remercie par avance

Multipage page active

6 réponses

Veuillez sélectionner un problème