Code effacer

[apdf1]

Bonjour,

Comment peut on effacer des données sur deux feuilles en même temps. "feuil11 et feuil2".
Mon code pour une feuille est:

Range("A2:A200, C2:C200").ClearContents

Si quelqu'un à une idée je le remercie d'avance

Cordialement
Max

 

[Hippolite]

Re : Code effacer

Bonjour,
Je n' ai pas excel sous la main pour vérifier, essaie

Union(Feuil11.Range("A2:A200, C2:C200"),Feuil2.Range("A2:A200, C2:C200")).ClearContents

sinon il faut sélectionner les deux feuilles puis effacer la plage.
A+

 

[Gorfael]

Re : Code effacer

Salut apdf1 et le forum
Je ne vois pas l'utilité de vouloir faire ça sur une seule ligne ? Sans compter que je ne suis pas sûr que ce soit possible : je pense qu'il faudrait passer par des sélections, ce qui ralentirait le code, sans compter que ça multiplierait les lignes
A+

 

[Hippolite]

Re : Code effacer

Re,
Si tu veux faire cet effacement pour éviter de générer une erreur, ce serait plus simple de gérer les erreur ou de bloquer le calcul automatique ...
Peux-tu préciser la raison pour laquelle tu tiens à ce que ce soit fait simultanément sur une seule ligne
A+

 

[apdf1]

Re : Code effacer

Re,

Et merci de passé du temps sur se problème.
Pourquoi le faire simultanément et sur une ligne! Se n'est pas sur une ligne! Ou je n'ai pas compris le sens de ta phrase, mais sur la colonne "A2:A200 et la colonne D2😀200 sur deux feuille.

Mais si sa peut faire avancer je peux joindre un fichier.

@+

Max

 

[Hippolite]

Re : Code effacer

Re,
une seule ligne de code
A+

 

[laetitia90]

Re : Code effacer

bonjour tous
a mon avis il faut pas s'embeter pour si peu pour effacer 400 cellules

With Sheets("Feuil1"): .Range("A2:A200, C2:C200").ClearContents: End With
With Sheets("Feuil2"): .Range("A2:A200, C2:C200").ClearContents: End With

 

[apdf1]

Re : Code effacer

Bonjour Laetitia,

Tu est la plus forte sa marche nickel.

Merci beaucoup et bonne journée

Max

 

[FromOuterSpace]

Re : Code effacer

Bonjour à tous


Ici en transit

(Pourquoi les endives ici,laetitia 🙄 ? - il y a si peu de code )

Sub b()
Feuil1.[A2:A200, C2:C200] = Empty
Feuil2.[A2:A200, C2:C200] = Empty
End Sub

A+ avec mon pseudo habituel

JM