Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres probleme sur une fonction

tomy87

XLDnaute Nouveau
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
 

Pièces jointes

  • recettes2.xlsm
    33.8 KB · Affichages: 20

M12

XLDnaute Accro
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
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Calculate
End Sub
 

Pièces jointes

  • recettes2.xlsm
    44.5 KB · Affichages: 1

Modeste geedee

XLDnaute Barbatruc
Bonsour
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

XLDnaute Barbatruc
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 :
VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…