Cellule Double click

[Riri]

Bonsoir le Forum,

Je sélectionne une feuille depuis une cellule,mais une erreur se produit ci on double click sur une autre cellule.

Ci joint un fichier plus explicatif

Merci d'avance pour votre aide.......Riri

 

[@+Thierry]

Salut Riri, le Forum

Et bien il y a deux méthodes à appliquer :

111) Délimiter la zone pour l'action de l'évènement
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D811")) Is Nothing Then
Cancel = True
If ActiveCell.Text <> "" Then
Sheets(ActiveCell.Text).Select
Else
Exit Sub
End If
End If
End Sub


222) Gérer l'erreur si la string retournée par la cellule n'est pas un nom valide de feuille:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D811")) Is Nothing Then
Cancel = True

On Error GoTo ErrorHandler
Sheets(ActiveCell.Text).Select
End If

Exit Sub

ErrorHandler:
If Err = 9 Then
MsgBox "La Feuille : " & ActiveCell.Text & " n'existe pas"
Else
MsgBox "Une erreur non gérée s'est produite : " & Err.num & " " & Err.Description
End If
End Sub

Du coup plus besoin du test si cellule vide...

Bonne Soirée et ...

Bon Premier Mai à Tous et Toutes​

​

@+Thierry​

 

[Riri]

Bonsoir Thierry,

Merci pour ta réponse ton aide ma apporter la solution.

Bonne fin de soirée

Encore Merci

@ + Riri .