comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

[pascal21]

bonjour
je cherche comment faire en VBA à selectionner plusieurs feuilles et à effacer le contenu de plusieurs plages
les feuilles peuvent changer de nom, je ne peux les sélectionner que par leur numéro de feuille ex 'feuil2'
les plages à effacer sont b7:b41 f7:f41 i7k:41
j'ai fais un essai tout simple mais ça ne fonctionne pas
merci de votre aide

 

[Pierrot93]

Re : comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

Re,

tu as déjà un fil d'ouvert à ce sujet, auquel tu n'as pas donné suite d'ailleurs....
https://www.excel-downloads.com/threads/appeler-plusieurs-feuilles-par-leur-numero.168555/

@+

 

[pascal21]

Re : comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

zut
merci pierrot je pensais que personne n'y étit retourné et je ne suis pas allé y voir
désolé
je vais regarder si je trouve la réponse

 

[Pierrot93]

Re : comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

Re,

oui, pas de problème, le mieux est quand même de suivre les discussions ouvertes, sinon à quoi bon...

 

[pierrejean]

Re : comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

Bonjour Pascal21

Une solution:

Sub test()
Set x = Application.Union(Feuil1.Range("b7:b41"), Feuil1.Range("f7:f41"), Feuil1.Range("i7:k41"))
Set y = Application.Union(Feuil2.Range("b7:b41"), Feuil2.Range("f7:f41"), Feuil2.Range("i7:k41"))
Set Z = Application.Union(Feuil3.Range("b7:b41"), Feuil3.Range("f7:f41"), Feuil3.Range("i7:k41"))
x.ClearContents
y.ClearContents
Z.ClearContents
End Sub

Edit: Salut Pierrot 🙂🙂

 

[Pierrot93]

Re : comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

Re,
bonjour PierreJean🙂 et bravo, sans "select" et sans boucle... voir l'autre fil🙂
https://www.excel-downloads.com/threads/appeler-plusieurs-feuilles-par-leur-numero.168555/

 

[pascal21]

Re : comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

bonsoir pierejean
merci pour ce bout de code
je pensais quand même que c'était plus simple que ça
je vais essayer
ça fonctionne parfaitement
merci