amélioration et rectification d'un code en vba Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
mynameisjeff
Membre fidèle
Membre fidèle
Messages : 201
Inscrit le : 10 octobre 2014
Version d'Excel : 2007

Message par mynameisjeff » 28 avril 2015, 08:49

Salut à tous,

J'ai créé un code (qui ne marche pas encore pour le moment) mais dont l'idée principale serait que
sur ma Feuil1, si je double clique sur une cellule (qui porterait le nom d'une de mes feuilles) de la colonne B,
alors suite au double clique, je me retrouverai sur la feuille souhaitée.

voici mon code (me manque le fait de me diriger vers la feuille) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Target = Target.Cells
End If
Target.Offset(1, 0).Select
End Sub

Merci d'avance pour toute aide, en espérant avoir été clair dans ma demande.
Cordialement
m
mynameisjeff
Membre fidèle
Membre fidèle
Messages : 201
Inscrit le : 10 octobre 2014
Version d'Excel : 2007

Message par mynameisjeff » 28 avril 2015, 10:56

J'ai trouvé la solution en testant un peu.

Je donne la formule si cela peut intéresser d'autres personnes :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([B1:B20], Target) Is Nothing Then
Choix = Target

Worksheets(Choix).Activate
End If

End Sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message