NOMMER UNE FEUILLE EXCEL EN VBA

Question

Bonjour &#224; tous,
Je souhaite donner un nom &#224; une feuille "Feuil2" en rentrant ce m&#234;me nom dans une cellule X de la feuille "feuil1".
Comment dois je faire ?
Merci pour votre aide pr&#233;cieuse

sacha1435 · Answer

Bonjour,

Sub Renom()

dim Nm as String

Sheets("Sheet1").Select
Nm=Range("A1").Value 'ici la cellule qui contien le nom de la feuille 2
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = Nm

End Sub

Sacha

  \!/
    00
     !

Tuning Max · Answer

si j'ai bien compris, &#231;a devrait donner un truc comme &#231;a!

Dim wrksht As Worksheet, valeur


Set wrksht = ActiveWorkbook.Worksheets("Feuil2")


With ActiveWorkbook.Worksheets("Feuil1").Cells(1, 1)
            valeur = .Value
            wrksht.Name = valeur
End With

jpleroisse · Answer

Bonjour,

Sub NomFeuille()
Dim Mystr As String
Mystr = "MaFeuile"
    Sheets("Feuil2").Name = Mystr
    Range("A2").Value = Mystr
End Sub

jpleroisse

jpleroisse · Answer

Re,
Rectification, j'avais pas vu que c'est dans la feuil1 que tu voulais le nom dans une cellule.

Sub NomFeuille()
Dim Mystr As String
Mystr = "MaFeuile"
    Sheets("Feuil2").Name = Mystr
    Sheets(1).Range("A2").Value = Mystr
End Sub

jpleroisse

NOMMER UNE FEUILLE EXCEL EN VBA

4 réponses

Discussions similaires