Vérifier si une feuille excel existe déjà ou pas.Résolu

Question

Bonjour &#224; tous,

Voici ma question:
Je rentre sur une cellule (A1) un num&#233;ro au hazard.
J'ai cr&#233;&#233; une macro qui va, entre autre, cr&#233;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 &#233;xiste d&#233;j&#224; ?

Merci par avance! 

Mathieu
Etudiant Management et gestion des entreprise
Sp&#233;cialit&#233; Ing&#233;nierie Economique
Grenoble.

Pierre_faucon · Accepted Answer

Bonjour


 


Une premi&#232;re solution serait d'utiliser la gestion des erreurs


On error resume next
   activesheet.name = ...
   if err() then exit sub

Cependant, &#224; mon avis, une meilleure id&#233;e serait de cr&#233;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


Cela convient-il?

Pierre Fauconnier

Mathieu_IUPIE · Answer

Bonjour Pierre,

Je tiens &#224; vous remercier pour cette r&#233;ponse aussi rapide qu'efficace.

Merci beaucoup.

Mathieu
Etudiant Management et gestion des entreprise
Sp&#233;cialit&#233; Ing&#233;nierie Economique
Grenoble.