Effectuer une opération répétitive sur plusieurs feuilles

[Magic_Doctor]

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.

 

[tbft]

Re : Effectuer une opération répétitive sur plusieurs feuilles

bonjour

as tu essayé d'activé la feuille avant de travailler dessus?

 

[job75]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Bonjour Magic Doctor, tbft,

Il est parfaitement inutile d'activer les feuilles, comme c'est presque toujours le cas en VBA.

Par contre il faut réinitialiser pour chaque feuille la variable plage => Nothing après usage :

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
For Each cel In Worksheets(i).UsedRange
'...
'...
'...
Next cel
On Error Resume Next
ThisWorkbook.Names("Zone" & i).Delete
plage.Name = "Zone" & i
Set plage = Nothing 'réinitialisation
Next i

End Sub

A+

 

[tbft]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Coucou

Merci pour l'info job75...
Mais quand est il nécessaire d'activer les feuilles??

 

[job75]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Re,

Mais quand est il nécessaire d'activer les feuilles??

Presque jamais, sauf quand on veut afficher une feuille bien déterminée.

Pareil pour les Select sur les plages de cellules...

A+

 

[tbft]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Merci beaucoup Job75

 

[Magic_Doctor]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Bonjour job, tbft,

¡Caramba! Mais c'est bien sour !!!
Il fallait vider la "plage" avec l'énigmatique "= Nothing". Pourquoi énigmatique, car il n'est pas toujours très clair quand il est nécessaire ou pas de "vider" une plage.
En revanche je n'ai pas bien compris ce que tbft m'a demandé :

as tu essayé d'activé la feuille avant de travailler dessus?

En tout cas ENCORE merci job pour tes conseils éclairés.

Bonne fin d'après-midi à tous.

 

[Magic_Doctor]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Re,

Job, concernant ma question au sujet de ce que tbft me demandait, nos posts se sont croisés.

 

[job75]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Re,

il n'est pas toujours très clair quand il est nécessaire ou pas de "vider" une plage.

Une variable Range, et plus généralement une variable Object, contient la valeur Nothing quand on ouvre le fichier.

Ensuite, si elle n'est pas mémorisée (déclaration Public ou Dim en haut de la feuille de code), elle reprend la valeur Nothing a la fin de la macro.

Pendant l'exécution de la macro, comme toute variable, elle contient la dernière valeur calculée, donc attention dans les boucles...

A+

 

[Magic_Doctor]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Merci job pour ton explication, c'est maintenant plus clair.

 

[Staple1600]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Bonjour au fil et à ses protagonistes

Ma vision de l'histoire
Et on lance mainproc

Private Sub opfeuille(s As Byte)
Dim c As Range
'ici code à effectuer sur les feuilles
For Each c In Worksheets(s).UsedRange
c.Borders.LineStyle = 1 ' ici pour test
Next c
End Sub

Sub mainproc()
Dim i As Byte
For i = 1 To 3
opfeuille i
Next i
End Sub

On peut aussi l'écrire comme ça:

Sub mainproc()
opfeuille 1
opfeuille 2
opfeuille 3
End Sub

 

[job75]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Bonjour Jean-Marie, heureux de te croiser 🙂

Le test :

If c.Borders.LineStyle = 1 Then

fonctionne bien si les 4 bordures d'une cellule sont absolument identiques, sinon il faut tester chacune des 4.

PS : tu seras avec nous le 26/11 dans la Dombes ? (Merci Brigitte pour le la)

A+

 

[Staple1600]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Bonjour job75 😉

J'ai mis ce c.Border.LineStyle=1 comme j'aurai pu mettre c.Font.Bold=True
(C'était juste pour tester ma proposition et voir si elle était fonctionnelle visuellement)

J'avions point mis de If et de Then d'ailleurs 😉

 

[job75]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Re,

Pour info, Magic Doctor fait une boucle sur la macro donnée sur ce fil :

https://www.excel-downloads.com/threads/tronquer-activesheet-usedrange.172150/

A+

 

[Staple1600]

Re : Effectuer une opération répétitive sur plusieurs feuilles

Re

Humm, les joies du multipostage...

Donc finalement, avec des deux fils, la question est finalement résolue alors ?