Le code ne s'exécute pas entièrement...

A

alex67800

XLDnaute Impliqué

• 9 Janvier 2009

• #2

Re : Le code ne s'exécute pas entièrement...

Bonsoir Tiobi,
peut-être comme ceci:
Sheets("Accueil").Activate
Range("A1").Select


Edit: Que vient faire me Exit Sub avant End If?

 

Dernière édition: 9 Janvier 2009

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 9 Janvier 2009

• #3

Re : Le code ne s'exécute pas entièrement...

Bonsoir,
Comme c'est précisé, c'est un bout de code, donc difficile de répondre sans fichier !
Alex : Si la feuille active n'est pas dans la liste on affiche le msg, sinon non d'où le "Exit Sub" (si j'ai bien compris)
A+
kjin

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 9 Janvier 2009

• #4

Re : Le code ne s'exécute pas entièrement...

Bonsoir à tous.

Peut-être

Code:

Sheets("Accueil").Range("A1").Select

au lieu de

Code:

Sheets("Accueil").Select
Range("A1").Select

?​

Bonne nuit !
ROGER2327

 

Vote positif 0 Vote négatif

T

Tiobi

XLDnaute Junior

• 9 Janvier 2009

• #5

Re : Le code ne s'exécute pas entièrement...

Bonjour,

Je joint le fichier , ce sera plus facile.


En mode pas a pas, je constate que les instructions
Sheets("Accueil").Select
Range("A1").Select

ne sont pas réalisées lorsque j'enregistre le classeur.

c'est peut-être spécifique à l'évènement Workbook_BeforeSave ?

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 9 Janvier 2009

• #6

Re : Le code ne s'exécute pas entièrement...

Hello,
Chez moi ton classeur fonctionne bien selon tes explications.
(pour autant que l'on soit sur une des feuilles Tanzini cegelec nommées dans le code avec une condition If)
A++
Lio

 

Vote positif 0 Vote négatif

A

alex67800

XLDnaute Impliqué

• 9 Janvier 2009

• #7

Re : Le code ne s'exécute pas entièrement...

Bonjour tout le monde,
chez moi le code foncitionne également, je me retrouve bien sur la feuille accueil en A1.

kjin: Arff mais oui c'est bien sûr!!🙄

 

Vote positif 0 Vote négatif