Discussion :

[exelan]

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

[joe.levrai]

Bonjour,

au sein d'un même module, tu ne peux pas avoir deux procédures évènementielles portant le même nom
tu dois tout traiter dans la même procédure

[exelan]

salut joe.levrai

comment modifier ca alors ??

[joe.levrai]

Il suffit de travailler avec If/ElseIf/End If

Dans le If, c'est ton premier traitement
Dans le ElseIf, c'est le second

Code :

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

1
2
3
4
5
6
Sub Toto()
If MaCondition1 Then
    MonTraitement1
ElseIf MaCondition2 Then
    MonTraitement2
End If

[exelan]

tu peux me montrer dans mes codes a moi la suis perdu stp

[kiki29]

Salut, Balise ton code