XL 2016 Feuille fantôme dans classeur

Phillip · 31 Janvier 2023

Bonjour,

J'ai finalement réussi à faire marcher mon code sur un fichier de tests et je veux le transférer sur mon vrai fichier.

Voici le bout de code qui me pose problème dès le début dans le vrai fichier (mais pas dans le fichier de tests).

VB:

For Each Fmois In ThisWorkbook.Worksheets
      If Fmois.Name = Vmoislettres Then 'Vmoislettres est "janvier"
        Worksheets(Vmoislettres).Activate
        Call noms
        Fairelessommes Fmois
       
     
       
      ElseIf Fmois.Name = VmoisprochainLettres Then 'Vmoisprochainlettres est "février"
        Worksheets(VmoisprochainLettres).Activate
        Call noms
       
     
        Fairelessommes Fmois
     
    End If
       
      Next Fmois

Il plante et sort de la sub car le premier Fmois qu'il reconnaît est "Feuill1". Or, je n'ai PAS de Feuil1 dans mon classeur, elle n'est pas masquée et si je regarde dans le projet VBA elle n'existe pas non plus (elle aurait pu être en xlsheetveryhidden).
En revanche, si j'insère une feuille en première position dans mon classeur de test effectivement ça fait planter la macro, donc c'est bien la présence d'une feuille en première position qui pose problème....

Comment supprimer cette feuil1 fantôme, ou pourquoi apparaît-elle ?

PS : je précise que si j'insère la ligne Worksheets(1).Activate, ça m'active bien la feuille janvier, ma première feuille sur laquelle je veux travailler !

merci de votre aide

Cordialement

Phillip

Phillip · 31 Janvier 2023

je viens de retrouver feuil1 ! elle se trouve dans personal.xlsb ! Comment la supprimer ?

TooFatBoy · 31 Janvier 2023

Bonjour,

Pardon, mais ton explication ne me semble pas trop tenir la route...

Juste un exemple : "Il plante et sort de la sub car le premier Fmois qu'il reconnaît est "Feuill1"." ne veut pas dire grand chose.
- Qui reconnait la feuille "Feuill1" ?
- Que veut dire "reconnaître" une feuille ?
- Comment sais-tu que cette feuille est "reconnue" ?
- Etc.

VB:

For Each Fmois In ThisWorkbook.Worksheets

    If Fmois.Name = Vmoislettres Then 'Vmoislettres est "janvier"
        Worksheets(Vmoislettres).Activate
        Call noms
        Fairelessommes Fmois
    ElseIf Fmois.Name = VmoisprochainLettres Then 'Vmoisprochainlettres est "février"
        Worksheets(VmoisprochainLettres).Activate
        Call noms
        Fairelessommes Fmois
    End If

Next Fmois

Phillip · 31 Janvier 2023

Lorsque je fais un pas-à-pas (F8) et que je survole Fmois, je vois qu'il contient Feuil1....Comme cela ne correspond pas à janvier ou février, ça saute directement à end sub (ce qui n'est pas normal, j'en conviens)

TooFatBoy · 31 Janvier 2023

Fmois vaut Feuil1 ok, mais que vaut Fmois.name ?

Effectivement, ça ne devrait pas passer directement à End Sub mais passer à la feuille suivante.

Phillip · 31 Janvier 2023

TooFatBoy à dit:
Fmois vaut Feuil1 ok, mais que vaut Fmois.name ?

Effectivement, ça ne devrait pas passer directement à End Sub mais passer à la feuille suivante.

Pardon, c'est Fmois.name qui vaut "Feuil1". je n'ai rien lorsque je survole Fmois

TooFatBoy · 31 Janvier 2023

Ton classeur n'a qu'une seule feuille, qui se nomme "Feuil1", donc tout est normal en fait : elle ne s'appelle pas "janvier" ni "février", et du coup la macro saute directement à End Sub.

Phillip · 31 Janvier 2023

Si, mon classeur a bien plusieurs feuilles, dont janvier et février (et d'autres), mais PAS de feuill1. Le seul truc que je vois c'est cette feuill1 dans mon personal.xlsb et qui poserait problème (mais je ne peux pas la supprimer).

PS : C'est bien cette feuille qui pose problème, car je l'ai renommée et c'est bien elle qui apparaît quand je survole mon code...

TooFatBoy · 31 Janvier 2023

Phillip à dit:
Si, mon classeur a bien plusieurs feuilles, dont janvier et février (et d'autres), mais PAS de feuill1. Le seul truc que je vois c'est cette feuill1 dans mon personal.xlsb et qui poserait problème (mais je ne peux pas la supprimer)

Non, vu d'ici, ton classeur n'a qu'une seule feuille, et elle se nomme "Feuil1".
C'est tout ce que j'ai à dire pour l'instant.

Phillip · 31 Janvier 2023

TooFatBoy à dit:
Non, vu d'ici, ton classeur n'a qu'une seule feuille, et elle se nomme "Feuil1".
C'est tout ce que j'ai à dire pour l'instant.

Merci du temps passé...je ne vois pas trop comment tu peux voir que mon classeur n'a qu'une feuille mais bon...Je travaille sur 2023.xlsm qui a plusieurs feuilles avec des macros dans personal.xlsb....2023 a plusieurs feuilles et personal.xlsb a cette feuille (que j'ai renommée modulo) qui pose problème...

TooFatBoy · 31 Janvier 2023

Phillip à dit:
je ne vois pas trop comment tu peux voir que mon classeur n'a qu'une feuille mais bon...

C'est bien ce que je voulais te faire comprendre.

Phillip à dit:
Je travaille sur 2023.xlsm qui a plusieurs feuilles avec des macros dans personal.xlsb

Je l'avais un peu deviné.
Et c'est bien là ton problème.
Comprends-tu ?

Phillip à dit:
2023 a plusieurs feuilles et personal.xlsb a cette feuille (que j'ai renommée modulo) qui pose problème...

Ce n'est pas cette feuille qui pose problème. C'est le code de ta macro.
Est-ce plus clair ?

Phillip · 31 Janvier 2023

TooFatBoy à dit:
C'est bien ce que je voulais te faire comprendre.

Je l'avais un peu deviné.
Et c'est bien là ton problème.
Comprends-tu ?

Ben non, je ne comprends pas, c'est peut-être pour ça que je sollicite le forum ! ;-), mais bon, si je remplace thisworkbook par activeworkbook, ça marche...

TooFatBoy · 31 Janvier 2023

Dis-moi si je me trompe :
- ta macro se trouve dans le classeur PERSONNAL,
- ta macro utilise ThisWorkBook,
- donc ta macro travaille dans le classeur PERSONNAL qui n'a qu'une seule feuille.
J'ai bon ?

Si j'ai bon, alors il n'y a aucun fantôme dans le coup.

Pour info :
- ThisWorkbook fait référence au classeur dans lequel se trouve l'instruction ThisWorkbook rencontrée.
- ActiveWorkbook fait référence au classeur qui est actif quand est rencontrée l'instruction ActiveWorbook.

TooFatBoy · 31 Janvier 2023

Ah, tu as ajouté une remarque intéressante pendant que j'éditais mon message précédent :

Phillip à dit:
mais bon, si je remplace thisworkbook par activeworkbook, ça marche...

Ben voilà, tu vois qu'en tu as compris ce que j'essayaisjustementde te fairecomprendre.

XL 2016 Feuille fantôme dans classeur

Phillip

XLDnaute Occasionnel

Phillip

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Phillip

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phillip

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phillip

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phillip

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Phillip

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires