Excel Macro Conditions
Résolu
evevdll
Messages postés
81
Date d'inscription
Statut
Membre
-
evevdll Messages postés 81 Date d'inscription Statut Membre -
evevdll Messages postés 81 Date d'inscription Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 7.0 Office 2002 et 2007
2 réponses
-
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 -
