Discussion :

[lilemy]

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 :

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

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
...

[LeForestier]

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

[lilemy]

elle se trouve dans un module,

[SilkyRoad]

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 :

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

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 :

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

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