M malek-farid XLDnaute Junior 8 Mai 2012 #1 bonjour je sollicite votre aide carre j'ai un petit problème je souhaiterais que le non de la feuil unique s'inscrit dans une cellule a 1 comme dans l'exemple que je joint merci Pièces jointes teste.xls 18.5 KB · Affichages: 35 teste.xls 18.5 KB · Affichages: 39 teste.xls 18.5 KB · Affichages: 40
bonjour je sollicite votre aide carre j'ai un petit problème je souhaiterais que le non de la feuil unique s'inscrit dans une cellule a 1 comme dans l'exemple que je joint merci
tototiti2008 XLDnaute Barbatruc 8 Mai 2012 #2 Re : non de la feuil en a1 bonjour malek-farid, Peut-être Code: =DROITE(CELLULE("filename";A2);NBCAR(CELLULE("filename";A2))-CHERCHE("]";CELLULE("filename";A2))) si ça ne marche pas, essaye de remplacer "filename" par "nom de fichier" Vote positif 0 Vote négatif
Re : non de la feuil en a1 bonjour malek-farid, Peut-être Code: =DROITE(CELLULE("filename";A2);NBCAR(CELLULE("filename";A2))-CHERCHE("]";CELLULE("filename";A2))) si ça ne marche pas, essaye de remplacer "filename" par "nom de fichier"
Dranreb XLDnaute Barbatruc 8 Mai 2012 #3 Re : non de la feuil en a1 Bonjour. Parmi de nombreuses solutions, cette fonction vba : VB: Function NomFeui(Optional ByVal Cel As Range) As String If Cel Is Nothing Then Set Cel = Application.Caller NomFeui = Cel.Worksheet.Name End Function Et en A1 : Code: =NomFeui() Cordialement. Vote positif 0 Vote négatif
Re : non de la feuil en a1 Bonjour. Parmi de nombreuses solutions, cette fonction vba : VB: Function NomFeui(Optional ByVal Cel As Range) As String If Cel Is Nothing Then Set Cel = Application.Caller NomFeui = Cel.Worksheet.Name End Function Et en A1 : Code: =NomFeui() Cordialement.
néné06 XLDnaute Accro 8 Mai 2012 #4 Re : non de la feuil en a1 Bonjour Tototiti2008,bonjour Malek-farid Une autre solution En this Workbook Private Sub Workbook_Open() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Cells(1, 1) = Sheets(i).Name Next End Sub A+ Edit bonjour dranreb Dernière édition: 8 Mai 2012 Vote positif 0 Vote négatif
Re : non de la feuil en a1 Bonjour Tototiti2008,bonjour Malek-farid Une autre solution En this Workbook Private Sub Workbook_Open() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Cells(1, 1) = Sheets(i).Name Next End Sub A+ Edit bonjour dranreb
Victor21 XLDnaute Barbatruc 8 Mai 2012 #5 Re : non de la feuil en a1 Bonjour à tous. Avec les macros Excel4 ? Insertion, nom, "nom" = LIRE.DOCUMENT(1) Et dans une cellule quelconque de vos feuilles : =STXT(nom;CHERCHE("]";nom)+1;9^9) Cliquez pour agrandir... Vote positif 0 Vote négatif
Re : non de la feuil en a1 Bonjour à tous. Avec les macros Excel4 ? Insertion, nom, "nom" = LIRE.DOCUMENT(1) Et dans une cellule quelconque de vos feuilles : =STXT(nom;CHERCHE("]";nom)+1;9^9) Cliquez pour agrandir...