Voici ma question:
Je rentre sur une cellule (A1) un numéro au hazard.
J'ai créé une macro qui va, entre autre, créer une nouvelle feuille qui portera comme nom la valeure inscrite dans la cellule A1.
Comment interrompre la macro si et seulement si une feuille portant comme nom la valeur inscrite en A1 éxiste déjà ?
Merci par avance!
Mathieu
Etudiant Management et gestion des entreprise
Spécialité Ingénierie Economique
Grenoble.
Une première solution serait d'utiliser la gestion des erreurs
On error resume next
activesheet.name = ...
if err() then exit sub
Cependant, à mon avis, une meilleure idée serait de créer une fonction qui teste si la feuille existe
Function Feuille_Existe(Nom_Feuille As String) As Boolean
Dim Feuille As Object
For Each Feuille In ActiveWorkbook.Sheets
If UCase(Feuille.Name) = UCase(Nom_Feuille) Then
Feuille_Existe = True
Exit Function
End If
Next Feuille
End Function