Classeur qui ferme sous MsgBox cancel

[Temjeh]

Bonjour et merci d'avance
Je ne comprend plus mon classeur
Je l'ai donc refait au complet et il y a encore bug
Pourtant il a déjà bien fonctionner!
Le bug viendrait-il de mon window ou de l'installation Excel?

Dans ce code qui me semble assez basic:

Select Case MsgBox("Voulez-vous faire l'impression ? Si *Non* ...accès au plan ", vbYesNoCancel)

Case vbYes
ActiveCell.Interior.ColorIndex = xlNone
Range("A" & i & ":AB" & i + 22).Select
Selection.PrintOut Copies:=1, Collate:=True


Case vbNo
i = InputBox(prompt:="Entrez le no", Title:="New")
For J = 1 To 5000

If Range("C" & J).Text = i Then
Range("A" & J - 2).Select
If J = 5000 Then Exit Sub
End If

Next J


Case Cancel
End Select

Le BUG: Si je presse cancel sur le msgbox il y a erreur et le classeur ferme!
Même si je lui met un exit sub après le Case Cancel

Merci pour votre aide
Temjeh

 

[Dranreb]

Re : Classeur qui ferme sous MsgBox cancel

Bonjour
Case VbCancel déjà !
Mais la conséquence ne peut se comprendre avec si peu d'information.
À+

 

[Temjeh]

Re : Classeur qui ferme sous MsgBox cancel

Bonjour et merci
Si peu d'information?

Tout le code est là! ...désolé
Pourtant un code simple qui ne devrais pas planter

Je réinstalle vb et je vous reviens

Merci

 

[Temjeh]

Re : Classeur qui ferme sous MsgBox cancel

Merci j'ai enfin trouver après des hrs d'essais

Le prob et que le code est exécuté en doubleclic.
Quand je doublecliquais il sélectionnais l'intérieur de la cellule ce qui faisait planter.
Juste avant le code j'avais une variable i
i = ActiveCell.Row
Ceci règle le Bug:
ActiveCell.Offset(1, 0).Activate
ActiveCell.Offset(0, 1).Activate

Temjeh

 

[Pierrot93]

Re : Classeur qui ferme sous MsgBox cancel

Bonjour à tous,

pour annuler l'effet du double click dans une procédure événementielle (Worksheet_BeforeDoubleClick) :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

bonne journée
@+

 

[Temjeh]

Re : Classeur qui ferme sous MsgBox cancel

Parfait

Merci beaucoup ...beaucoup plus propre!

Claude