Option button

david p · 20 Août 2005

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 · 20 Août 2005

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 · 20 Août 2005

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 · 24 Août 2005

Merci Thierry,

cela fonctionne à merveille

A bientôt sur le forum

Option button

david p

Guest

Pièces jointes

_Thierry

XLDnaute Barbatruc

DAVID P

Guest

DAVID P

Guest

Discussions similaires