XL 2021 Revenir à la dernière feuille "Créée"

Usine à gaz · 13 Octobre 2023

Bonjour à toutes et à tous

LOL, en voilà une bien bonne
Je cherche à revenir ou à activer la dernière feuille que j'ai crée...

Particularité :
La feuille crée à le nom de Feuil1 et ensuite je la renomme pour qu'elle ait le nom de mon Client
Pour l'exemple : "A moi les petites Olé Olé P" ou "A moi les p'tits mectons"

Besoin
APRES AVOIR CREE MA NOUVELLE FEUILLE…
Jai activé plusieurs feuilles à la suite et je suis sur une autre feuille active

J'ai besoin de revenir (activer) ma dernière feuille créée soit : "A moi les petites Olé Olé P"ou "A moi les p'tits mectons" selon le nom donné

Je sais comment revenir sur la feuille activée précédemment
Mais je ne trouve rien sur le net pour revenir à la dernière feuille créée

Si mon sujet retient votre attention
Pour test et pour vous expliquer ce que je fais, voici mes actions :
A partir de la feuille "Facture"
1 en A1, j'entre le n° du Client, 1 ou 2
2 en L33, j'entre le n° du Pack de 2,3 ou 4
3 ma facture se fait et je clique sur le bouton "Go Facture"
4 mon code m'ouvre une nouvelle feuilX que je renomme (toujours avec mon code) du nom de mon Client

En espérant que vous m'aurez compris, auriez-vous la solution ?
Un grand merci à toutes et à tous,
Je joins le fichier test et je continue mes recherches...

eriiic · 13 Octobre 2023

Bonjour à tous,
sauvegarde son nom dans un nom :

VB:

Sub sauverDerF()
    ' créer et renommer ta feuille puis :
    ActiveWorkbook.Names.Add Name:="dernièreFeuille", RefersToR1C1:=ActiveSheet.Name
End Sub

Sub actDerF()
    Worksheets([dernièreFeuille]).Activate
End Sub

Reste accessible même si le fichier a été fermé
eric

TooFatBoy · 13 Octobre 2023

Bonjour,

Usine à gaz à dit:
4 mon code m'ouvre une nouvelle feuilX que je renomme (toujours avec mon code) du nom de mon Client

Ben si tu la renommes, tu connais son nom, donc tu peux revenir dessus.

Usine à gaz · 13 Octobre 2023

TooFatBoy à dit:
Bonjour,

Ben si tu la renommes, tu connais son nom, donc tu peux revenir dessus.

Bonsoir
NON, je voudrais y revenir par code macro

eriiic · 13 Octobre 2023

Bonjour à tous,
sauvegarde son nom dans un nom :

VB:

Sub sauverDerF()
    ' créer et renommer ta feuille puis :
    ActiveWorkbook.Names.Add Name:="dernièreFeuille", RefersToR1C1:=ActiveSheet.Name
End Sub

Sub actDerF()
    Worksheets([dernièreFeuille]).Activate
End Sub

Reste accessible même si le fichier a été fermé
eric

TooFatBoy · 13 Octobre 2023

Usine à gaz à dit:
NON, je voudrais y revenir par code macro

Pourquoi "NON" ???

Quand tu renommes ta feuille, tu mets son nouveau nom dans une variable globale, et tu peux revenir sur ta feuille quand tu veux puisque tu as son nom.

Usine à gaz · 13 Octobre 2023

Bsr eriiic

Merci pour ton retour.
Je verrai ça demain car ce soir, il est l'heure de dodo (demain, tout à l'heure, levée du corps à 5h

TooFatBoy à dit:
Pourquoi "NON" ???

Parce que j'ai besoin de la sélectionner par code vba

TooFatBoy · 13 Octobre 2023

Usine à gaz à dit:
Parce que j'ai besoin de la sélectionner par code vba

D'où ma question : pourquoi "NON" ?

Usine à gaz · 13 Octobre 2023

Usine à gaz à dit:
Bonsoir
NON, je voudrais y revenir par code macro

En fait, j'ai besoin de :
dans le code de Facturation Sub Archivage()
de méroriser la feuille créée et d'y revenir à ces niveaux :

Code:

Impres_feuilles
    [a1].Select
    If [ad53] < 0 Then
    ActiveSheet.Name = Range("f9") & " av"
    End If
    'ICI Nbr RdV - MEMORISER LA FEUILLE CREEE ET RENOMMEE
    If [j33] > 0 Then
    ActiveSheet.Name = Range("f9") & " P"
   
    'ICI Nbr RdV - MEMORISER LA FEUILLE CREEE ET RENOMMEE
    End If
   
    'UN AUTRE CODE SERA ICI
    'ICI NETOUR A LA FEUILLE CREEE ET RENOMMEE
    If [j33] = "" Then

