nom ambigu détecté worksheet_beforedoubleclick

bonjour
si dans ma feuille je met ca : ca marche

Code:

---

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:

---

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

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

salut joe.levrai

comment modifier ca alors ??

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:

---

1 2 3 4 5 6

Sub Toto() If MaCondition1 Then MonTraitement1 ElseIf MaCondition2 Then MonTraitement2 End If

---

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

Salut, Balise ton code

Te montrer, c'est ce que j'ai fais
Le faire à ta place, c'est ce que tu voudrais ... mais ça ne te feras pas apprendre

Tu remplaces simplement :

- Condition1 par le test If de ta première procédure
- Traitement1 par l'action que tu réalises dans cette dernière
- Condition2 par le test If de ta seconde procédure
- Traitement2 par l'action que tu réalises dans cette dernière

alors g tester plusieurs codes mais ca marche pas genre le dernier et celui la

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)   If Intersect(target, Range("A3")) Is Nothing Then Sheets("compte 2").Select Worksheets("compte 2").Cells(3, "a").Select ElseIf Intersect(target, Range("A4")) Is Nothing Then Sheets("compte 3").Select Worksheets("compte 3").Cells(4, "a").Select ElseIf Intersect(target, Range("A5")) Is Nothing Then Sheets("compte 4").Select Worksheets("compte 4").Cells(5, "a").Select End If   End Sub

---

ca va toujours sur le compte 2 ou 3 quand ont clic sur le 2 :?

Bonjour,

tu as oublié tes Not devant les Application.Intersect

ok cool ca marche

donc la suite maintenant une fois arriver sur le compte et la feuille de mon choix

mon menu deroulant doit s ouvrir seul et la je choisi le fournisseur qui doit ce mettre en dessous de la ligne 7

userforme et list ca c fait ainsi que le code ouverture deroulant automatic

mais comment faire le code pour mettre tout ca en place ???