Excel : vérifier l'existence d'une

Question

Je voudrais vérifier si, dans un classeur excel, une feuille précise (avec un nom défini) existe pour :
si oui, aller dans une cellule précise
si non, la créer

pelw · Answer

Essaye ceci :

Dim sWsh As String
Dim bWsh As Boolean
Dim oWsh As Worksheet

'-> Indiquer ici la feuille recherchée
sWsh = "MaFeuille"

'Parcourir les feuilles existantes
For Each oWsh In ActiveWorkbook.Worksheets
   If oWsh.Name = sWsh Then
      bWsh = True
      Exit For
   End If
Next

If bWsh Then 'La feuille recherchée existe
   'Sélectionner la feuille
   Worksheets(sWsh).Select
   'Sélectionner la cellule A1
   ActiveSheet.Range("A1").Select
Else 'La feuille recherchée n'existe pas
   'Ajouter une nouvelle feuille à la suite des feuilles existantes
   ActiveWorkbook.Worksheets.Add , Worksheets(Worksheets.Count)
   'Renommer la nouvelle feuille
   Worksheets(Worksheets.Count).Name = sWsh
End If

@+

pelw

Excel : vérifier l'existence d'une

1 réponse

Discussions similaires