Discussion :

[Amariel30]

Bonjour,

J'ai un formulaire dans lequel je laisse la possibilité à l'utilisateur de récupérer une et une seule option parmi plus d'une dizaine.
Chaque option si elle est choisie, va effectuer l'action que je veux dans la page choisie par l'utilisateur.

Du coup, j'ai un code comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
If PM001.Value = True Then
    val = Sheets("PM001").Index
ElseIf PM002.Value = True Then
    val = Sheets("PM002").Index
ElseIf PM003.Value = True Then
    val = Sheets("PM003").Index
ElseIf PM004.Value = True Then
    val = Sheets("PM004").Index
ElseIf PM006.Value = True Then
    val = Sheets("PM006").Index
ElseIf PM007.Value = True Then
    val = Sheets("PM007").Index
ElseIf PM008.Value = True Then
    val = Sheets("PM008").Index
ElseIf PM009.Value = True Then
    val = Sheets("PM009").Index
ElseIf PM012.Value = True Then
    val = Sheets("PM012").Index
ElseIf PM013.Value = True Then
    val = Sheets("PM013").Index
ElseIf PM014.Value = True Then
    val = Sheets("PM014").Index
ElseIf PM015.Value = True Then
    val = Sheets("PM015").Index
ElseIf PM016.Value = True Then
    val = Sheets("PM016").Index
ElseIf PM017.Value = True Then
    val = Sheets("PM017").Index
End If

Je voudrais savoir si par une boucle, ou autre, il peut sortir seul la valeur "true" et en fonction, de quelle valeur est true, faire varier le val en conséquence?

Merci d'avance

[Theze]

Bonjour,

Une piste avec un module de classe qui n'est pas vraiment encapsulé puisqu'il utilise une variable de l'UserForm mais bon !
A mettre dans un module de classe nommé "Classe1" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public WithEvents GroupeOpt As MSForms.OptionButton
 
Private Sub GroupeOpt_Click()
    UserForm1.Valeur = Worksheets(GroupeOpt.Name).Index
End Sub

A mettre dans le module de l'UserForm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Dim Opt() As New Classe1
Public Valeur As Integer
 
Private Sub UserForm_Initialize()
 
    Dim Ctrl As Control
    Dim I As Integer
 
 
    For Each Ctrl In Me.Controls
 
        If TypeName(Ctrl) = "OptionButton" Then
 
            I = I + 1: ReDim Preserve Opt(1 To I)
            Set Opt(I).GroupeOpt = Ctrl
 
        End If
 
    Next Ctrl
 
End Sub
 
Private Sub CommandButton1_Click()
    MsgBox Valeur
End Sub

Pose un bouton sur l'UserForm nommé "CommandButton1" et testes !
Pour une boucle, comme tu as des nombres qui ne se suivent pas, il faut faire un test dans la boucle avec un Select Case :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub CommandButton1_Click()
 
    Dim I As Integer
    Dim Valeur As Integer
 
    For I = 1 To 17
 
        Select Case I
 
            Case 1 To 4, 6 To 9, 12 To 17
 
            If Me.Controls("PM0" & Format(I, "00")).Value = True Then
 
                Valeur = Worksheets("PM0" & Format(I, "00")).Index
                Exit For
 
            End If
 
        End Select
 
    Next I
 
    MsgBox Valeur
 
End Sub

[unparia]

Bonjour

compte tenu des noms que je vois (les mêmes pour les boutons et les feuilles), ceci (écrit à main levée) devrait suffire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
toto = Array(PM001, PM002, PM003,PM004, PM006, PM007,PM008, PM009, PM0012,PM0013, PM0014, PM0015,PM0016, PM0017)
for k = 0 to ubound(toto)
  if toto(k) = true then v = sheets(toto(k).name).index
next
'   msgbox v

Et encore : car j'ignore l'aspect du userform. Car on peut également mettre tous ces boutons dans un frame et utiliser alors une boucle for each ... next, bien plus simple.

[MarcelG]

Bonjour à vous, Bonjour au forum,

Salut Theze, unparia,

Si l'on considère la "valeur" 'd'un formulaire, alors on peut, à mon avis, en définir une propriété.
La lecture de cette propriété impactera la méthode à appliquer.

Par hypothèse:
- Un formulaire contenant 2 boutons d'option et un bouton de commande
- Dans le classeur, 2 feuilles de travail nommées "lawks1" et "lawks2"

A adapter bien entendu

Code Formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Property Get wkschoose() As String
 
  Dim c As msforms.Control
  Dim Counter As Byte
 
wkschoose = ""
 
  Counter = 0
  Do While Counter < Me.Controls.Count And wkschoose = ""
    Set c = Me.Controls(Counter)
    If TypeName(c) = "OptionButton" Then
    If c.Value = True Then wkschoose = "lawks" & Replace(c.Name, "OptionButton", "")
    End If
    Counter = Counter + 1
  Loop
 
End Property
 
Private Sub CommandButton1_Click()
Me.Hide
End Sub

Code module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub Testwks()
  With UserForm1
    .Show
      Worksheets(.wkschoose).Select
  End With
  Unload UserForm1
End Sub

A mon sens, l'avantage d'un tel processus réside en sa souplesse.
En effet, d'ailleurs par définition, apparaîtra la propriété du formulaire lors de la saisie.

[Amariel30]

Bonjour,

J'ai ouvert 2 topics pour 2 questions différentes dans mon userform et Mercatog (que je remercie) m'a fait un code qui cumule les deux questions: Autre topic

Cela fonctionne, je mets donc en résolu, mais je converse avec lui pour comprendre son code, qui est d'un niveau plus élevé que ce que j'ai pu faire jusqu'à maintenant.

Merci en tout cas pour votre aide.

[MarcelG]

Bonjour à l'ami mercatog, bien entendu,

Un avis sur le processus que je propose?

[Amariel30]

Je décrypte et je reviens vers toi ^^"

Je suis un peu lent, cette procédure va bien au-delà du niveau que j'ai pu avoir en formation vba avec mon boulot.

[mercatog]

Bonjour Marcel.

Merci, j’apprends quelque chose de nouveau