Vba effacer une plage de cellules dans plusieurs feuilles

Vba effacer une plage de cellules dans plusieurs feuilles Sujet résolu

Ajouter un message à la discussion

noe2008

Posté le 21/01/2019 @ 16:03

Salut mes amis

pouvez vous me corriger cette macro qui a pour objectif d'effacer le contenu de la plage de cellules ("A1:AB74") des feuilles nommées de "F1" à "F18" :

Sub Macro1()

Sheets(Array("F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12", _

"F13", "F14", "F15", "F16", "F17", "F18")).Range("A1:AB74").ClearContents

Sheets("1").Select

End Sub

merci infiniment

noe2008

Posté le 21/01/2019 à 16:22

Je tiens à ajouter que les feuilles F1 à F18 sont masquées

poussebois

Posté le 21/01/2019 à 16:39

Grand Maître astucien

Bonjour ,

Sub Macro1()

Sheets(Array("F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12", "F13", "F14", "F15", "F16", "F17", "F18")).Select
Range("A1:AB74").Select
Selection.ClearContents

End Sub

@ +

noe2008

Posté le 21/01/2019 à 16:49

les feuilles F1 à F18 sont masquées le control .select ne marche pas un debogage apparait

poussebois

Posté le 21/01/2019 à 17:05

Grand Maître astucien

Sheets("F1").Range("A1:AB74").Value = ""

Sheets("F2").Range("A1:AB74").Value = ""

.............................................................

Sheets("F18").Range("A1:AB74").Value = ""

Pas trouvé mieux que d'écrire 18 lignes, mais ça marche avec les feuilles masquées !

noe2008

Posté le 21/01/2019 à 17:12

Merci infiniment poussebois

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

94,99 €

Adobe Creative Cloud pour la photo (Adobe Photoshop CC et Lightroom) à 94,99 €
Valable jusqu'au 30 Mai

Amazon propose actuellement le code d'activation pour Adobe Creative Cloud à 94,99 € alors qu'on le trouve ailleurs à 140 € environ. Vous pourrez ainsi accéder pendant 1 an aux meilleurs outils de photographie du monde, dont Adobe Photoshop et Lightroom (mobile, web et pour poste de travail) ainsi qu'à une vaste bibliothèque de didacticiels vidéo pour maitriser ces logiciels ainsi que 20 Go de stockage dans le cloud. Cette offre est valable pour MAC et pour PC.

> Voir l'offre

153,26 €

LEGO 10274 Creator Expert ECTO-1 SOS Fantômes à 153,26 € livré
Valable jusqu'au 30 Mai

Amazon Allemagne fait une promotion sur le LEGO 10274 Creator Expert ECTO-1 SOS Fantômes qui passe à 144,19 € (avec la TVA ajustée). Comptez 9,07 € pour la livraison en France soit un total de 153,26 € livré au lieu de 199,99 €. Idéal pour les fans de SOS Fantômes et les passionnés de LEGO, ce modèle ECTO propose des heures de plaisir et une expérience de construction enrichissante pour les adultes. Le véhicule ECTO-1, qui mesure plus de 22,5 cm de haut, 47 cm de long et 16,5 cm de large, déborde de détails authentiques. Le set comporte 2352 pièces.

Vous pouvez utiliser votre compte Amazon FR sur Amazon DE. Pas de douane.

> Voir l'offre

155,90 €

SSD Corsair Force MP600 Pro XT 1 To (NVMe M.2 Gen4, 7100/5800 Mo/s) à 155,90 €
Valable jusqu'au 29 Mai

RueDuCommerce fait une promotion sur le SSD Corsair Force MP600 Pro XT 1 To (NMVe M.2 Gen4) qui passe à 155,90 € alors qu'on le trouve ailleurs à partir de 190 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen4 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 7100 Mo/s en lecture séquentielle et jusqu’à 5800 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de 5 ans. Il est accompagné d'un dissipateur thermique.

Il n'y a pas mieux comme SSD NVMe à l'heure actuelle !

> Voir l'offre