Test dans une macro
Bonjour à tous,
J'ai fait une petite macro pour faire un bordereau de remise de chèque en banque, mais je voudrais exécuter cette macro uniquement si une date est saisie et dans le cas contraire je voudrai revenir au tableau excel.
Comment faire, voici un bout de ma macro !!!
Sub Validation_Remise_en_Banque()
'
d = Sheets("Rem. Chq.").Cells(7, 15)
If d <> 0 Then GoTo line12 Else: End Sub
d = la date saisie
si la date est 0 je ne veux rien executer
si la date est saisie je voudrais continuer l'exécution
quelle instruction pout faire un goto ?
merci j'espère avoir été clair
@+ Bruno
Bonjour,
edit : quel tableau ?
Après le ELSE : mettre EXIT SUB au lieu de END SUB
Dan
Nad-Dan a écrit :Bonjour,
edit : quel tableau ?
Après le ELSE : mettre EXIT SUB au lieu de END SUB
Dan
Merci pour la rapidité
Voici mon instruction
If IsEmpty(d) Then GoTo line12 Else End Sub
Mais le message d'erreur est le suivant :
Erreur de compilation
erreur de syntaxe
et le end Sub est en surbrillance jaune.
que d soit vide ou pas le résultat est le même.
l'instruction goto est-elle correcte ?
line12 signifie-t-il bien de continuer le programme à la ligne 12 ?
eslse End Sub signifie-t-il bien de terminer le programme ?
Merci
@+ Bruno
re,
l'instruction goto est-elle correcte ?
line12 signifie-t-il bien de continuer le programme à la ligne 12 ?
eslse End Sub signifie-t-il bien de terminer le programme ?
Line12 veut dire que l'on va à la ligne 12 dans le programme
else End Sub --> Heu... tu n'as pas lu mon message en entier je crois...
A te relire
Dan
d = Sheets("Rem. Chq.").Cells(7, 15)
If IsEmpty(d) Then GoTo line10 Else Exit Sub
Que d soit vide ou non il y a la même erreur qui s'affiche su GoTo line10 :
Erreur de compilation
Eiquette non définie
re,
Tu sûr que LINE10 existe ??
Vérifie la syntaxe --> LINE10:
Sinon place le code complet ou le fichier en question (sans données confidentielles), ce sera plus facile.
Amicalement
Dan
Merci encore, je te joints un fichier épurer
la macro se nomme Impression Remise de Chèques
Voici le fichier
https://www.excel-pratique.com/~files/doc2/Essai_Forum.zip
@+ Bruno
Re,
Je ne vois pas le rapport entre ta demande et notamment le GOTO LINE...
Si je comprends bien, il faut que la macro Impression s'exécute si une date est présente en O7 ?
Si il y a une date, comment exécutes-tu la macro ? un bouton, un événement ?
A te relire
Dan
Voici un nouveau fichier, en effet je n'avais pas laissé la bonne macro en réduisant le fichier.
https://www.excel-pratique.com/~files/doc2/XjychEssai_Forum.zip
Pour lancer la macro j'utilise exécuter une macro.
Mon souhait :
- si il ya une date j'exécute la macro normalement (goto line10)
- si il n'y a pas de date je sort de la macro (exit sub)
La macro met à jour d'autre feuille de calcul qui risquent d'être perturbées par le fait qu'il n'y aps de date
j'espre que cette fois cel te parait clair
merci encore
re,
A te relire
Dan
Pour moi, LINE10 signifie que je voudrais que la macro continue sont exécution à partir de la 10ème ligne. (celle qui commence par ' poursuivre si date OK.)
Mais je souçonne que pour cela je dois mettre autre chose sur cette ligne pour qu'elle soit reconnu par l'instruction goto... !!! ???
La vie est dur..
Bruno
re,
Ok j'ai compris là...
Pas besoin de LINE...
Utilise seulement cette unique instruction et sans la variable "d"
If CDate(Sheets("Rem. Chq.").Cells(7, 15)) = 0 Then Exit SubAmicalement
Dan
PS :A noter que les trois instructions suivantes peuvent être celle-ci
Sheets("Vers Esp").Unprotect
Sheets("Centralisation").Unprotect
Sheets("Récap Saisie (2)").Unprotectet à la fin de ta macro
Range("E4").FormulaR1C1 = "=NOW()"
Sheets("Rem. Chq.").Protect
Sheets("Centralisation").Protect
Sheets("Récap Saisie (2)").ProtectDan
milles merci,
j'adore quand on peux simplifier et que cela reste compréhensible par un néophite.
@+ sans doute
Amicalement
Bruno