bug changement de feuille

[papa6]

Bonjour,
j'ai un bug lorsque j'exécute une macro (message traditionnel "Excel: Ce programme va être arrêté car il a effectué une opération non conforme").

Lorsque je le passe en "pas à pas", il plante à la ligne:
Sheets("data").Select
J'ai aussi essayé avec ActiveSheet.Previous.Select et ça plante aussi

Le reste du programme marche si je suis sur la bonne feuille.

Est-ce que c'est une erreur limitée à mon poste, ou chez vous c'est aussi pareil ?

Merci pour votre aide

Lionel

 

[LaurentTBT]

Salut.

Chez moi, ça passe sans pb. (Excel XP, Win XP Home))
Essaye de mettre Worksheets("data").select, on ne sait jamais...
Bonne chance.
Laurent.

 

[papa6]

Merci pour la réponse, mais non :-(

Worksheets("data").select ne marche pas non plus

J'ai excel 97 sous Win98 SE

 

[STéphane]

bonjour

select n'est pas obligatoire, non !?

 

[papa6]

Là non plus, ni Worksheets ("data") ni Sheets("data") ne marchent seuls.
Il faut donc le select.

Mais STéphane, est-ce que ça plante aussi chez toi ?

Merci

 

[michel]

bonsoir Papa6 , Laurent et STephane

Papa6 , moi aussi je dispose d'excel97 & win98
comme ton fichier plantait chez moi , j'ai simplement copié les données de la feuille "Data" et la macro dans un nouveau classeur :
cela fonctionne alors tres bien ...

par contre , comme le faisait remarquer STephane , les Select c'est pas automatique...
( ci joint le nouveau classeur et la macro modifiée sans select )

bonne soirée
michel

 

[papa6]

MERCI BEAUCOUP A VOUS TOUS,

BugBunny, avec ton nom, tu m'as bien aidé : en plus, je viens d'apprendre à définir correctement mes variables avec "Option Explicit" (pour ceux qui ne connaissent pas, rdv sur <A HREF=http://www.excel-downloads.com/html/French/forum/messages/1_48849_48830.htm>ancien post</A>

et enfin tu m'as corrigé ma façon d'écrire qui était archaïque (je n'avais pas compris la suppression de la sélection de la feuille COMBINEE à la ligne suivante)
ex: dern_val = Sheets("data").Range("D3").End(xlDown)

bonne nuit à tous !
Papa6