OVH Cloud OVH Cloud

Dernière feuille

5 réponses
Avatar
Alain
Bonjour,

je suis confront=E9 =E0 un probl=E8me, je doit par un sub en VBA renomm=E9=
la
derni=E8re feuille cr=E9e.

sachant qu'il y =E0 en cours d'ex=E9cution des diff=E9rentes routines des=

cr=E9ations et des deletes multiples, comment r=E9cup=E9r=E9 le nom de la=

feuille au moment de sa cr=E9ation et la renomm=E9e avec la valeur d'une
variable.

je s=E8che depuis ce matin la dessus

je suis preneur de toute l'aide que l'on pourra m'apporter

5 réponses

Avatar
Daniel
Bonjour.
Tu peux peut-être créer une macro de création de feuille qui serait appelée
par les autres routines ?
Cordialement.
Daniel
"Alain" a écrit dans le message de news:

Bonjour,

je suis confronté à un problème, je doit par un sub en VBA renommé la
dernière feuille crée.

sachant qu'il y à en cours d'exécution des différentes routines des
créations et des deletes multiples, comment récupéré le nom de la
feuille au moment de sa création et la renommée avec la valeur d'une
variable.

je sèche depuis ce matin la dessus

je suis preneur de toute l'aide que l'on pourra m'apporter
Avatar
Alain
le probleme c'est pour recupéré le nom de la derniere page crée

un cound ne convient pas du fait qu'il y a des feuilles deletées et don c
que la numerotation n'est pas continu.




Bonjour.
Tu peux peut-être créer une macro de création de feuille qui sera it appelée
par les autres routines ?
Cordialement.
Daniel
"Alain" a écrit dans le message de news:

Bonjour,

je suis confronté à un problème, je doit par un sub en VBA renomm é la
dernière feuille crée.

sachant qu'il y à en cours d'exécution des différentes routines d es
créations et des deletes multiples, comment récupéré le nom de la
feuille au moment de sa création et la renommée avec la valeur d'un e
variable.

je sèche depuis ce matin la dessus

je suis preneur de toute l'aide que l'on pourra m'apporter


Avatar
Daniel
Je pensais à un truc du genre :
Procédure appelante :

Sub ProcedureQuelconque()
Dim NomFeuille As String
' Ajouter une feuille
NomFeuille = "toto"
AjoutDeFeuille NomFeuille
End Sub

Macro d'ajout de feuille :

Sub AjoutDeFeuille(NomFeuille)
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = NomFeuille
'Ou un nom de ton choix (dans ce cas, pas besoin de paramètre)
End Sub

Daniel
"Alain" a écrit dans le message de news:

le probleme c'est pour recupéré le nom de la derniere page crée

un cound ne convient pas du fait qu'il y a des feuilles deletées et donc
que la numerotation n'est pas continu.




Bonjour.
Tu peux peut-être créer une macro de création de feuille qui serait
appelée
par les autres routines ?
Cordialement.
Daniel
"Alain" a écrit dans le message de news:

Bonjour,

je suis confronté à un problème, je doit par un sub en VBA renommé la
dernière feuille crée.

sachant qu'il y à en cours d'exécution des différentes routines des
créations et des deletes multiples, comment récupéré le nom de la
feuille au moment de sa création et la renommée avec la valeur d'une
variable.

je sèche depuis ce matin la dessus

je suis preneur de toute l'aide que l'on pourra m'apporter


Avatar
isabelle
bonjour Alain,

tu pourrais récupérer les noms sur une feuille qui serait masquée,

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheets("Feuil1").Range("A" & Range("A65536").End(xlUp).Row + 1) = ActiveSheet.Name
End Sub

isabelle

Bonjour,

je suis confronté à un problème, je doit par un sub en VBA renommé la
dernière feuille crée.

sachant qu'il y à en cours d'exécution des différentes routines des
créations et des deletes multiples, comment récupéré le nom de la
feuille au moment de sa création et la renommée avec la valeur d'une
variable.

je sèche depuis ce matin la dessus

je suis preneur de toute l'aide que l'on pourra m'apporter


Avatar
AV
le probleme c'est pour recupéré le nom de la derniere page crée


Pour stocker le nom de la dernière feuille créée :
Dans le module de ThisWorkBook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:="derF", RefersTo:="=""" & ActiveSheet.Name & """"
End Sub

L'avantage est que la variable "derF" stocke le nom vba donc pas d'incidence
s'il y a un "renommage" ultérieur

Pour l'appeler :
Msgbox [derF]

AV