Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Classeur qui ferme sous MsgBox cancel

  • Initiateur de la discussion Initiateur de la discussion Temjeh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Temjeh

XLDnaute Accro
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
 
Dernière édition:
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
 
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
 
Re : Classeur qui ferme sous MsgBox cancel

Bonjour à tous,

pour annuler l'effet du double click dans une procédure événementielle (Worksheet_BeforeDoubleClick) :
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
906
Réponses
3
Affichages
880
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…