moniteur41
XLDnaute Nouveau
bonjour à tous.
aprés avoir parcouru le forum, je n'ai pas trouvé d'idée pour résoudre mon prob. Alors voilà je lance une bouteille à la mer.
J'ai une userform, avec dessus un multipage de 7 pages. Chaque page posséde 4 frames avec 4 option button.
j'ai réussi a écrire la routine pour savoir quel optBut. était activé a l'intérieure de la frame. maintenant je voudrais que quelque soit la frame je puisse appliquer la routine. ( pour l'instant je ne peut le faire qu'avec la frame 3)
Ceal fait deux jour que je cogite rien ne marche .
Quelqu'un aurait une idée
merci de votre lecture.
voici le bout de code:
j'ai mis entre guillemets le code que j'essaye de faire fonctionner
' AFFICHAGE OBJECTIF
Private Sub CommandButton3_Click()
Dim CtrlOption As Control
Dim CtrlOptionButton As Control
Dim CtrlFrame As Control
' For Each CtrlFrame In MultiPage1.Pages
' If TypeOf CtrlFrame.Controls Is msforms.OptionButton Then GoTo suite
' GoTo fin1
'suite:
'Boucle sur tous les contrôles de la frame
For Each CtrlOption In Frame3.Controls
'Vérifie qu'il s'agit d'un OptionButton
If TypeOf CtrlOption Is msforms.OptionButton Then GoTo suite1
GoTo fin
suite1:
'Si c'est le meme optionbutton qui est select. alors on sort
If (CtrlOption.Object.Value = True) And (CtrlOption.Font.Bold = True) Then GoTo fin1
' sinon on cherche quel était le dernier et on enleve le gras
For Each CtrlOptionButton In Frame3.Controls
If CtrlOptionButton.Font.Bold = True Then
CtrlOptionButton.Font.Bold = False
Exit For
End If
Next CtrlOptionButton
'Ici on va mettre en gras l'optionbutton select.
If CtrlOption.Object.Value = True Then
CtrlOption.Object.Font.Bold = True
Exit For
End If
Next CtrlOption
'Exit For
fin1:
' Next CtrlFrame
fin:
End Sub
aprés avoir parcouru le forum, je n'ai pas trouvé d'idée pour résoudre mon prob. Alors voilà je lance une bouteille à la mer.
J'ai une userform, avec dessus un multipage de 7 pages. Chaque page posséde 4 frames avec 4 option button.
j'ai réussi a écrire la routine pour savoir quel optBut. était activé a l'intérieure de la frame. maintenant je voudrais que quelque soit la frame je puisse appliquer la routine. ( pour l'instant je ne peut le faire qu'avec la frame 3)
Ceal fait deux jour que je cogite rien ne marche .
Quelqu'un aurait une idée
merci de votre lecture.
voici le bout de code:
j'ai mis entre guillemets le code que j'essaye de faire fonctionner
' AFFICHAGE OBJECTIF
Private Sub CommandButton3_Click()
Dim CtrlOption As Control
Dim CtrlOptionButton As Control
Dim CtrlFrame As Control
' For Each CtrlFrame In MultiPage1.Pages
' If TypeOf CtrlFrame.Controls Is msforms.OptionButton Then GoTo suite
' GoTo fin1
'suite:
'Boucle sur tous les contrôles de la frame
For Each CtrlOption In Frame3.Controls
'Vérifie qu'il s'agit d'un OptionButton
If TypeOf CtrlOption Is msforms.OptionButton Then GoTo suite1
GoTo fin
suite1:
'Si c'est le meme optionbutton qui est select. alors on sort
If (CtrlOption.Object.Value = True) And (CtrlOption.Font.Bold = True) Then GoTo fin1
' sinon on cherche quel était le dernier et on enleve le gras
For Each CtrlOptionButton In Frame3.Controls
If CtrlOptionButton.Font.Bold = True Then
CtrlOptionButton.Font.Bold = False
Exit For
End If
Next CtrlOptionButton
'Ici on va mettre en gras l'optionbutton select.
If CtrlOption.Object.Value = True Then
CtrlOption.Object.Font.Bold = True
Exit For
End If
Next CtrlOption
'Exit For
fin1:
' Next CtrlFrame
fin:
End Sub