× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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
  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
  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 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

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