Comment double-cliquer sur une cellule pour ouvrir une feuil Résolu

Question

Bonjour,

J'ai une feuille dans la quelle j'ai listé mes élément dans les colonnes A , en face de chaque cellule de la colonne A j'ai une liste des noms des feuilles ( déjà créés) associés  à chaque élément dans les colonnes  C .

Comment double-cliquer sur une cellule pour ouvrir une feuille spécifiques ( j'ai plusieurs feuilles ) ?

J'ai utiliser le code VBA suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20180822
Dim xArray, xAValue As Variant
Dim xFNum As Long
Dim xStr, xStrRg, xStrSheetName As String
xRgArray=Array("A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5")
On Error Resume Next
For xFNum=LBound(xRgArray) To UBound(xRgArray)
xStr=""
xStr=xRgArray(xFNum)
xAValue=""
xAValue=Split(xStr, ";")
xStrRg=""
xStrRg=xAValue(0)
xStrSheetName=""
xStrSheetName=xAValue(1)
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then
Sheets(xStrSheetName).Activate
End If
Next
End Sub

Mais comme j'ai plusieurs feuilles je ne peux pas lister tous les objets dans ce code et à chaque fois j'aurais besoins d'ajouter des objets et des feuilles .

Est il possible d'adapter  ce code pour que je puisse en double-cliquant  sur une cellule " exemple A3 " --> Excel cherche et  ouvrir la feuille qui a le même nom dans la cellule C3 ?

Merci beaucoup d'avance pour votre retour 
Windows / Edge 127.0.0.0

danielc0 · Answer

Bonjour,

Essaie :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  On Error Resume Next
  If Target.Column = 1 Then
    Sheets(Target.Offset(, 2).Value).Activate
  End If
End Sub

Daniel

O-BN · Answer

Bonjour

Merci beaucoup pour votre retour .

C'est exactement ce que je veux .

Cordialment ,

Comment double-cliquer sur une cellule pour ouvrir une feuil

2 réponses

Votre réponse

Discussions similaires

Newsletters