XL 2016 VBA effacer une plage de cellule

Sarah_f · 9 Septembre 2021

Bonjour,

Je souhaiterai créer une VBA afin d'effacer le contenu des cellules "A10:T1048576"
Auriez vous un code VBA ?

Merci d'avance

blord · 9 Septembre 2021

Bonjour à tous,
Juste pour ajouter mon grain de sel :

ThisWorkbook.Worksheets("NomDeTaFeuille").Range("A10:T1048576").ClearContents

Il n'est pas requis de sélectionner les cellules avant de les effacer
Le ThisWorkbook permet de s'assurer que l'on travaille dans le bon classeur
Le Worksheets("NomDeTaFeuille") permet de s'assurer que l'on efface les cellules de la bonne feuille

Bonne journée !

Etoto · 9 Septembre 2021

Hello,

VB:

Range("Tes cellules").Select
Selection.ClearContents

non ?

Sarah_f · 9 Septembre 2021

Super ça marche Merci bcp !

Etoto · 9 Septembre 2021

Sarah_f à dit:
Super ça marche Merci bcp !

De rien et désolé, j'ai oublié de te souhaiter la bienvenue. Juste, oublies pas de marquer le fil en résolu grâce au post 2.

@+

blord · 9 Septembre 2021

Bonjour à tous,
Juste pour ajouter mon grain de sel :

ThisWorkbook.Worksheets("NomDeTaFeuille").Range("A10:T1048576").ClearContents

Il n'est pas requis de sélectionner les cellules avant de les effacer
Le ThisWorkbook permet de s'assurer que l'on travaille dans le bon classeur
Le Worksheets("NomDeTaFeuille") permet de s'assurer que l'on efface les cellules de la bonne feuille

Bonne journée !

Etoto · 10 Septembre 2021

blord à dit:
Il n'est pas requis de sélectionner les cellules avant de les effacer

Le ThisWorkbook permet de s'assurer que l'on travaille dans le bon classeur

Le Worksheets("NomDeTaFeuille") permet de s'assurer que l'on efface les cellules de la bonne feuille

Oui c'est vrai, ma macro supprimera les cellules de la feuille active, après va savoir si s'est un défaut ou un avantage pour @Sarah_f

Eric C · 10 Septembre 2021

Bonjour le forum
Bonjour Sarah_f, bonjour Etoto, bonjour blord

Je rejoins blord dans son raisonnement ainsi que les grands de ce forum qui martèlent qu'il faut éviter au maximum les "select" afin d'optimiser le code et la rapidité...

Bonne journée à toutes & à tous
@+ Eric c

Etoto · 10 Septembre 2021

Hello Eric

Eric C à dit:
il faut éviter au maximum les "select" afin d'optimiser le code et la rapidité...

C'est sûr !! Je savais qu'il y'a des codes plus "performant" que celui-ci mais n'étant pas pro, je préfère proposé un code dont je suis certain qu'il fonctionne, mais si vous avez des codes meilleurs au miens, je ne demande que ça, en plus ça va me former.

Eric C · 10 Septembre 2021

Re le fil

Je suis moi aussi, loin d'être un pro. Je me suis "amusé" avec VBA il y a bien longtemps pour me simplifier les tâches. Ton code peut être simplifié par :

VB:

Range("Tes cellules").ClearContents

Bonne journée

Etoto · 10 Septembre 2021

Eric C à dit:
Re le fil

Je suis moi aussi, loin d'être un pro. Je me suis "amusé" avec VBA il y a bien longtemps pour me simplifier les tâches. Ton code peut être simplifié par :

VB:

Range("Tes cellules").ClearContents

Bonne journée
Regarde la pièce jointe 1115225

Oui c'est vrai, j'avais hésité a le prendre mais va savoir pourquoi, j'ai voulu suivre l'enregistreur de macros.

Sarah_f · 10 Septembre 2021

Merci à tous pour vos réponses !

XL 2016 VBA effacer une plage de cellule

Sarah_f

Guest

blord

Etoto

XLDnaute Barbatruc

Sarah_f

Guest

Etoto

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Etoto

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Sarah_f

Guest

Discussions similaires

XL 2016 VBA effacer une plage de cellule

Sarah_f

Guest

XLDnaute Barbatruc

Sarah_f

Guest

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Sarah_f

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency