syntaxe frame et optionbutton

Version imprimable

20/11/2012, 18h23
Pierre67

syntaxe frame et optionbutton

Bonjour à tous

j'ai un petit souci de synthaxe :
dans un userform j'ai 3 frames contenant chacun des optionbuttons

je souhaite : tant qu'aucun bouton n'est coché dans frame1, les 2 autres soit invisibles. Dès qu'un bouton est coché dans frame1, le frame2 devienne visible ainsi de suite.
Je ne vois pas bien comment écrire de code :roll:
une idée

merci à vous

heu

bonsoir
exemple de l'optionbutton dans la premiere frames
si tu en a pas beaucoup ca peut aller sinon il va te falloir peut etre passer par une classe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub OptionButton1_Click()
'dans la parenthese tu met le nom du optionbouton suivi de ".parent.name" et cela dans tout les optionbuttons
verif (OptionButton1.Parent.Name)
End Sub
 
Sub verif(leparent As String)
For Each Control In Me.Controls
'pour tout les controls dans le userform
'si le control est un optionbutton et le parent de ce control est une frame
'et que le nom de cette framme est different de la frame parent de l'actif alors
If TypeName(Control) = "OptionButton" And TypeName(Control.Parent.Name) = "Frame" And _
Control.Parent.Name <> leparent Then
Control.Visible = true 
Else
Control.Visible = false
End If
End If
Next
End Sub

il te sufit d'en laisser un seul dans le mode editeur vba a visible true le premier de préference

au plaisir

21/11/2012, 08h00
Pierre67

Merci Patrick pour ton exemple.
mais je me suis rendu compte que mes explications étaient incomplète.
Sur l'usf j'ai un frame1 (6 optionbuttons) et un bouton ok
tant qu'aucun optionbutton n'est coché en cliquant sur Ok un message doit apparaitre indiquant l'obligation de faire un choix.
Si choix fait le frame2 apparait avec message si aucun bouton n'est coché.
21/11/2012, 15h32
patricktoulon

re

bonjour

d'accord ce n'est plus la meme chose alors c'est le commandbutton qui va décider par rapport au optionbutton

mais ce bouton il est dans la frame ou ailleurs dans le userform ??????
parce que la aussi il peut y avoir des nuances

une derniere petit chose

a tu pensé a utiliser un multi page plutot que des frames a moins que la presentation des emements dans ton userform ne te le permette pas?????

j'attend ta réponse et je te fait un exemple
21/11/2012, 17h02
Pierre67

2 pièce(s) jointe(s)
Merci Patrick pour l'intérêt que tu ports à mon sujet

j'ai joins une capture tel que l'userform doit être au final.

La démarche
1. seul le frame1 est visible (Historique des mouvements) dès que choix fait
2. le frame2 apparait (ordre de tri) dès choix fait
3. frame3 apparait
4. bouton Ok lance des filtres et tris
mais je pense que je dois aussi ajouter un bouton annuler si erreur dans de choix dans un des frames
@+

je joins le fichier en cours d'écriture
Attention :lol: il est pas fini
je dois encore déclarer toutes les variables quand il sera achevé
21/11/2012, 17h51
patricktoulon

re

je vais regarder ca

mais essaie de comprendre certaine chose

quand je t'ai demandé le bouton ou est il!!!! c'est pas pour rien

si il y en a undans le userform pour les 3 frames c'est pas le meme code que si il y en a un dans chaque frame

au plaisir
21/11/2012, 18h02
Pierre67

le même usf comporte les 3 frames
dans le frame1 : 6 optionbutton
Frame2 : 2 optionbutton
frame3 : 3 optionbutton
22/11/2012, 10h53
Pierre67

1 pièce(s) jointe(s)
Bonjour Patrick

sur l' Userform CONSULT dont j'ai joint une capture d'écran il y a un bouton OK (copie jointe à nouveau).
Dans mon fichier joint (compressé en rar), il s'agit de l'usf CONSULT.
Objectif à l'ouverture de cet usf
- seul le frame1 est visible (Historique des mouvements) dès que choix fait
- le frame2 apparait (ordre de tri) dès choix fait dans frame1
- frame3 apparait on choisit dans ce frame
- et bouton Ok lance des filtres et tris
Je pense que c'est plus clair

re
bonjour
bon avec la capture d'ecran c'est plus clair

je regarde ca et je reviens

