erreur variable non defini

Bonjour,
En quelques mots quand on doucle clique dans un cellule on ouvre une userform qui me demande si je veux vraiment lancer mon code.
Si je met non pas de problème si je met oui il dit "Objet requis" et quand je vais sur la ligne de l'erreur il est ecrit : ThisWorkbook=<variable objet ou variable de bloc With non définie>
De plus si j'enlève le commentaire du début, alors c'est sur cette ligne que se met l'erreur alors que mon "Target.Address" c'est la case sur laquel je clique au début donc elle est définie nn??
Pourtant avant que je mette le UserForm au milieu de l'application celle-ci fonctionnait tres bien.

Code:

---

1 2 3 4 5 6 7 8

Private Sub btnoui_Click() 'MsgBox "Vous avez double cliqué sur la cellule " & Target.Address Cancel = True If FeuilleExiste(ThisWorkbook, Target.Address) Then <--------ligne de l'erreur Sheets(Target.Address).Select Else ...

---

bonjour,
Ah oui.... et où est la fonction -FeuilleExiste- ?:lol:

elle se trouve dans un module,

bonjour

L'argument Target est lié à l'évènement de la feuille de calcul et non au bouton du UserForm:
http://silkyroad.developpez.com/VBA/...Feuille/#LII-B



Place une variable dans l'évènement BeforeDoubleClick

Code:

---

1 2 3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MaVariable = Target.Address End Sub

---

puis réutilise cette variable dans ton bouton:

Code:

---

1 2 3 4 5 6

Private Sub btnoui_Click() 'MsgBox "Vous avez double cliqué sur la cellule " & MaVariable Cancel = True If FeuilleExiste(ThisWorkbook, MaVariable) Then Sheets(MaVariable).Select Else

---

michel