Microsoft 365 Donner a une cellule le nom de la feuille

[Faroyo]

Bonjour,
j'ai fait une petite macro pour ajouter des feuilles dans mon dossier en fonction de la valeur d'une cellule (feuille A cellule C9). A présent, je recherche le moyen de donner à cellule C2 de chaque page créée le nom de sa feuille.
Ex: si ma feuille se nomme "page_(1) j'aimerai avoir "page_(1)" en C2 et ainsi de suite, "page_(2) -> C2 = "page_(2)"....

Merci pour votre aide

Faroyo

 

[vgendron]

Hello
un nom de plage ne peut pas avoir de caractères spéciaux tels que les parenthèses...

 

[JM27]

bonjour
en c2 page 1

=DROITE(CELLULE("filename");NBCAR(CELLULE("filename"))-TROUVE("]";CELLULE("filename")))

 

[vgendron]

le code ci dessous, créé la plage nommée ET met le nom de la feuille en C2

Sub CreateSheets()

    Dim facilitiesNum As Long
    Dim i As Byte
    Dim sh As Worksheet
    
    Worksheets("A").Activate
    On Error Resume Next
    
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If InStr(1, "A,Database,page_(1),", sh.Name) = 0 Then sh.Delete
    Next sh
    Application.DisplayAlerts = True
    
    With Sheets("A")
        facilitiesNum = .Range("C9").Value 'on récupère le nombre de tableaux à créer
    End With
    Sheets("Page_(1)").Names.Delete 'supprime la plage nommée, sinon, elle est recopiée dans tous les onglets (étendue classeur)
    For i = 2 To facilitiesNum
        Sheets("page_(1)").Copy After:=Sheets(i)
        ActiveSheet.Names.Add Name:="page_" & i, RefersTo:="='Page_(" & i & ")'!$C$2"
        ActiveSheet.Range("C2") = "page_(" & i & ")"
    Next i
    Sheets("Page_(1)").Names.Add Name:="page_1", RefersTo:="='Page_(1)'!$C$2" 'on recréé la plage nommée
End Sub

 

[Faroyo]

Hello
un nom de plage ne peut pas avoir de caractères spéciaux tels que les parenthèses...

Merci pour ce retour rapide votre efficacité et vos explications.
Le code fonctionne parfaitement

Un grand merci pour votre temps .
Tres bon WE

 

[Faroyo]

bonjour
en c2 page 1

=DROITE(CELLULE("filename");NBCAR(CELLULE("filename"))-TROUVE("]";CELLULE("filename")))

Merci pour votre reponse et votre temps mais je pense rester sur la solution vgendron.

Tres bon we

​

 

[Bib.bel]

Bonjour ,

Comment transférer des données entre deux feuilles de calcul.

Merci d'avance

 

[vgendron]

Bonjour
déjà.. tu créés ton propre post...
sinon, c'est comme si dans la rue, tu vois deux personnes qui discutent de cuisine, et toi tu arrives de nulle part et tu dis, "j'ai vu un super film au ciné"...

 

[Bib.bel]

Bonjour ,
formule pour transférer les données entre les feuilles -
Merci d'avance

 

[vgendron]

Qu'est ce que tu n'as pas compris dans "Créer ton propre post" ?

 

[JHA]

Bonjour à tous,

Tu auras des réponses si tu mets ton propre poste et cela ne polluera pas le topic de "Faroyo"

Un début de piste



JHA

 

[job75]

Bonjour à tous,

Il serait étonnant qu'il n'y ait qu'une seule ligne à transférer dans chaque feuille.

Alors voyez le fichier .xlsm joint et cette macro :

Sub Xonsolider()
Dim nb, i
nb = 6 'nombre de feuilles à copier
Application.ScreenUpdating = False
With Sheets("Recap")
    .UsedRange.Columns(1).Offset(1).Delete xlUp 'RAZ
    For i = 1 To nb
        Sheets(CStr(i)).[A1].CurrentRegion.Offset(1).Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
    Next
End With
End Sub

A+

 

[Bib.bel]

Bonjour à tous,

Tu auras des réponses si tu mets ton propre poste et cela ne polluera pas le topic de "Faroyo"

Un début de piste



JHA

Bonjour ,
Merci pour votre travail acharné.

 

[Bib.bel]

Bonjour à tous,

Il serait étonnant qu'il n'y ait qu'une seule ligne à transférer dans chaque feuille.

Alors voyez le fichier .xlsm joint et cette macro :

Sub Xonsolider()
Dim nb, i
nb = 6 'nombre de feuilles à copier
Application.ScreenUpdating = False
With Sheets("Recap")
    .UsedRange.Columns(1).Offset(1).Delete xlUp 'RAZ
    For i = 1 To nb
        Sheets(CStr(i)).[A1].CurrentRegion.Offset(1).Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
    Next
End With
End Sub

A+

Merci pour votre travail incroyable.