Bonjour,

je voudrais une petite macro pour effacer tous les onglets sauf les 2 premiers.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub test()
Dim nombre As Long
Dim itemtablo As String
 
nombre = Sheets.Count
 
   ReDim tablo(nombre) As String
    For j = 3 To nombre
        itemtablo = Sheets(j).Name
        tablo(j) = itemtablo
    Next j
      Sheets(itemtablo).Activate
     Sheets(Array(tablo)).Select
     ActiveWindow.SelectedSheets.Delete
 
End Sub
Excel me renvoie l'erreur d'éxécution 9 : l'indice n'appartient pas à la solution.
J'ai vérifié avec un msgbox, la variable itemtablo donne bien le nom de la feuille à chaque itération.

Je ne sais pas où ça coince, soit l'array ne se créé pas, soit ma commande est mal formulée.

Merci pour votre assistance