Multipage page active

Le
Stef
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24265581
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
Le #24265571
Merci

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

"DanielCo" 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
Le #24266001
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" 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
Le #24266451
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" 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
Le #24266531
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" 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
Le #24267831
Merci
"s.willy"
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" 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













Publicité
Poster une réponse
Anonyme