> Tous les forums > Forum Bureautique
 Vba effacer une plage de cellules dans plusieurs feuillesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
noe2008
  Posté le 21/01/2019 @ 16:03 
Aller en bas de la page 
Petit astucien

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

Publicité
noe2008
 Posté le 21/01/2019 à 16:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

poussebois
 Posté le 21/01/2019 à 16:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

poussebois
 Posté le 21/01/2019 à 17:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci infiniment poussebois

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

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

Sujets relatifs
Regrouper plusieurs feuilles de calcul dans un seul dossier
insérer calendrier dans plusieurs cellules
recherche dans une chaîne comme dans une plage de cellules
Modifier le nom d'un onglet dans plusieurs cellules
saisie matricielle d'une série de valeurs dans une plage de cellules
excel: effacer le contenu ds plusieurs feuilles
Récupérer des cellules réparties sur plusieurs feuilles
Calculer date en fonction d'une valeur dans une plage de cellules
utiliser résultat formule dans réf. plage cellules
Supprimer x caractères dans plusieurs cellules
Plus de sujets relatifs à Vba effacer une plage de cellules dans plusieurs feuilles
 > Tous les forums > Forum Bureautique