Excel Macro Conditions

Résolu/Fermé
evevdll Messages postés 81 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 13 décembre 2009 - 23 juin 2009 à 20:57
evevdll Messages postés 81 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 13 décembre 2009 - 4 juil. 2009 à 21:59
Bonjour,
J'ai un classeur qui contient une feuille nommée devis.
j'ai réussi à créer une macro qui copie la feuille devis et colle son double avant cette feuille devis et la nomme en récupérant la valeur qui se trouve dans la cellule C8 de la feuille devis (ex : ED09005).
Cependant, si le nom de la nouvelle feuille est déjà utilisé dans mon classeur, j'ai un bug. J'aimerai qu'une vérification se fasse automatiquement en boucle afin de savoir si ce nom existe déjà et si c'est le cas, qu'il ajoute 1 à ce nom (ex : ED09006) et ensuite que le reste de ma macro reprenne normalement.
J'espère m'être fait comprendre car je préfère ne pas devoir, si c'est possible, mettre mon classeur en ligne.
(je bidouille encore pas mal avec les macros)
Je vous remercie de bien vouloir m'aider.
Eve
A voir également:

2 réponses

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
24 juin 2009 à 00:01
Bonsoir,

pas besoin de boucle, c'est plus simple de faire une gestion d'erreur et agir en conséquence.
ex:
    nomf = "feuil4"
    On Error Resume Next
    l = Len(Worksheets(nomf).Name) ' si la feuille existe tu as la longueur de son nom, sinon l est vide
    On Error GoTo 0
    If Not (l > 0) Then nomf = nomf & "-1"

eric
0
evevdll Messages postés 81 Date d'inscription vendredi 9 novembre 2007 Statut Membre Dernière intervention 13 décembre 2009 51
4 juil. 2009 à 21:59
Bonsoir,
Merci Eric
Evelyne
0