cela dit pourquoi veut tu absolument que tes frames soit invisibles

tu pourrais tout simplement faire le test sur le bouton

si au moins un optionbouton dans chaque frame n'est pas coché msgbox "t'a pas oublié quelque chose? essai encore "

enfin moi ce qu'en j'en dis:roll:

allez a toute a l'heure

bon allez on y va

atu entendu parler de classe pour control? non!!

alors parlons en

quand on plusieur controls identiques et que le meme evenement est utilisé on peu mettre tout ses memes controls dans une classe (collection)

ainsi dans la meme macro on va gerer l'evenement click par exemple pour tout les "optionbutton" dans ton cas au lieu d'avoir 36 optionbuttonX_click dans le code du userform

alors commencons

dans le module du userform tu vire tout(vide)je parle du code bien sur :mouarf:

ensuite tu va mettre ca:et strictement ca

Code:

1
2
3
4
 
Private Sub UserForm_Activate()
memo Me
End Sub

ensuite dans un module standard tu va mettre ca et rien que ca :

Code:

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
 
Option Explicit
Public optionbouton() As New classecontrol    'initialisation de la classe
Public commandbouton() As New classecontrol    'initialisation de la classe
Public ctrls As Object   'variable qui va servir a memoriser tout les bouton
Public maform As Object    'variable qui va servir a memoriser l'userform
Public frame1ok As Boolean
Public frame2ok As Boolean
Public frame3ok As Boolean
 
Sub memo(uf As Object)
    Dim e As Long
    Set maform = uf        'dorénavant maform designera l'userform dans tout le classeur
    maform.Frame2.Visible = False
    maform.Frame3.Visible = False
    'on boucle sur tout les controls dans l'userform
    For Each ctrls In maform.Controls
        'on teste si le type de control est un option
        If TypeName(ctrls) = "OptionButton" Then
            e = e + 1
            ReDim Preserve optionbouton(1 To e)
            Set optionbouton(e).Groupeoption = ctrls
        End If
    Next
    ReDim Preserve commandbouton(1)
    Set commandbouton(1).monboutonok = maform.btnOK
frame1ok = False
frame2ok = False
frame3ok = False
End Sub

ensuite tu va ajouter une classe que tu nommera "classecontrol"
et tu va y mettre ca:

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Public WithEvents Groupeoption As MSForms.OptionButton
Public WithEvents monboutonok As MSForms.CommandButton
Private Sub Groupeoption_Click()
Select Case Groupeoption.Parent.Name
Case "Frame1"
frame1ok = True
maform.Frame2.Visible = True
Case "Frame2"
frame2ok = True
maform.Frame3.Visible = True
Case "Frame3"
frame3ok = True
maform.btnOK.BackColor = vbRed
End Select
End Sub
Sub monboutonok_Click()
Dim ctrl As Object
If frame1ok = False Then MsgBox "Vous devez faire un choix dans Historique des Mouvements !", vbExclamation, "ATTENTION": Exit Sub
If frame2ok = False Then MsgBox "Vous devez faire un choix dans Ordre de Tri !", vbExclamation, "ATTENTION": Exit Sub
If frame3ok = False Then MsgBox "Vous devez faire un choix dans Gamme de Panneau !", vbExclamation, "ATTENTION": Exit Sub
'ici j' a toi de debloquer le code je n'ai pas de tousmvts etc........
   'Test si l'onglet temporaire TMP existe ou pas avec création
  '  Application.DisplayAlerts = False
   ' For Each sh In Worksheets
   '     If sh.Name = "TMP" Then sh.Delete
   ' Next
   ' ActiveWorkbook.Sheets.Add
   ' ActiveSheet.Name = "TMP"
   ' Sheets("TMP").Move after:=Sheets(Sheets.Count)
'If maform.Frame1.optvisu1.Value = True Then
    ' Load TOUSMVTS
    ' TOUSMVTS.Show
'End If
'If maform.Frame1.optvisu2.Value = True Then
    ' Load SORTIES
    ' SORTIES.Show
'End If
'If maform.Frame1.optvisu3.Value = True Then
  '   Load ENTREES
   '  ENTREES.Show
'End If
maform.btnOK.BackColor = &H8000000F
maform.Frame2.Visible = False
    maform.Frame3.Visible = False
For Each ctrls In maform.Controls
        'on teste si le type de control est un option
        If TypeName(ctrls) = "OptionButton" Then ctrls = False
 
     Next
