OVH Cloud OVH Cloud

multipage

5 réponses
Avatar
titi
bonsoir


dans ma "MultiPage1.Value = 1"
j ai plusieur OptionButton je voudrais savoir comment faire pour :
des que l un est cliqué on passe a la MultiPage1.Value = 2
merci

A+
Th

5 réponses

Avatar
Daniel
Bonsoir.
Je dois être à côté de la plaque parce que je ne vois pas où est le problème
:
pour chaque bouton :
Private Sub OptionButton1_Click()
UserForm1.MultiPage1.Value = 2
End Sub
le fait en toute simplicité ?
Cordialement.
Daniel
"titi" a écrit dans le message de news:

bonsoir


dans ma "MultiPage1.Value = 1"
j ai plusieur OptionButton je voudrais savoir comment faire pour :
des que l un est cliqué on passe a la MultiPage1.Value = 2
merci

A+
Th



Avatar
michdenis
Bonjour Titi,

En plus de la réponse de Daniel,

Si tu as besoin d'une procédure génrale ...

Une boucle sur tous les contrôles Multipage de la page 1
'----------------------
Sub PageSuivante()

For Each c In Me.MultiPage1(0).Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True Then
Me.MultiPage1.Value = 1
Exit Sub
End If
End If
Next

End Sub
'----------------------


Salutations!



"titi" a écrit dans le message de news:
bonsoir


dans ma "MultiPage1.Value = 1"
j ai plusieur OptionButton je voudrais savoir comment faire pour :
des que l un est cliqué on passe a la MultiPage1.Value = 2
merci

A+
Th
Avatar
JLuc
*Bonjour michdenis*,
Si je ne m'abuse :
Avec trois optionbutton sur la page , quelque soit l'optionbutton on va
sur la page 1 ? :-?
C'est ca ou je comprends pas tout ? ;-)
Bonjour Titi,

En plus de la réponse de Daniel,

Si tu as besoin d'une procédure génrale ...

Une boucle sur tous les contrôles Multipage de la page 1
'----------------------
Sub PageSuivante()

For Each c In Me.MultiPage1(0).Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True Then
Me.MultiPage1.Value = 1
Exit Sub
End If
End If
Next

End Sub
'----------------------


Salutations!



"titi" a écrit dans le message de news:
bonsoir


dans ma "MultiPage1.Value = 1"
j ai plusieur OptionButton je voudrais savoir comment faire pour :
des que l un est cliqué on passe a la MultiPage1.Value = 2
merci

A+
Th



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/

Avatar
titi
bonsoir
tout d abord merci pour ta reponse
tu as bien compris j ai 5 optionbutton et quelque soit l option button
les données ainsi cochées vont en case A1 et on passe a la page 1 de la
multipage1
j ai mis ton Sub page suiavante() partout et rien n y fait on passe pas a la
page1
que faire...merci
A+
Th



"JLuc" a écrit dans le message de news:

*Bonjour michdenis*,
Si je ne m'abuse :
Avec trois optionbutton sur la page , quelque soit l'optionbutton on va
sur la page 1 ? :-?
C'est ca ou je comprends pas tout ? ;-)
Bonjour Titi,

En plus de la réponse de Daniel,

Si tu as besoin d'une procédure génrale ...

Une boucle sur tous les contrôles Multipage de la page 1
'----------------------
Sub PageSuivante()

For Each c In Me.MultiPage1(0).Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True Then
Me.MultiPage1.Value = 1
Exit Sub
End If
End If
Next

End Sub
'----------------------


Salutations!



"titi" a écrit dans le message de news:
bonsoir


dans ma "MultiPage1.Value = 1"
j ai plusieur OptionButton je voudrais savoir comment faire pour :
des que l un est cliqué on passe a la MultiPage1.Value = 2
merci

A+
Th



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/





Avatar
JLuc
*Bonjour titi*,
Ce n'est pas moi qui est ecrit cette macro, mais si tu veux qu'elle
fonctionne quand tu clic sur l'optionbutton, il faut l'associer a
l'evenement clic de ton optionbutton :
Sub OptionButton1_Click()
Range("A1") = 1 'Ou tout autre donnee
Me.MultiPage1.Value = 1
End sub
Et la, ca marchera

bonsoir
tout d abord merci pour ta reponse
tu as bien compris j ai 5 optionbutton et quelque soit l option button
les données ainsi cochées vont en case A1 et on passe a la page 1 de la
multipage1
j ai mis ton Sub page suiavante() partout et rien n y fait on passe pas a la
page1
que faire...merci
A+
Th



"JLuc" a écrit dans le message de news:

*Bonjour michdenis*,
Si je ne m'abuse :
Avec trois optionbutton sur la page , quelque soit l'optionbutton on va sur
la page 1 ? :-?
C'est ca ou je comprends pas tout ? ;-)
Bonjour Titi,

En plus de la réponse de Daniel,

Si tu as besoin d'une procédure génrale ...

Une boucle sur tous les contrôles Multipage de la page 1
'----------------------
Sub PageSuivante()

For Each c In Me.MultiPage1(0).Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True Then
Me.MultiPage1.Value = 1
Exit Sub
End If
End If
Next

End Sub
'----------------------


Salutations!



"titi" a écrit dans le message de news:
bonsoir


dans ma "MultiPage1.Value = 1"
j ai plusieur OptionButton je voudrais savoir comment faire pour :
des que l un est cliqué on passe a la MultiPage1.Value = 2
merci

A+
Th



-- JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/






--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/