On error et msgbox
CLAVERELI
Messages postés
56
Statut
Membre
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
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
-
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