frame1ok = False
frame2ok = False
frame3ok = False
MsgBox "et voila c'est fini"
End Sub

comme tu peux le voir j'ai bloquuer pas mal de ton code en vert car il y a des elements que je n'ai pas il te faudra les debloquer

essaie de comprendre le code si tu n'y arrive pas je te l'expliquerais

au plaisir

22/11/2012, 16h56
Pierre67

Bonjour Patrick

ta dernière solution me convient également
un test si dans chaque frame un choix a été fait
bien sur
@+
22/11/2012, 17h11
patricktoulon

re

re
la classe gere le test des frames le visible des frames et le click du bouton
22/11/2012, 19h03
Pierre67

Super

rien à dire
je vais me pencher sur les modules de classe
je termine un autre boulot et vais me pencher là dessus ce we
en tout cas chapeau
j'ai déjà suivi pas mal de tes posts

merci à toi
j'ai déjà beaucoup appris sur ce forum:ccool:
23/11/2012, 12h31
patricktoulon

re

bojour
et ya pas de quoi

une chose importante que tu n'a peut etre pas remarqué

si tu regarde bien mon code tu remarquera que j'utilise 3 variables booleennes

elle suffisent en temps de test a tester si oui ou non

bien plus pratique et court en ligne de code que 3 boucles sur les controls des 3 frames

on pourrait meme encore faire plus simple si tu le veux je te montrerais
au plaisir
23/11/2012, 14h51
Pierre67

Cher patrick

j'envie tous les modérateurs de ce site pour leur niveau de compétence.
Dans mon environnement, jamais je ne pourrais atteindre ce niveau.
Mais grâce à vous en parcourant les divers posts, il est possible de progresser très rapidement.
Bien sur on se heurte toujours à SON cas particulier.
Je vais d'abord essayer d'assimiler ton code et me rapprocherai de toi en cas de besoin.
Un GRAND merci à vous et adminration pous vos réponses à des questions/problèmes qui ne vous pas toujours clairement exposées.
Pour moi c'est le meilleur forum
merci à vous

Patrick

j'ai poursuivi ton code, avec le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'Test si l'onglet temporaire TMP existe ou pas avec création Application.DisplayAlerts = False For Each sh In Worksheets If sh.Name = "TMP" Then sh.Delete Next ActiveWorkbook.Sheets.Add ActiveSheet.Name = "TMP" Sheets("TMP").Move after:=Sheets(Sheets.Count) If maform.Frame1.optvisu1.Value = True Then MsgBox ok End If
la création de l'onglet fonctionne bien
j'ai essayé de copier des lignes dans l'onglet TMP cela fonctionne
Mais il y a un pb sur les tests !!
Une idée, je ne comprends pas
par contre le test sur le bouton optvisu1 ne donne rien du tout
j'a

04/12/2012, 13h37
patricktoulon

re

bonjour

je ne comprend pas ta question ?

plus de precisions me seraient necessaire
au plaisir
04/12/2012, 13h46
Pierre67
Bonjour Patrick

j'ai insérer ces lignes à la suite de ton code dans le classcontrôle
mais ce test ne me produit pas de msgbox !
Faut-il le placer ailleurs ?
Code:

1 2 3 4 If maform.Frame1.optvisu1.Value = True Then MsgBox ok End If
la feuille TMP est bien créée
Par contre dans le classcontrole, j'ai essayer de copier une plage de la feuille MOUVEMENTs vers la feuille TMP ça fonctionne
mais le test ci-dessus non
04/12/2012, 16h49
patricktoulon

re

bonjour
c'est quoi l'erreur ?
04/12/2012, 17h40
Pierre67

le test if sur l'optionbutton ne m'affiche pas la msgbox
donc tout autre test ne devrait pas marcher non plus
05/12/2012, 11h53
patricktoulon

re
bonjour
pourquoi ne test tu pas avec groupeoption si je me souviens bien car je n'ai plus l'exemplaire que je t'avais fait

en gros pour simplifier tout les optboutons s'apellent groupeoption dans la classe

donc dans le clic de groupeoption_click
tu peu mettre
'par exemple
Code:

1 2 3 4 5 6 7 8 9 select case groupeoption.name case "optvisu1" 'ton code pour ce optionbouton ici case machinchose 'ton autre code ici 'etc..... end select
au plaisir