Probleme lors de l'actualisation de toute mes formules dans Excel

[57.scheider]

Bonjour,
A l'aide du code "Application.Calculate" je réalise une actualisation complète de mon fichier excel lorsque j'enregistre mon fichier

Malheureusement sur certain onglets j'ai cette formule

Function  No_feuill() As Integer
No_feuill() = ActiveSheet.Index
End Function

Qui me permet de connaitre, puis ensuite de mettre le numéro de l'onglet dans une cellules de la feuille excel activée.

Le problème est que comme il y a juste la feuille de garde qui est activée je reçois toujours le numero 1.


Savez vous donc comment faire pour que lorsque l'actualisation général est effectuée, le code ouvre à chaque fois l'onglet dans lequel il travaille?

Ou bien peut être existe-t-il une autre formule qui permettent de récupérer le numéro de la feuille pour la mettre dans la cellule?😕


Merci 🙂

 

[Roland_M]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

bonjour

attention ActiveSheet.Index
est = à l'ordre des onglets !!! rien à voir avec les nos/noms des feuilles !
la feuil3 nommée "Data"
sera toujours = 1 si elle est placé en 1'
sera toujours = 6 si elle est placé en 6' position

peut être avec ActiveSheet.Name

 

[57.scheider]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

Oui oui je veux bien l'ordre de mes onglets
Mais le problème est que lorsque je lance le code d'actualisation je reste sur la meme feuille est donc pour lui c'est toujours la meme feuille d'activé d'où le même numero :/
Et c'est pour cela que je m'etais dis que je pouvaiis peut etre actualisé les formules en activant (ouvrant) a chaque fois la feuille dans lequel on realise la mise à jours.

 

[Roland_M]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

re

tu dis :
Savez vous donc comment faire pour que lorsque l'actualisation général est effectuée, le code ouvre à chaque fois l'onglet dans lequel il travaille?

mais pour cela il suffit, dans tes codes, d'Activer simplement les feuilles dans lesquelles
tu travailles !
je comprends pas très bien ou tu veux en venir !?

 

[57.scheider]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

Re
Car la macro s'execute lorsque je fais un enregistrement de mon fichier excel

Et la fonction actualise toute les pages.

Prenons l'exemple:
J'ai un classeur avec un onglet A, B, C , D et E

Je suis sur l'onglet B et j'enregistre.

L'onglet B va posséder le bon numéro dans sa cellule soit "page2" sur la cellule A1 (car la macro va donner le numero de la page active)

Mais les autres onglets vont être également actualisés et vont malheuresement prendre le meme numero soit "Page 2"


A cause de ce code

Function  No_feuill() As Integer
No_feuill() = ActiveSheet.Index
End Function

Car dans mes cellule A1 j'ai la formule " ="Page " & No_feuil()

Et donc le numero sera le meme...

J'espere avoir été plus clair :/ et merci

 

[Roland_M]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

mais puisqu'il s'agit toujours des mêmes pages avec chacune son numéro d'ordre
et qui reste le même . . . à quoi sert ceci !?
Function No_feuill() As Integer
No_feuill() = ActiveSheet.Index
End Function

totalement inutile !
autant le mettre directement dans la cellule de chaque page !

 

[57.scheider]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

car justement l'ordre des onglets peut changer, un onglet peu aller plus a droite ou ensuite plus a gauche...

 

[Roland_M]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

mais alors ça se complique et ta function n'est pas valable !

il faudrait créer à l'ouverture, dans le Thisworbook open,
un tableau qui va mémoriser et sauver dans une feuille
les index et noms des feuilles pour les retrouver à l'enregistrement !
comme ça tu pourras travailler avec ce tableau qui se mettra à jour à chaque ouverture
et ta function sera inutile

maintenant pour te dire comment faire, je sais pas comment est ton classeur !?

là je dois m'absenter !
peut être qu'au retour tu auras la solution ! bon courage !

 

[57.scheider]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

C'est pas plus simple de réaliser une macro qui ouvre le 1onglet puis ensuite l'actualise, puis ouvre l'autre, puis l'actualise...

 

[57.scheider]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

quelqu'un a une idée?

 

[chris]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

Bonjour

Ce code, différent du tiens, à l'air de marcher

Function No_feuill() As Integer
    No_feuill = Application.ThisCell.Worksheet.Index
End Function

 

[Roland_M]

Re : Probleme lors de l'actualisation de toute mes formules dans Excel

bonjour
à la place de ta fonction,
avant l'enregistrement, lancer cette macro
qui va mettre tes no.index réel dans chaque feuille !
ici pour l'exemple dans la cellule A1

Sub SaveIndexFeuilles()
For I = 1 To ThisWorkbook.Sheets.Count
   Sheets(I).Range("A1") = Sheets(I).Index
Next
End Sub