Discussion :

[Alain7751]

Bonjour
Voici mon problème.
Je ne parviens pas à activer une feuille existante.
J'ai un userform (MonUserForm) avec bouton d'option dans un frame (MonFrame) et un bouton de validation (BpValid) sur le MonUserForm.
Je clique un bouton option
Je valide par BpValid
et rien ne se passe.
Pouvez-vous m'aider
Merci par avance

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
Private Sub BpValid_click()
Dim Ctrl As Control
Dim Chx As Byte
 
For Each Ctrl In MonFrame.Controls
    If Ctrl.Object.Value = True Then
        Chx = Ctrl.Object.Caption
        ChgmtFeuil (Chx)
    End If
Next Ctrl
Unload MonUserForm
End Sub
 
Private Sub ChgmtFeuil(Chx)
Sheets(Chx).Activate
End Sub

[Theze]

Bonjour,

Il n'y a pas de raison que ça ne fonctionne pas. J'ai rajouté un Exit For une fois la feuille choisie sélectionnée :

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
 
Private Sub BpValid_click()
 
    Dim Ctrl As Control
 
    For Each Ctrl In MonFrame.Controls
 
        'au cas où il y aurait d'autre contrôles qui ne soient pas des boutons d'option
        If TypeName(Ctrl) = "OptionButton" Then
 
            If Ctrl.Object.Value = True Then
 
                Sheets(CInt(Ctrl.Object.Caption)).Activate
                Exit For
 
            End If
 
        End If
 
    Next Ctrl
 
    Unload Me
 
End Sub

[Alain7751]

J'ai dû m'absenter une petite heure d'où le retard dans ma réponse.
En lisant ton message je me suis senti plus sûr de moi et je me suis rendu compte que j'avais voulu travailler avec les indices de feuille et non leur nom !
Effectivement à présent ça marche et bien sûr j'ai ajouté ta modif !!
Un grand merci !!

Alain