G4industri
Messages postés6Date d'inscriptionmardi 18 octobre 2005StatutMembreDernière intervention14 mai 2007
-
13 avril 2007 à 13:11
cs_maisai
Messages postés2Date d'inscriptionmercredi 29 septembre 2004StatutMembreDerniè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.
cs_maisai
Messages postés2Date d'inscriptionmercredi 29 septembre 2004StatutMembreDernière intervention 5 août 2017 17 avril 2007 à 18:06
Merci pour le commentaire
G4industri
Messages postés6Date d'inscriptionmardi 18 octobre 2005StatutMembreDernière intervention14 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 ...
17 avril 2007 à 18:06
13 avril 2007 à 13:11
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 ...