Bonjour,
J'essaie, via une macro, de supprimer plusieurs plages nommées dans différentes feuilles de mon fichier.
Pour cela, j'utilise une boucle.
Or de la boucle (sur juste une feuille), le code fonctionne très bien.
Cependant dès que je l'intègre dans ma boucle, j'ai un message d'erreur.
Voici mon code :
Sub boucle()
Dim f1 As Worksheet
Dim r1 As Range, r2 As Range, r3 As Range
For Each f1 In Worksheets
If ActiveSheet.Name <> "Données" Then
Set r1 = Range("Semestre1")
Set r2 = Range("Trimestre3")
Set r3 = Range("Bilan")
Union(r1, r2, r3).Delete
End If
Next f1
End Sub
Merci d'avance pour votre aide,
Maxime