Problème code vba Sheets, Range et ClearContents

[elgringo123456]

Bonjour,

Je me permets de vous solliciter sur le problème suivant :

En utilisant le code :
Sheets("Import Apollo").Range(Cells(3, 1), Cells(4000, 7)).ClearContents

J'obtiens une erreur si je suis pas positionné sur cet onglet "Erreur d'éxecution 1004"

Par contre ce code fonctionne si je suis positionné sur l'onglet.
Pourquoi ne peut on pas utliser ce code sans devoir être positionné sur cet onglet.
Par ailleurs, je souhaiterais éviter d'ajouter une ligne Sheets("Import Apollo").Select.

Merci d'avance de votre aide,
Cordialement.
ElGringo123456

😕

 

[Pierrot93]

Re : Problème code vba Sheets, Range et ClearContents

Bonjour ElGringo

modifie peut être ainsi :

With Sheets("Import Apollo")
    [COLOR="red"][B].[/B][/COLOR]Range([COLOR="red"][B].[/B][/COLOR]Cells(3, 1), [COLOR="Red"][B].[/B][/COLOR]Cells(4000, 7)).ClearContents
End With

Sans précision du nom de la feuille, "cells" s'applique à la feuille active, utilise un bloc d'instructions "With" et fait précéder d'un point les instructions devant s'appliquer à la feuille en question...

bon après midi
@+

Edition : bonjour CC, à noter tu auras le même souci avec les "cells"...

 

[Pierrot93]

Re : Problème code vba Sheets, Range et ClearContents

Re,

on peut également simplifier le code ainsi :

Sheets("Import Apollo").Range("A3").Resize(3998, 7).ClearContents

A voir...

 

[elgringo123456]

Re : Problème code vba Sheets, Range et ClearContents

Merci beaucoup de votre aide et avec quelle réactivité !!!!!!