Controle existence onglet
Résolu
shaar
-
shaar -
shaar -
Bonjour,
Je travaille actuellement sous excel et j'aimerais pouvoir supprimer un certains nombre d'onglet grâce à une macro. Voici le fonctionnement de la macro :
Le fichier excel contient un certains nombres de feuilles qui évoluent dans le temps. Avec une première macro, je créé un certain nombre d'onglet dont les noms sont dans une liste. Je ne crée pas autant de feuille que de nom dans la liste mais en prend uniquement certains dans cette liste.
Je souhaite pouvoir supprimer ensuite les onglets que j'ai crée. Voici la macro :
Sub SuppressionsOnglet()
DernLigne = Sheets("Rapport").Range("AX" & Rows.Count).End(xlUp).Row
Application.DisplayAlerts = False
a = 1
'Analyse des onglets
For i = 1 To DernLigne
NomAg = Sheets("Rapport").Cells(i, 50)
For j = 1 To Worksheets.Count + 1
If Sheets(j).Name = NomAg Then
Sheets(NomAg).Delete
Else
End If
Next j
Next i
Application.DisplayAlerts = True
Malheureusement, j'ai systématiquement un message d'erreur quand un nom de la liste n'est pas un nom d'onglet. Or, d'après la "logique", la condition if devrait m'empecher de trouver ce genre de conflit.
Merci de votre aide,
Cordialement,
Je travaille actuellement sous excel et j'aimerais pouvoir supprimer un certains nombre d'onglet grâce à une macro. Voici le fonctionnement de la macro :
Le fichier excel contient un certains nombres de feuilles qui évoluent dans le temps. Avec une première macro, je créé un certain nombre d'onglet dont les noms sont dans une liste. Je ne crée pas autant de feuille que de nom dans la liste mais en prend uniquement certains dans cette liste.
Je souhaite pouvoir supprimer ensuite les onglets que j'ai crée. Voici la macro :
Sub SuppressionsOnglet()
DernLigne = Sheets("Rapport").Range("AX" & Rows.Count).End(xlUp).Row
Application.DisplayAlerts = False
a = 1
'Analyse des onglets
For i = 1 To DernLigne
NomAg = Sheets("Rapport").Cells(i, 50)
For j = 1 To Worksheets.Count + 1
If Sheets(j).Name = NomAg Then
Sheets(NomAg).Delete
Else
End If
Next j
Next i
Application.DisplayAlerts = True
Malheureusement, j'ai systématiquement un message d'erreur quand un nom de la liste n'est pas un nom d'onglet. Or, d'après la "logique", la condition if devrait m'empecher de trouver ce genre de conflit.
Merci de votre aide,
Cordialement,
A voir également:
- Controle existence onglet
- Raccourci rouvrir onglet fermé - Guide
- Fan controle - Télécharger - Optimisation
- Controle parental disney plus - Guide
- Controle parental sur pc - Guide
- Edge nouvel onglet google ✓ - Forum Microsoft Edge / Internet Explorer
