stopper une macro si erreur

Spitnolan08

XLDnaute Barbatruc

• 12 Octobre 2007

• #2

Re : stopper une macro si erreur

Bonsoir,

Pas vraiment sûr d'avoir compris...
Donc une réponse simple mais peut être à côté de la plaque :

Code:

Range("A1").Select
ActiveSheet.Paste
If Range("A1")="" then Msgbox "ATTENTION, vous avez oublié de copier le message!!" : exit sub

Cordialement

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 13 Octobre 2007

• #3

Re : stopper une macro si erreur

en fait c'est un peu ca,

cela dit si on a oublié de faire le copier, j'ai le message d'erreur, et je voudrais eviter d'avoir cela, dans le genre on error....

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 13 Octobre 2007

• #4

Re : stopper une macro si erreur

j'ai le message suivant:

la methode Paste de la classe worksheet a échoué

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 13 Octobre 2007

• #5

Re : stopper une macro si erreur

Bonjour jammy17,
personnellement, je ne vois pas comment tu aurais pu oublier de copier, surtout si c'est dans un code....
Si l'action "Copier" dans ton code dépend d'une condition, dans ce cas, tu fais le "coller" dans cette même condition, ainsi, pas d'erreur.
Mais je n'ai peut-être pas compris la subtilité.

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 13 Octobre 2007

• #6

Re : stopper une macro si erreur

oui certes, je ne puis malheurueusement mettre mon fichier en ligne pour plus de comprhension.
en fait c'est un fichier qui va etre utilisé par d'autres marins!!!! lol

donc il se peut qu'ils oublient de faire le copier dans le message auquel cas la macro ne fonctionnera pas......et mettera le message d'erreur, ce que je veux justement eviter.

j'ai pensé a la methode :
on error goto erreur
erreur:
msgbox("vous avez oublié de copier le message")
meis cette methode me fait apparaitre le message a chaque fois

comprends pas

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 13 Octobre 2007

• #7

Re : stopper une macro si erreur

re-,

la methode Paste de la classe worksheet a échoué

Cliquez pour agrandir...

Pour info, à quel moment tu fais ton "copier"?
L'instruction "ClearContents" provoque également le :
"Application.CutCopyMode = False", donc vide ton presse-papier.
Il faut que tu copies après le "ClearContents"

exemple :

Sub Macro1()
If Range("A1").Value > 10 Then
With Sheets("import")
.Cells.ClearContents
End With
Range("A1").Copy Sheets("import").Range("A1")
End If
End Sub

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 13 Octobre 2007

• #8

Re : stopper une macro si erreur

VOILA LE BOUT DE MACRO DE DEBUT:
Sheets("import").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
ActiveSheet.Paste
On Error GoTo erreur
'******************APPEL DE LA MACRO SUIVANT TYPE DE MESSAGE POUR MISE EN FORME AVANT EXPORT****
With Sheets("import")
Set plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
End With
For Each cel In plage
If cel.Value Like "*AVURNAV LOCAL BREST*" Then
Module1.import_avloc 'APPEL DE LA MACRO AVURNAV LOCAL

End If
Next
'***********************************************************************
For Each cel In plage
If cel.Value Like "*AVURNAV LOCAL CHERBOURG*" Then
Module1.import_avlocch 'APPEL DE LA MACRO AVURNAV LOCAL

End If

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 13 Octobre 2007

• #9

Re : stopper une macro si erreur

Re-,
je ne vois aucun "Copier" dans ton code...
Ragarde mon post précédent concernant le "ClearContents"

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 13 Octobre 2007

• #10

Re : stopper une macro si erreur

effectivemenr$t, le coopier se fait sur un message avant l'excution de la macro

 

Vote positif 0 Vote négatif

É

Épaf

XLDnaute Occasionnel

• 13 Octobre 2007

• #11

Re : stopper une macro si erreur

Regarde à Raise, dans l'aide en ligne : Permet de générer une erreur. Donc au lieu de mettre ton message, en reprenant le code de Spinolan,

Code:

    Range("A1").Select
    ActiveSheet.Paste
    On error goto fin::
    If Range("A1")="" then Err.Raise 10 'ou ce que tu veux, tu testes
    '... ton code si paste est ok
fin::
    if err then Msgbox "ATTENTION, vous avez oublié de copier le message!!"
End sub

@+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 13 Octobre 2007

• #12

Re : stopper une macro si erreur

Bonjour Epaf, re- le forum

Epaf, il me semble que le problème restera entier, dû au "ClearContents".
Il lui faut d'abord un bout de code pour effacer sa feuille, puis "Copier" son message et enfin un autre code pour coller et y effectuer son traitement.

 

Vote positif 0 Vote négatif

J

jammy17

XLDnaute Occasionnel

• 13 Octobre 2007

• #13

Re : stopper une macro si erreur

ok merci

j'ai juste mis on error resume next
car sinon c'est ingerable merci encore

 

Vote positif 0 Vote négatif