Discussion :

[lilemy]

Bonjour,
ok alor quand on double clique on a sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    fconfirmation.cel = Target.Address
    fconfirmation.Show
End Sub

Et dans cette boite quand on clique sur Oui on a sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub bntoui_Click()
If FeuilleExiste(ThisWorkbook, Target.Address) Then
    Sheets(Target.Address).Select
Else
...

Le truc c'est que dans la deuxième fonction il ne se souvient plus du Target.Adress et il me dit objet requis

[wilfried_42]

bonjour lilemy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub bntoui_Click()
dim target as range
set target = range(fconfirmation.cel)
 
If FeuilleExiste(ThisWorkbook, Target) Then
    Sheets(Target.Address).Select
Else

j'imagine que tu doublecliques sur une cellule qui contient une nom de feuille

[lilemy]

je test de façon plus approndit mais sa a l'air de fonctionner
merci beaucoup