XL 2019 Création des nouvelles feuille en VBA par rapport à une liste qui évolue

  • Initiateur de la discussion Initiateur de la discussion Optimal
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Optimal

XLDnaute Junior
Bonjour à tous.

J'ai une macro qui me permet de créer des feuilles par rapport à une liste :

Sub ajout_feuilles()
Dim nom As String, a As Range
For Each a In Range("liste")
nom = a.Value
If nom <> "" Then
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom

End If

Next a
End Sub

Si je rajoute des éléments dans ma liste comment faire pour vérifier si la feuille existe déjà et dans ce cas passer à la suite ?

Merci


Gilles
 
Solution
Bonjour Optimal
A tester:
VB:
Function feuille_existe(nom)
feuille_existe = False
On Error Resume Next
   Set s = Sheets(nom)
   If Err.Number = 0 Then feuille_existe = True
On Error GoTo 0
End Function
Sub ajout_feuilles()
Dim nom As String, a As Range
For Each a In Range("liste")
nom = a.Value
 If Not feuille_existe(nom) And nom <> "" Then
   Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = nom
 End If
Next a
End Sub
Bonjour Optimal
A tester:
VB:
Function feuille_existe(nom)
feuille_existe = False
On Error Resume Next
   Set s = Sheets(nom)
   If Err.Number = 0 Then feuille_existe = True
On Error GoTo 0
End Function
Sub ajout_feuilles()
Dim nom As String, a As Range
For Each a In Range("liste")
nom = a.Value
 If Not feuille_existe(nom) And nom <> "" Then
   Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = nom
 End If
Next a
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
153
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
7
Affichages
163
Réponses
4
Affichages
243
Retour