Nom d'une feuille dans une cellule

[gds35]

Bsr à Tous avec toutes mes Amitiées,

Mon Pb est le Suivant en VBA.
J'ai écrit un code me permettant de créer une feuille avec son nom la viariable s'appelle reponse et contient le nom de la feuille , maintenant ds mon p'tit script j'ai crée une feuille nommée menu avec à partir de A250 le nom de toutes les feuilles en tout 25 et je recherche la premiere cellule vide à partir de A250 ou je voudrais ss saisie que le nom de la feuille crée soit écrit , je n'y arrive pas !!!!! Merci de votre Aide qui est tj précieuse.
gds35@free.fr

 

[Cousinhub]

Re : Nom d'une feuille dans une cellule

Bonsoir, pas trop clair comme demande, mais tu peux essayer de définir la dernière ligne non vide à partir de la ligne 250 comme ceci :


Dim Derlign As Integer
Derlign = IIf(Range("A65000").End(xlUp).Row < 250, 250, Range("A65000").End(xlUp).Row + 1)

 

[Robert]

Re : Nom d'une feuille dans une cellule

Bonsoir GDS, bonsoir le forum,

Pas sûr d'avoir tout compris mais je pense que tu devrais rajouter cela à ton code :

Sheets("Menu").Range("A65536").End(xlUp).Offset(1, 0).Value = reponse

 

[Staple1600]

Re : Nom d'une feuille dans une cellule

Bonsoir le forum


En comprenant que tu veux créer une feuille index
de toutes les feuilles de ton classeur

Sub Liste_feuilles()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets("Menu").Cells(249 + i, 1).Value = _
IIf(Sheets(i).Name <> "Menu", Sheets(i).Name, vbNullString)
Next
End Sub

 

[gds35]

Re : Nom d'une feuille dans une cellule

Merci de ton Aide Précoeuse et Bonne journée