bonjour
si dans ma feuille je met ca : ca marche

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
' vers compte 1
 
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
 
If Not Application.Intersect(target, Range("A2")) Is Nothing Then
Sheets("compte 1").Select
Worksheets("compte 1").Cells(2, "a").Select
End If
 
End Sub]
si je met ca : nom ambigu détecté worksheet_beforedoubleclick
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' vers compte 1
 
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
 
If Not Application.Intersect(target, Range("A2")) Is Nothing Then
Sheets("compte 1").Select
Worksheets("compte 1").Cells(2, "a").Select
End If
 
End Sub
' vers le compte 2
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
 
If Not Application.Intersect(target, Range("A3")) Is Nothing Then
Sheets("compte 2").Select
Worksheets("compte 2").Cells(3, "a").Select
End If
 
End Sub
j ai 6 feuilles "comptes" avec 10 "fournisseurs" par compte

une solution svp