Supprimer contenu cellules sur plusieurs feuilles

[Tex]

Bonjour,

Je souhaite avoir une macro permettant de supprimer tout le contenu présent dans la colonne A des onglets "feuille1", "feuille2" et "feuille3" svp

Ce contenu va de la cellule 1 à la cellule 65536.

Merci pour votre aide

Tex

 

[Papou-net]

Re : Supprimer contenu cellules sur plusieurs feuilles

Bonsoir Tex,

Sans autre précision sur ton fichier, voici une macro qui reprend tes indications :

Sub MacroMultiFeuilles()
For sh = 1 To 3
  Sheets("feuille" & sh).Range("A1:A65536").Delete
Next
End Sub

Il te suffira de modifier le nom entre parenthèses, ainsi que les indices si nécessaire.

Espérant avoir répondu.

Cordialement.

 

[Tex]

Re : Supprimer contenu cellules sur plusieurs feuilles

Bonjour Papou,

Merci pour la réponse.
Je te joins le fichier en question.

En fait ce n'est pas feuille le nom de l'onglet mais : "1" , "2" , "3"

Cdlt

 

[Papou-net]

Re : Supprimer contenu cellules sur plusieurs feuilles

En fait ce n'est pas feuille le nom de l'onglet mais : "1" , "2" , "3"
Cdlt

RE

Je vois que tu as bien adapté le code. Par contre, je ne saisispas ce qui se passe : les feuilles 1 et 2 sont bien effacées, mais pas la 3 ?

Mystère à découvrir.

Cordialement.

 

[Tex]

Re : Supprimer contenu cellules sur plusieurs feuilles

J'ai trouvé sur le forum une macro qui fonctionne :

Sub remiseazero()
Sheets("1").Range("A2:A65536").ClearContents
Sheets("2").Range("A2:A65536").ClearContents
Sheets("3").Range("A2:A65536").ClearContents
End Sub

Bonne soirée

 

[Staple1600]

Re : Supprimer contenu cellules sur plusieurs feuilles

Bonsoir à tous

Papounet:
Pour lever le mystère

Sub MacroMultiFeuillesBIS()
For sh = 1 To 3
  Sheets(CStr(sh)).Columns(1)= Empty
Next
End Sub

Tex:
Tu as bien dit tout le contenu, non ?

Je souhaite avoir une macro permettant de supprimer tout le contenu présent dans la colonne A

Donc A1 aussi normalement ?

 

[Papou-net]

Re : Supprimer contenu cellules sur plusieurs feuilles

Papounet[/B]:
Pour lever le mystère

Sub MacroMultiFeuillesBIS()
For sh = 1 To 3
  Sheets(CStr(sh)).Columns(1)= Empty
Next
End Sub

RE JM,

Effectivement, j'aurais dû penser à convertir sh en chaîne, mais je ne comprends toujours pourquoi ça fonctionnait avec sh=1 et 2.

Bonne soirée.

Cordialement.

 

[job75]

Re : Supprimer contenu cellules sur plusieurs feuilles

Bonjour à tous,

mais je ne comprends toujours pourquoi ça fonctionnait avec sh=1 et 2.

Dans le fichier du post #3 on a :

Sub MacroMultiFeuilles()
For sh = 1 To 3
  Sheets(sh).Range("A2:A65536").Delete
Next
End Sub

sh est pris comme index des feuilles donc ce sont les feuilles "Feuil1" (vide) "1" et "2" qui sont traitées.

A+

 

[Papou-net]

Re : Supprimer contenu cellules sur plusieurs feuilles

Bonjour à tous,



Dans le fichier du post #3 on a :

Sub MacroMultiFeuilles()
For sh = 1 To 3
  Sheets(sh).Range("A2:A65536").Delete
Next
End Sub

sh est pris comme index des feuilles donc ce sont les feuilles "Feuil1" (vide) "1" et "2" qui sont traitées.

A+

Bonsoir job75,

Bon Dieu, mais c'est bien sûr!
Où avais-je donc la tête ?

Merci pour cette piqûre de rappel.

Cordialement.