On error et msgbox
Fermé
CLAVERELI
Messages postés
52
Date d'inscription
lundi 8 octobre 2012
Statut
Membre
Dernière intervention
24 mai 2014
-
1 nov. 2013 à 11:40
Mike-31 Messages postés 18384 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 9 avril 2025 - 1 nov. 2013 à 11:49
Mike-31 Messages postés 18384 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 9 avril 2025 - 1 nov. 2013 à 11:49
Bonjour,
J'ai écrit une macro qui fonctionne bien quant à l'exécution de la partie transfert si conditions remplies.
Là ou je reste sur ma faim c'est quand elles ne le sont pas: Quand je provoque une erreur volontaire le message d'erreur "Cette transaction ne concerne pas XXXX" ne s'affiche pas. pourquoi?
Je remerci d'avance qui voudra bien m'aider
https://www.cjoint.com/c/CKbk3mVgInL
J'ai écrit une macro qui fonctionne bien quant à l'exécution de la partie transfert si conditions remplies.
Là ou je reste sur ma faim c'est quand elles ne le sont pas: Quand je provoque une erreur volontaire le message d'erreur "Cette transaction ne concerne pas XXXX" ne s'affiche pas. pourquoi?
Je remerci d'avance qui voudra bien m'aider
https://www.cjoint.com/c/CKbk3mVgInL
1 réponse
Mike-31
Messages postés
18384
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
9 avril 2025
5 127
1 nov. 2013 à 11:49
1 nov. 2013 à 11:49
Bonjour,
Essaye comme cela
Sub TSFL6()
'
' TSFL6 Macro
'
Dim Rep As Integer
On Error GoTo ErrorHandler
Rep = MsgBox("Enregistrer la ligne sélectionnée sur XXXX ?", vbYesNoCancel + vbQuestion)
If Rep = vbYes Then
If Range("N6") = "VALIDER" And Range("B6") = "XXXX" Then
Range("B6:I6").Select
Selection.Copy
Sheets("XXXC").Select
Range("A500").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("J500") = "IMPORTÉE AUTOMATIQUEMENT !"
Range("K500") = "- NÉANT -"
Range("L500") = "FAUX"
End If
End If
Exit Sub
ErrorHandler:
MsgBox "Cette transaction ne concerne pas XXXX !"
End Sub
Essaye comme cela
Sub TSFL6()
'
' TSFL6 Macro
'
Dim Rep As Integer
On Error GoTo ErrorHandler
Rep = MsgBox("Enregistrer la ligne sélectionnée sur XXXX ?", vbYesNoCancel + vbQuestion)
If Rep = vbYes Then
If Range("N6") = "VALIDER" And Range("B6") = "XXXX" Then
Range("B6:I6").Select
Selection.Copy
Sheets("XXXC").Select
Range("A500").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("J500") = "IMPORTÉE AUTOMATIQUEMENT !"
Range("K500") = "- NÉANT -"
Range("L500") = "FAUX"
End If
End If
Exit Sub
ErrorHandler:
MsgBox "Cette transaction ne concerne pas XXXX !"
End Sub
