Bouton option multiple / raccourci

Bonjour àa tous,

J'ai une feuille excel avec plusieurs tableaux de plusieurs lignes.

Au lieu de mettre des tonnes de boutons pour des raccourcis je souhaite utiliser un userform.

Celui la me demandera de choisir 2 critères. Et en fonction de ces critères me sélectionnera une cellule précise.

Pour mieux comprendre, je joins un fichier en PJ.

Merci par avance de l'attention que vous porterez à ma demande.

Bien cordialement

Bonjour,

une possibilité :

Private Sub CommandButton1_Click()
    Dim s As String, c As Range
    For Each ctrl In Me.Frame1.Controls
        If TypeName(ctrl) = "OptionButton" And ctrl.Value Then s = ctrl.Caption: Exit For
    Next ctrl
    For Each ctrl In Me.Frame2.Controls
        If TypeName(ctrl) = "OptionButton" And ctrl.Value Then s = s & " " & ctrl.Caption: Exit For
    Next ctrl
    Set c = Sheets("Feuil1").Columns(1).Find(s, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Application.Goto c, True
        Me.Hide
    End If
End Sub

eric

Merci Eric, je pense avoir compris le code. Je vais devoir adapter ma feuille d'origine à ta formule. Plus simple que d'adapter le code à ma feuille je pense.

Bonjour,

moi je réponds à coté de la plaque...

@ bientôt

LouReeD

Mais en regardant le code d'eriiic, je trouve que j'avance dans la bonne direction au niveau du codage !

@ bientôt

LouReeD

Salut loureed, pas sûr qu'il faille prendre modèle sur moi

Je vais devoir adapter ma feuille d'origine à ta formule. Plus simple que d'adapter le code à ma feuille je pense.

C'est fait pour la feuille que tu as livrée, rien a adapter.

eric

pas sûr qu'il faille prendre modèle sur moi

@ bientôt

LouReeD

Merci encore pour vos propositions. Eriic ça marche du feu de Dieu !!!

Résolu