Supprimer les données de 2 colonnes sur plusieurs feuilles en même temps

[juliette]

re-bonjour le forum...


Je souhaiterai par l'intermédiaire d'un code, supprimer les données qui se trouvent dans les colonnes E et F de toutes les feuilles en même temps…

le nombre de feuilles peut varier.


Merci de votre aide éventuelle.

Juliette

 

[herve]

bonjour

il te faut selectionner les feuilles concernées, puis les cases voulues et les effacer.

ceci devrait t'aider...

Sheets(Array("Feuil1", "Feuil2")).Select
Sheets("Feuil1").Activate
Columns("A:B").Select
Selection.ClearContents

bon courage !
@+
Hervé

 

[juliette]

bonjour Hervé...

merci de ton aide...

mais je t'avoue que je n'ai pas réussi à faire fonctionner ton code!!!

marchera t-il si ultérieurement j'ajoutai d'autres feuilles?

merci encore.

 

[herve]

juliette

ci joint un exemple de ce que je te disais

en esperant t'aider...

@+

 

[juliette]

re-coucou...

arfffff... je n'ai toujours pas réussi à la faire fonctionner

j'ai un bug!

 

[Pascal76]

salut Juliette

Essaies

For each ws in worksheets

ws.Columns("E:F").Delete Shift:=xlToLeft

next

Bon courage

Pascal

 

[herve]

slt pascal.

oui pour le code, mais ne decales tu pas les cellules vers la gauche en meme temps? Si c'est le cas, je crois que ca peut faire mal...

@+

 

[herve]

re


Pascal,
je te confirme que ton code decales les autres données...

donc, je crois, Juliette, que le code suivant devrait te plaire :


For Each Ws In Worksheets
Ws.Columns("E:F").ClearContents
Next


Cependant, il ne peut marcher avec tes cellules fusionnées...
il te faudra donc trouver un moyen de ne pas les fusionner...

par exemple ne pas fusionner les cellules et ecrire le texte dans la colonne G... (ni E ni F il serait effécé aussi...)

et la tu ne decales pas les autres données...

@+

 

[juliette]

bonsoir à vous...

j'ai attentivement suivi vos interventions et j'ai essayé d'appliquer vos conseils à la lettre...

je rencontre 2 problèmes:

- je souhaite effacer les données qu'à partir de E6

- je ne souhaite pas que cela efface les données de la feuille "sommaire".


Avez-vous une solution?


Merci encore à vous 2.

Juliette

 

[herve]

salut!

on va decidement de decouverte en decouverte...

1) as tu un nombre précis et fixe de feuille?

2) ont elle des noms spécifiques?

@+

 

[juliette]

re-salut Hervé...

oui, je sens que l'on va bientôt y arriver... lol

non, je ne peux pas te donner un nombre précis de feuille. Chaque feuille correspond à un utilisateur.
je peux donc rajouter des feuilles comme en enlever.

et effectivement, les feuilles auront des noms spécifiques.

Mais en utilisant:



For Each Sh In Worksheets
if Sh.Name <> "sommaire" then
range("E6:F65000").ClearContents
end if
next


je ne vois où est mon problème...

(faut-il déclarer Sh?)

as-tu une solution?

Merci

 

[Pascal76]

Salut juliette

Ca va ce matin ??

essaies peut-être

For Each Sh In Worksheets
if Sh.Name <> "sommaire" then
sh.range("E6:F65000").ClearContents
end if
next

Bon courage

Pascal


PS: Hervé tu as raison je n'avais pas fait attention dans lepost précédent je supprimer les colonnes au lieu des valeurs contenues dans les colonnes. OUPS

 

[juliette]

Hello tout le monde!!!

Merci (une nouvelle fois!) Pascal...

C'est exactement ça que je voulais...

Super...

 

[Pascal76]

Re Juju

Content que cela aille mais ce coup-ci Hervé a très largement contribué.

A la prochaine

Pascal

 

[juliette]

Oui,

je suis confuse...

mille excuses Hervé...

et tu as droit aussi à mes remerciements! lol