UNE MACRO POUR FAIRE LES COMPTES ENTRE AMIS

Signaler
Messages postés
6
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
14 mai 2007
-
Messages postés
2
Date d'inscription
mercredi 29 septembre 2004
Statut
Membre
Dernière intervention
5 août 2017
-
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

Messages postés
2
Date d'inscription
mercredi 29 septembre 2004
Statut
Membre
Dernière intervention
5 août 2017

Merci pour le commentaire
Messages postés
6
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
14 mai 2007

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 ...