Usine à gaz · 13 Octobre 2023

eriiic à dit:
Bonjour à tous,
sauvegarde son nom dans un nom :

VB:

Sub sauverDerF() ' créer et renommer ta feuille puis : ActiveWorkbook.Names.Add Name:="dernièreFeuille", RefersToR1C1:=ActiveSheet.Name End Sub Sub actDerF() Worksheets([dernièreFeuille]).Activate End Sub

Reste accessible même si le fichier a été fermé
eric

Bonjour eriiic , le Forum
Super et du 1er coup lol
Pourtant mes explications n'étaient peut-être pas très claires.
C'est nickel
J'ai une questions : "Reste accessible même si le fichier a été fermé"
Comment ça fonctionne ?
Merci à toi

TooFatBoy · 13 Octobre 2023

Usine à gaz à dit:
'ICI Nbr RdV - MEMORISER LA FEUILLE CREEE ET RENOMMEE

Avant de mémoriser la feuille créée, il faudrait la créer...

Ensuite, puisque tu sais où tu dois créer et mémoriser ta feuille, tu n'as plus qu'à faire comme j'ai dit plus haut (mémoriser le nom dans une variable globale), ou faire comme a dit eriiic (attribuer le nom à la feuille dans le gestionnaire de noms).

Usine à gaz · 13 Octobre 2023

TooFatBoy à dit:
Avant de mémoriser la feuille créée, il faudrait la créer...

Ensuite, puisque tu sais où tu dois créer et mémoriser ta feuille, tu n'as plus qu'à faire comme j'ai dit plus haut (mémoriser le nom dans une variable globale), ou faire comme a dit eriiic (attribuer le nom à la feuille dans le gestionnaire de noms).

Bjr et merci à toi pour tes retours

eriiic m'a donné la solution au #Post2

job75 · 13 Octobre 2023

Bonjour Lionel, le fil,

Perso j'utiliserai l'evènement Workbook_NewSheet et mettrai dans ThisWorkbook :

VB:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Me.Names.Add "DerFeuille", Sh.Name 'crée le nom défini
End Sub

Sub Activer_DerFeuille()
'se lance par les touches Ctrl+D
On Error Resume Next
With Sheets([DerFeuille])
    .Visible = xlSheetVisible 'si la feuille est masquée
    .Activate
End With
End Sub

Si l'on veut on peut masquer le nom défini avec le code :

VB:

Me.Names.Add "DerFeuille", Sh.Name, Visible:=False 'crée le nom défini masqué

A+

Usine à gaz · 13 Octobre 2023

job75 à dit:
Bonjour Lionel, le fil,

Perso j'utiliserai l'evènement Workbook_NewSheet et mettrai dans ThisWorkbook :

VB:

Private Sub Workbook_NewSheet(ByVal Sh As Object) Me.Names.Add "DerFeuille", Sh.Name 'crée le nom défini End Sub Sub Activer_DerFeuille() 'se lance par les touches Ctrl+D On Error Resume Next With Sheets([DerFeuille]) .Visible = xlSheetVisible 'si la feuille est masquée .Activate End With End Sub

Si l'on veut on peut masquer le nom défini avec le code :

VB:

Me.Names.Add "DerFeuille", Sh.Name, Visible:=False 'crée le nom défini masqué

A+

Bonjour Gérard, merci pour ton code
Je testerai ce soir

eriiic · 13 Octobre 2023

job75 à dit:
Bonjour Lionel, le fil,

Perso j'utiliserai l'evènement Workbook_NewSheet et mettrai dans ThisWorkbook :

VB:

Private Sub Workbook_NewSheet(ByVal Sh As Object) Me.Names.Add "DerFeuille", Sh.Name 'crée le nom défini End Sub Sub Activer_DerFeuille() 'se lance par les touches Ctrl+D On Error Resume Next With Sheets([DerFeuille]) .Visible = xlSheetVisible 'si la feuille est masquée .Activate End With End Sub

Si l'on veut on peut masquer le nom défini avec le code :

VB:

Me.Names.Add "DerFeuille", Sh.Name, Visible:=False 'crée le nom défini masqué

A+

Bonjour,
sauf qu'il renomme la feuille...
eric

job75 · 13 Octobre 2023

eriiic à dit:
Bonjour,
sauf qu'il renomme la feuille...
eric

Rien n'empêche de recréer le nom défini avec une macro comme tu l'as fait.

XL 2021 Revenir à la dernière feuille "Créée"

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

eriiic

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

eriiic m'a donné la solution au #Post2

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

XL 2021 Revenir à la dernière feuille "Créée"

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

eriiic m'a donné la solution au #Post2​

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

eriiic m'a donné la solution au #Post2