Magic_Doctor
XLDnaute Barbatruc
Bonjour,
Dans mon classeur j'ai 5 feuilles.
Dans les 3 1ères (et uniquement dans les 3 1ères) je veux réaliser une opération, mais toujours la même quelle que soit l'une des 3 1ères feuilles.
J'ai tenté ainsi :
Sub OpFeuilles()
Dim i As Byte, n As Name, cel As Range, plage As Range, nbfeuille As Byte
nbfeuille = Worksheets.Count - 2 'Les 2 dernières feuilles sont exclues
For i = 1 To nbfeuille
Worksheets(i).Select
For Each cel In Worksheets(i).UsedRange
.
.
.
Next cel
On Error Resume Next
ThisWorkbook.Names("Zone" & i).Delete
plage.Name = "Zone" & i
Next i
End Sub
Et bien, ¡Caramba! ça ne marche pas, mais pas du tout, sauf pour la 1ère feuille.
Où me suis-je lamentablement planté.
Merci pour me le dire.
Dans mon classeur j'ai 5 feuilles.
Dans les 3 1ères (et uniquement dans les 3 1ères) je veux réaliser une opération, mais toujours la même quelle que soit l'une des 3 1ères feuilles.
J'ai tenté ainsi :
Sub OpFeuilles()
Dim i As Byte, n As Name, cel As Range, plage As Range, nbfeuille As Byte
nbfeuille = Worksheets.Count - 2 'Les 2 dernières feuilles sont exclues
For i = 1 To nbfeuille
Worksheets(i).Select
For Each cel In Worksheets(i).UsedRange
.
.
.
Next cel
On Error Resume Next
ThisWorkbook.Names("Zone" & i).Delete
plage.Name = "Zone" & i
Next i
End Sub
Et bien, ¡Caramba! ça ne marche pas, mais pas du tout, sauf pour la 1ère feuille.
Où me suis-je lamentablement planté.
Merci pour me le dire.