XL 2016 vba boucle de suppression sur codename

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Juillet 2021

• #2

Bonjour Hervé,
Quand on créé une feuille le Codename est unique et ne change jamais.
Si on ajoute des feuilles et qu'on supprime, à chaque fois un nouveau Codename est crée.
Si bien que la liste des Codename peut avoir "des trous", par ex Sheets(6) existe mais pas Sheets(5).
Il vaut mieux donc passer par la scrutation de toutes les feuilles qui lui ne s'intéresse pas au Codename, avec :

VB:

Sub Supression2()
Application.DisplayAlerts = False
On Error GoTo Fin
For Each Feuille In Worksheets
    If Mid(Feuille.CodeName, 6) > 10 Then Feuille.Delete
Next Feuille
Exit Sub
Fin:
MsgBox Feuille & " n'existe pas "
End Sub

En PJ un ex avec trois boutons, un pour créer 10 feuilles, un pour votre macro, un pour la mienne.

 

Pièces jointes

• Hervé.xlsm

  25.6 KB · Affichages: 6

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Juillet 2021

• #3

Bonjour.
Non, je ne sais pas. Il faudrait que je connaisse la valeur de Sheets(i).CodeName. Mettez un espion dessus. Assez probable quand même qu'il y ait autre chose que des chiffres à partir de sa position 6.
Peut être serait mieux If Val(Mid(Sheets(i).CodeName, 6)) > 10 Then Sheets(i).Delete

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Juillet 2021

• #4

Bonjou Hervé, sylvanu, Bernard,,

Perso j'aurais écrit :

VB:

Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
    If Val(Mid(Sheets(i).CodeName, 6)) > 10 Then Sheets(i).Delete
Next i

A+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Juillet 2021

• #5

salut à tous

Merci pour votre aide, job, j'en étais arrivé à la même conclusion, transformer en val et boucler à l'envers comme pour les lignes

a plus

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 25 Juillet 2021

• #6

Bonjour Hervé
Bonjour le Fil ,le Forum
Jean marie

 

Vote positif 0 Vote négatif