Help Erreur '1004'

[pad01]

Bonsoir le Forum,

Je n'arrive pas à comprendre le message d'erreur :
Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet

Elle se produit sur la ligne Range("D4").select
La programmation me semble simpliste mais je ne trouve pas de solution.

Par avance merci

 

[Efgé]

Re : Help Erreur '1004'

Bonjour pad01,
essai:

Sheets(Onglet).Range("D4").Select

Cordialement

 

[pad01]

Re : Help Erreur '1004'

Bonsoir Efgé
Merci pour la réponse mais le message d'erreur est identique
Cdt

 

[Efgé]

Re : Help Erreur '1004'

Re
Je me suis mal exprimé:
C'est la ligne

Range("D4").Select

Qu'il faut remplacer par

Sheets(Onglet).Range("D4").Select

Cordialement

EDIT Bonjour Roger

 

[ROGER2327]

Re : Help Erreur '1004'

Re...

Sheets(Onglet).Range("D4").Select

(Vous ne pouvez pas appliquer Select à une plage d'une feuille inactive.)

ROGER2327
#5124

Jeudi 26 Pédale 138 (Saint Pâle, mineur, SQ)
30 Ventôse An CCXIX
2011-W11-7T17:09:52Z

Ajout : d'accord, Efgé !

 

[pad01]

Re : Help Erreur '1004'

Bonsoir Efgé, ROGER2327
J'ai bien remplacé Range("D4").select par Sheets(Onglet).Range("D4").Select
Mais le message reste à l'identique....
Cdt

 

[Efgé]

Re : Help Erreur '1004'

Re

Mais le message reste à l'identique....

Pas sur l'exemple en tous cas...
Il faudrait voir le reste du code.
Pour ma part je ne sais si j'aurai le temps ce soir.
Cordialement

 

[Victor21]

Re : Help Erreur '1004'

Re,

Comme dit Roger :

Sheets("Onglet").Activate: Range("D4").Select

 

[pad01]

Re : Help Erreur '1004'

Bonsoir Efgé, ROGER2327, Victor21,
Je vous remercie pour l'aide que vous m'avez apporté. J'ai trouvé une solution qui fonctionne en adaptant ma macro et votre code.
Cela donne ce qui suit :

Onglet = Range("N1").Value
Sheets(Onglet).Activate
Onglet = ActiveSheet.Name
i = intComptage("C3", 3)
Sheets(Onglet).Range("D4").Select

Je n'ai pas d'explication sur le pourquoi du non-fonctionnement de votre code seul ???
Un grand merci à vous trois pour votre aide et de m'avoir donné la volonté de persévérer.
Cdt