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

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

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 poster des messages. 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

280,78 €

Ecran PC 32 pouces incurvé Samsung C32JG56 (WQHD, 144Hz) à 280,78 € livré
Valable jusqu'au 02 Octobre

Amazon Italie fait une promotion sur l'écran PC Samsung 32 pouces incurvé C32JG52 à 266,77 € (avec la TVA ajustée). Comptez 14,01 € pour la livraison en France soit un total de 280,78 € livré alors qu'on le trouve ailleurs à partir de 400 €. Cet écran incurvé de 32 pouces offre une définition de 2560x1440 pixels et est compatible FreeSync.

> Voir l'offre

28,49 €

Jeu de société Unlock! Star Wars à 28,49 €
Valable jusqu'au 30 Septembre

Amazon fait une promotion sur le jeu de société Unlock! Star Wars qui passe à 28,49 € livré gratuitement grâce à un coupon de réduction automatiquement appliqué au produit. Plongez dans l'univers de Star Wars avec ce nouvel opus d'Unlock avec 3 aventures inédites pleines de vaisseaux, de droïdes et d’action dans l'univers culte de Star wars ! Unlock! est un jeu de cartes coopératif inspiré des escape rooms, ces salles où vous devez vous échappez en moins de 60 minutes ! L'application gratuite Unlock!, compatible avec les téléphones et tablettes Android et iOS, est nécessaire pour jouer. Elle permet d'obtenir des indices, de repérer des objets cachés, mais aussi d'entrer les codes découverts. Elle contribue également à l'ambiance avec ses musiques dédiées à chaque aventure, ses énigmes audio, ses terribles pénalités et son compte à rebours fatal ! Unlock ! vous permet de vivre cette expérience dans votre salon ! Réussirez-vous à résoudre les énigmes pour vous échapper ?

> Voir l'offre

69,99 €

Disque dur Toshiba P300 3 To à 69,99 €
Valable jusqu'au 04 Octobre

Amazon propose actuellement le disque dur Toshiba P300 3 To à 69,99 € livré gratuitement. On le trouve ailleurs à partir de 90 €. Ce disque dur interne de 3 To est SATA 6 Gbps, possède 64Mo de cache et dispose d'une vitesse de rotation de 7200 tpm.

> Voir l'offre