Erreur 424

Bonjour

J'ai un code pour effacer des cellules.

Sub EffaceTout()
Application.ScreenUpdating = False

Sheets("Index").Range("B5:B1800, j5:j1800").ClearContents.Range("i5").Select
Sheets("path").Range("B5:B1800").ClearContents.Range("i5").Select
Sheets("lienCantons").Range("B5:D1800").ClearContents.Range("i5").Select

Application.EnableEvents = True
End Sub

Je voudrais que dans chaque feuille la cellule sélectionner est "I5" donc j'ai mis en fin de chaque

ligne:

.Range("i5").Select

erreur 424?

Pourriez vous me dire ou est l'erreur

Merci

Max

Bonjour Valmax

Tu peux faire comme ceci:

With sheets("Index")

.Range("B5:B1800, j5:j1800").ClearContents

.range("I5").select

end with

Bonjour Max,

sélectionner la cellule d'une feuille n'est possible que sur la feuille active ➯ on est obligé de la sélectionner avant.

Sub EffaceTout()
  Application.ScreenUpdating = False
  Worksheets("lienCantons").Select: [B5:D1800].ClearContents: [I5].Select
  Worksheets("path").Select: [B5:B1800].ClearContents: [I5].Select
  Worksheets("Index").Select: [B5:B1800, J5:J1800].ClearContents: [I5].Select
  Application.EnableEvents = True
End Sub

dhany

Bonjour Valmax

Tu peux faire comme ceci

With sheets("Index")

.Range("B5:B1800, j5:j1800").ClearContents

.range("I5").select

end with

idem pour les autres

Cordialement

Bonjour ddetp88,

ton .Range("I5").Select de la feuille "Index" ne peut marcher que si cette feuille est la feuille active !

➯ si une autre feuille est active, t'as un plantage assuré !

dhany

Bonjour Dhany

Je te remercie Nickel

Je te souhaite de bonne fêtes et jesper à bientôt sur le net

Max

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne fêtes à toi aussi !

dhany

Bonjour Dhany,

Tu as entièrement raison

Un oubli de ma part car j'ai tapé le code directement

Le code serait donc:

With sheets("Index")
.select
.Range("B5:B1800, j5:j1800").ClearContents
.range("I5").select
end with

Bon réveillon aussi

Amicalement

ddfpt88