Option button

[david p]

Bonjour le forum,

je me permets de vous solliciter pour le problème suivant:

j'ai programmé sur la feuille 'interface' 3 options bouton'.

1er souci

Ex: L'option button 1 me permet d'aller sur la feuille 2 mais j'ai voulu préciser que le curseur aille sur la cellule A1 'de la feuille 2'
et la ca BUG

2 eme souci

je voudrai à chaque retour sur la feuille'interface' que les 3 options boutons soient vides


j'espère ne pas trop abuser , je ne suis pas pressé


Merci d'avance

[file name=classeuroption.zip size=15076]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeuroption.zip[/file]

 

[_Thierry]

Bonjour David, le Forum

Non non tu n'abuses pas du tout d'autant plus que tu es très poli et respectueux 😉


Pour ton premier souci orientes-toi vers une syntax plutôt comme celle-ci pour tes OptionButtons :

Private Sub OptionButton2_Click()
    If OptionButton2 = True Then
        With Sheets('Feuil3')
            .Activate
            .Range('A1').Activate
        End With
    End If
End Sub

Pour le 'nettoyage' au retour je te propose ceci dans ton code :

Sub versinterface()
Dim CTRL As OLEObject

    For Each CTRL In Sheets('Interface').OLEObjects
        If CTRL.progID = 'Forms.OptionButton.1' Then
            CTRL.Object.Value = False
        End If
    Next CTRL
   
    With Sheets('interface')
        .Select
        .Range('A1').Select
    End With
End Sub

Bon Week End
[ol]@+Thierry[/ol]

 

[DAVID P]

Je te remercie pour tes explications rapides.

Je vais mettre tout cela en application en fin de soirée.


Je suis actuellement sur un projet ou tes démos (historique forum) me sont fort utile



Merci encore de ton aide

Bonsoir le forum

 

[DAVID P]

Merci Thierry,

cela fonctionne à merveille


A bientôt sur le forum