Code VBA - changer le nom de la feuille

Mike0139 Messages postés 26 Statut Membre -  
Mike0139 Messages postés 26 Statut Membre -
Hello,

je rencontre un problème après l'enregistrement d'une macro. Comme vous le verrez, je souhaite automatiser une tâche mais le VBA n'accepte pas le changement du nom de la feuille.

Lorsque que clique sur le bouton feuil1, je devrais avoir une nouvelle feuille renommée "lundi".

Voici le lien :

https://mon-partage.fr/f/IL0iISrl/

Merci d'avance de votre support,

Mickael
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

où en es-tu avec ce post?

https://forums.commentcamarche.net/forum/affich-36415445-aide-sur-code-vba

0
Mike0139 Messages postés 26 Statut Membre
 
Hello,

J'ai dû envoyer le fichier sans code VBA. C'edt le deuxième projet sur lequel je travail et hier je n'ai pas eu le temps de tester le code dans ton lien, mais je me mettrais dessus de nouveau à partir de Lundi. Je te tiendrais au courant dans l'autre conversation une fois testé.

Concernant ma demande ci-dessus, tu peux m'aider sur ce sujet?

Merci d'avance de ton support,

Mickael
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > Mike0139 Messages postés 26 Statut Membre
 
Voir ceci:

https://excel-malin.com/tutoriels/vba-tutoriels/vba-ajouter-feuille-au-classeur/

ce qui donne cela: 

Sub Macro1_test()
'https://excel-malin.com/tutoriels/vba-tutoriels/vba-ajouter-feuille-au-classeur/
    Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Lundi"
    ActiveCell.FormulaR1C1 = "lundi"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "mardi"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "mercredi"
    Range("C2").Select
End Sub


j'ai repris ton code. Mais il faut éviter les Select: 

Sub Macro1_test()
'https://excel-malin.com/tutoriels/vba-tutoriels/vba-ajouter-feuille-au-classeur/
    Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Lundi"
    Range("A1").Value = "lundi"
    Range("B1").Value = "mardi"
    Range("C1").Value = "mercredi"
End Sub


comme ceci

0
Réponse 2 / 2
Mike0139 Messages postés 26 Statut Membre
 
Salut Le Pivert,

merci beaucoup pour les informations. ça marche comme je le souhaitais. Les "select" que tu mentionnes font partis de l'enregistrement de la macro, c'est pas moi qui les choisis :)

je continues donc sur ce projet et reviendrais sûrement vers toi très prochainement.

Encore merci :)
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses