Autres Probleme de macro qui ne fonctionne plus

golgue

XLDnaute Nouveau
Bonjour,

la macro pour renommer la feuille ne fonctionne plus, et est il possible que quand je crée un nouveau rallye,qu'il ce place a la fin ?
merci de votre aide.
 

Pièces jointes

  • CALENDRIER COMMISSAIRES 2020 excel.xlsm
    186.5 KB · Affichages: 6
Solution
Avant de créer la feuille, il faut choisir un rallye en A1 sur la feuille Modele (liste déroulante)
et exécuter le programme Nouveau Rallye et ensuite le programme : Renommer

Sub RenameSheet()

Dim rs As Worksheet

For Each rs In Sheets
If rs.Name = "Feuil1" Or rs.Name = "Modele" Or rs.Name = "RALLYE" Then GoTo suite
rs.Name = rs.Range("A1")
suite:
Next rs

End Sub


Problème : si le nom est déjà créé : Plantage

golgue

XLDnaute Nouveau
Bonjour
A priori le code de création fonctionne. Pour mettre la feuille à la fin :

Sub copiefeuille()
'
' copiefeuille Macro
'

'
Sheets("Modele").Select
Sheets("Modele").Copy After:=Worksheets(Worksheets.Count)

End Sub

a+
Merci chalet53,
ca fonctionne, et pour ce qui est de la macro pour renommer la feuille, tu as une idée ;-)
 

Pièces jointes

  • CALENDRIER COMMISSAIRES 2020 excel.xlsm
    184.4 KB · Affichages: 2

CHALET53

XLDnaute Barbatruc
Avant de créer la feuille, il faut choisir un rallye en A1 sur la feuille Modele (liste déroulante)
et exécuter le programme Nouveau Rallye et ensuite le programme : Renommer

Sub RenameSheet()

Dim rs As Worksheet

For Each rs In Sheets
If rs.Name = "Feuil1" Or rs.Name = "Modele" Or rs.Name = "RALLYE" Then GoTo suite
rs.Name = rs.Range("A1")
suite:
Next rs

End Sub


Problème : si le nom est déjà créé : Plantage
 

golgue

XLDnaute Nouveau
Avant de créer la feuille, il faut choisir un rallye en A1 sur la feuille Modele (liste déroulante)
et exécuter le programme Nouveau Rallye et ensuite le programme : Renommer

Sub RenameSheet()

Dim rs As Worksheet

For Each rs In Sheets
If rs.Name = "Feuil1" Or rs.Name = "Modele" Or rs.Name = "RALLYE" Then GoTo suite
rs.Name = rs.Range("A1")
suite:
Next rs

End Sub


Problème : si le nom est déjà créé : Plantage
Super tu est un génie, merci encore