Evenement Double clic
Résolu/Fermé
A voir également:
- Vba double clic cellule
- Double ecran - Guide
- Whatsapp double sim - Guide
- Souris double clic toute seule - Forum souris / Touchpad
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
14 oct. 2015 à 07:58
14 oct. 2015 à 07:58
Bonjour,
comme ceci
comme ceci
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nom_onglet As String
If Not Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne
nom_onglet = Target.Value
Sheets(nom_onglet).Select
Else
MsgBox "ton message"
End If
End Sub
14 oct. 2015 à 08:00
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
par
Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
14 oct. 2015 à 08:44
En complément de ta réponse, je penses qu'il faut, toutefois, vérifier si le nom contenu dans la cellule cliquée est bien le nom d'une feuille.
Sinon, ça va planter...
Donc, en reprenant ton code, cela pourrait donner :
Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean) Dim nom_onglet As String 'si l'utilisateur double-clic dans la ,bonne colonne (ici colonne A) If Not Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne If Feuil_Exist(ThisWorkbook.Name, Target.Value) Then 'ici le code à exécuter si le nom présent dans la cellule est bien un nom de feuille nom_onglet = Target.Value Sheets(nom_onglet).Select Else 'ici le message à afficher s'il ne s'agit pas d'un nom de feuille MsgBox "ton message" End If 'si clic au mauvais endroit on ne fait rien End If End Sub 'Test si la feuille existe déjà Function Feuil_Exist(strWbk As String, strWsh As String) As Boolean 'Gestionnaire d'erreur On Error Resume Next '"Test" Feuil_Exist = (Workbooks(strWbk).Sheets(strWsh).Name = strWsh) End Function14 oct. 2015 à 16:55
Merci!