Autres Probleme de macro qui ne fonctionne plus

[golgue]

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.

 

[CHALET53]

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+

 

[golgue]

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 ;-)

 

[CHALET53]

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]

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