UNE MACRO POUR FAIRE LES COMPTES ENTRE AMIS

G4industri Messages postés 6 Date d'inscription mardi 18 octobre 2005 Statut Membre Dernière intervention 14 mai 2007 - 13 avril 2007 à 13:11
cs_maisai Messages postés 2 Date d'inscription mercredi 29 septembre 2004 Statut Membre Dernière intervention 5 août 2017 - 17 avril 2007 à 18:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/42214-une-macro-pour-faire-les-comptes-entre-amis

cs_maisai Messages postés 2 Date d'inscription mercredi 29 septembre 2004 Statut Membre Dernière intervention 5 août 2017
17 avril 2007 à 18:06
Merci pour le commentaire
G4industri Messages postés 6 Date d'inscription mardi 18 octobre 2005 Statut Membre Dernière intervention 14 mai 2007
13 avril 2007 à 13:11
Un petit bug ligne 28. Lors de la suppression de l'onglet [remboursements], il a du mal parfois à continuer la boucle.
Je te propose donc de rajouter avant le EndIf un exit.
(.......)
ActiveWorkbook.Sheets(i).Delete
Application.DisplayAlerts = True

Exit For
end if

(.....)

Ainsi dés que cela est supprimé, on passe à autre chose.
J'ai mis 8/10 car effectivement c'est trés utile dans une boîte ...