Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

  • Initiateur de la discussion Initiateur de la discussion pascal21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pascal21

XLDnaute Barbatruc
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
 
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
 
Re : comment faire pour effacer plusieurs plages dans plusieurs feuilles identiques

Bonjour Pascal21

Une solution:

Code:
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 🙂🙂
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
969
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…