Code VBA - changer le nom de la feuille
Mike0139
Messages postés
26
Statut
Membre
-
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
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
2 réponses
-
Bonjour,
où en es-tu avec ce post?
https://forums.commentcamarche.net/forum/affich-36415445-aide-sur-code-vba
-
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- 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
-
-
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 :)
