Autres probleme sur une fonction

[tomy87]

bonjours, je vous sollicitte pour un coup de pouce
voici un code vba qui me pause souci
"=RIGHT(CELL(""filename""),LEN(CELL(""filename""))-FIND(""]"",CELL(""filename""),1))"
lorsque je fais une feuille ca passe mais dès la deuxieme ca me met le nom de l'onglet que du de le derniere feuille creer
que faire

 

[M12]

Bonjour,

Si tu fais un F9 cela se mettra à jour
sinon pour l'automatisme, place cette macro dans le ThisWorkbook de ton application et cela se mettra à jour à chaque changement d'onglet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Calculate
End Sub

 

[tomy87]

merci j'aurais du y enser

 

[Modeste geedee]

Bonsour

bonjours, je vous sollicitte pour un coup de pouce
voici un code vba qui me pause souci
"=RIGHT(CELL(""filename""),LEN(CELL(""filename""))-FIND(""]"",CELL(""filename""),1))"
lorsque je fais une feuille ca passe mais dès la deuxieme ca me met le nom de l'onglet que du de le derniere feuille creer
que faire

Consulter l'aide pour la Fonction CELLULE !!!
Bien que facultatif le second argument est important ...

CELLULE(Argument info-type, Argument référence)
CELLULE, fonction - Support Office

référence Facultatif

Représente la cellule dont vous voulez obtenir des informations. S’il est omis, les informations spécifiées dans l’argument info_type sont renvoyées pour la dernière cellule qui a été modifiée. Si l’argument référence est une plage de cellules, la fonction CELLULE renvoie uniquement les informations de la cellule supérieure gauche de la plage.

 

[Dranreb]

Bonjour.
Sinon j'ai trouvé dans votre classeur une tentative de fonction perso, que j'aurais aussi préférée, et où on pourrait dire qu'il manque aussi la référence, au fond. Comme ça ce serait fait :

Sub test()
'
' test Macro
'

'
    Range("A5:E5").Select
    ActiveCell.FormulaR1C1 = "=NomFeuille(R1C1)"
End Sub

Function NomFeuille(ByVal Cel As Range)
    NomFeuille = Cel.Worksheet.Name
End Function