Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sheets(1) et 'erreur 40036'

Sheets(1) et 'erreur 40036'

11 réponses
Avatar
Galatajoe
Bonjour à tous,
qui peut m'expliquer pourquoi le code suivant ne marche plus ... alors qu'il
marchait :

Sub aaaaTEST()

For i = 1 To 159
Sheets(i).Select
Cells("a1").Select
Next

End Sub

Qu'est-ce que j'ai bien pu changer, puisque ça marche dans d'autres modules
pour d'autres classeurs ?
J'ai oublié une déclaration,? j'ai changé des références ?
Je n'y comprends plus rien.
Merci d'avance à celui ou celle qui me donnera la logique d'Excel.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
bonjour,

remplace
Cells("a1").Select
par
Range("a1").Select

isabelle


Bonjour à tous,
qui peut m'expliquer pourquoi le code suivant ne marche plus ... alors qu'il
marchait :

Sub aaaaTEST()

For i = 1 To 159
Sheets(i).Select
Cells("a1").Select
Next

End Sub

Qu'est-ce que j'ai bien pu changer, puisque ça marche dans d'autres modules
pour d'autres classeurs ?
J'ai oublié une déclaration,? j'ai changé des références ?
Je n'y comprends plus rien.
Merci d'avance à celui ou celle qui me donnera la logique d'Excel.


Avatar
claude tele2
bonjour
t'es bien sur d'avoir tes 159 feuilles présentes ?
claude

"Galatajoe" a écrit dans le message de
news:
Bonjour à tous,
qui peut m'expliquer pourquoi le code suivant ne marche plus ... alors
qu'il
marchait :

Sub aaaaTEST()

For i = 1 To 159
Sheets(i).Select
Cells("a1").Select
Next

End Sub

Qu'est-ce que j'ai bien pu changer, puisque ça marche dans d'autres
modules
pour d'autres classeurs ?
J'ai oublié une déclaration,? j'ai changé des références ?
Je n'y comprends plus rien.
Merci d'avance à celui ou celle qui me donnera la logique d'Excel.


Avatar
Galatajoe
d'abord merci de répondre si vite, ensuite, j'ai bien mon nombre de feuilles
voire plus ...
Avatar
Galatajoe
merci Isabelle de la suggestion mais Range ne change rien, j'avais déjà
essayer. En fait ça bloque sur
Sheets(i).select
Même si je mets "activate"
alors ...
Avatar
isabelle
comment exécute tu la macro,
via un bouton de control ?

isabelle


merci Isabelle de la suggestion mais Range ne change rien, j'avais déjà
essayer. En fait ça bloque sur
Sheets(i).select
Même si je mets "activate"
alors ...


Avatar
RGI
essayes ceci

Sub aaaaTEST()

For i = 1 To 159 'Sheets.Count
Sheets(i).Select
Cells(1, 1).Select
Next

End Sub

salutations

RGI


Bonjour à tous,
qui peut m'expliquer pourquoi le code suivant ne marche plus ... alors qu'il
marchait :

Sub aaaaTEST()

For i = 1 To 159
Sheets(i).Select
Cells("a1").Select
Next

End Sub

Qu'est-ce que j'ai bien pu changer, puisque ça marche dans d'autres modules
pour d'autres classeurs ?
J'ai oublié une déclaration,? j'ai changé des références ?
Je n'y comprends plus rien.
Merci d'avance à celui ou celle qui me donnera la logique d'Excel.



Avatar
Galatajoe
Pardon, le téléphone ..
Non je l'exécute soit du fichier Outils/Macro/Macros etc ... soit
directement du VBA avec F8, ou la lecture suivant l'humeur ..;
Avatar
Galatajoe
Merci RGI,
non, ça plante pareil au même endroit:
sheets(i).select
avec indiquée, cette erreur 40036 dont je ne trouve la référence nulle part.
Avatar
RGI
il n'y aurait pas un end sub de trop qui traînerait dans ta procédure ?

Merci RGI,
non, ça plante pareil au même endroit:
sheets(i).select
avec indiquée, cette erreur 40036 dont je ne trouve la référence nulle part.



Avatar
RGI
voir ceci
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/f75efafa4b89dbc5/e6844e9dabb5688b%23e6844e9dabb5688b


Merci RGI,
non, ça plante pareil au même endroit:
sheets(i).select
avec indiquée, cette erreur 40036 dont je ne trouve la référence nulle part.



1 2