XL 2016 Choix boutons d'options sur boite de dialogue et sur une autre feuille simultanément

[roby]

Bonjour le forum,

J'aimerai lorsque je sélectionne une option dans la boite de dialogue, que le bouton sur la feuille " S " soit également sélectionné
( les "captions ne sont pas forcément les mêmes ).

Merci pour vos pistes
Roby ( Excel 2016 pour cible )

 

[sylvanu]

Bonsoir Roby,
En PJ un essai avec les modifs du type :

If UserForm1.Controls("OptionButton1").Value = True Then
    OptionButton1 = True
    Sheets("S").OptionButton1.Value = True
End If

 

[_Thierry]

Bonsoir @roby , @sylvanu

Je ferai comme ceci sans Bouton :

Private Sub UserForm_Initialize()
    Me.OptionButton1 = Feuil1.OptionButton1
    Me.OptionButton2 = Feuil1.OptionButton2
    Me.OptionButton3 = Feuil1.OptionButton3
    Me.OptionButton4 = Feuil1.OptionButton4
    Me.OptionButton5 = Feuil1.OptionButton5
End Sub


Private Sub OptionButton1_Change()
    Feuil1.OptionButton1 = Me.OptionButton1
End Sub
Private Sub OptionButton2_Change()
    Feuil1.OptionButton2 = Me.OptionButton2
End Sub
Private Sub OptionButton3_Change()
    Feuil1.OptionButton3 = Me.OptionButton3
End Sub
Private Sub OptionButton4_Change()
    Feuil1.OptionButton4 = Me.OptionButton4
End Sub
Private Sub OptionButton5_Change()
    Feuil1.OptionButton5 = Me.OptionButton5
End Sub

Bonne soirée
@+Thierry

 

[roby]

Bonsoir sylvanu, le Forum

Merci pour ton code, effectivement je me suis buté sur pas grand chose.
La boucle pourrait être possible toutefois, si les contrôles sont les mêmes ?

merci encore à toi

bonsoir à tous
Roby

 

[roby]

Bonjour _Thierry

Pas trop compris ton résonnement.

Tu es bien sur la feuille " R " et sur le userform au lancement de la macro ?


pour l'exemple il faut obligatoirement les contrôles sur "S" et être dans "R" pour le lancement de l'userform
Cordialement Roby

erratum tu parlais du bouton valider ok

Merci à toi

bonsoir à tous et protégez vous bien,

 

[roby]

Re

Petit problème lors du transfert du code sur mon fichier source.

erreur 1004

Erreur lorsque je clique sur les contrôles du userform (lancé sur la feuille "R"),
je pense qu'il prend bien en compte l'activation des contrôles sur la feuille "S" mais crée une erreur et stoppe sur le code existant des contrôles de la feuilles " S " car là aussi chaque contrôle possède une macro propre. Il doit se mélanger les pinceaux.

il s'arrête donc sur le code du bouton correspondant de la feuille "S".
une piste ?

ci-joint fichier avec les code simplifié des contrôles sur 'S'

Merci Roby

 

[_Thierry]

Bonsoir @roby

Le problème vient du fait que tu veux séletionner une range sur une feuille qui n'est pas la feuille Active et ça il n'aime pas du tout !

Essaies dans le code de la private sheet évenementielle d'ajouter "Activate" comme ceci

Private Sub OptionButton2_Click()
    Activate
    Range("E10").Value = 2
    Range("C10").Select
End Sub

Bien à toi
@+Thierry

 

[roby]

Bonjour _Thierry

Oui ça fonctionne bien, à peaufiner.

j'espère que cela fonctionnera avec les autres contrôles.

Bonne journée à tous
Roby