Code VBA - changer le nom de la feuille

Fermé
Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022 - 17 janv. 2020 à 15:30
Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022 - 20 janv. 2020 à 12:37
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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
17 janv. 2020 à 15:37
0
Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022
18 janv. 2020 à 12:02
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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022
Modifié le 18 janv. 2020 à 12:11
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
Mike0139 Messages postés 26 Date d'inscription jeudi 8 mars 2018 Statut Membre Dernière intervention 4 janvier 2022
20 janv. 2020 à 12:37
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