Crée un onglet qui se renomme avec la valeur indiquer dan celule
Jalarius
-
Jalarius -
Jalarius -
Bonjour,
Je cherche à faire l'ajout d'un onglet à l'aide d'une macro VBA. J'aimerais qu'elle se renomme de façons automatiques en fonction de la valeur des cellules que je sélectionnerait et qu'en plus la nouvelle copie de l'onglet inclurait cette même valeur dans la cellule fusionnée (I1;M1).
J'ai donc crée un onglet menu afin d'y ajouter les valeur et des bouton pour les usager.
Ma copie d'onglet fonctionne bien, mais de renommer les onglets avec ce que je cherche à faire, je n'y arrive pas.
Voici un exemple du fichier http://cjoint.com/?EECq2sQZQ4i
Je cherche à faire l'ajout d'un onglet à l'aide d'une macro VBA. J'aimerais qu'elle se renomme de façons automatiques en fonction de la valeur des cellules que je sélectionnerait et qu'en plus la nouvelle copie de l'onglet inclurait cette même valeur dans la cellule fusionnée (I1;M1).
J'ai donc crée un onglet menu afin d'y ajouter les valeur et des bouton pour les usager.
Ma copie d'onglet fonctionne bien, mais de renommer les onglets avec ce que je cherche à faire, je n'y arrive pas.
Voici un exemple du fichier http://cjoint.com/?EECq2sQZQ4i
A voir également:
- Crée un onglet qui se renomme avec la valeur indiquer dan celule
- Cree un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Rouvrir un onglet fermé - Guide
- Comment cree un compte gmail - Guide
- Créer un lien pour partager des photos - Guide
1 réponse
Pour renommer l'onglet il suffit d'utiliser la commande Sheets("Feuil1").Name = "truc"
et si tu veux un nom qui est dans une cellule tu donne les coordonnées de ta cellule par exemple sheets("feuil1").range("A2") à la place de "truc"
Et pour entrer ta valeur dans la cellule que tu souhaite
sheets("feuil1").range("I1:M1").merge 'si tu souhaite fusionner automatiquement
sheets("feuil1").range("I1")=activesheet.name
Est ce que ça répond à ton problème?
et si tu veux un nom qui est dans une cellule tu donne les coordonnées de ta cellule par exemple sheets("feuil1").range("A2") à la place de "truc"
Et pour entrer ta valeur dans la cellule que tu souhaite
sheets("feuil1").range("I1:M1").merge 'si tu souhaite fusionner automatiquement
sheets("feuil1").range("I1")=activesheet.name
Est ce que ça répond à ton problème?
J'ai trouvé
Pour ceux que cela intéresserait voici mon fichier test et la ma formule que j'ai trouver et comment la comprendre
ActiveCell.Select
Selection.Copy
Sheets("Template").Select
Range("N1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("N1").Text
Voici ce que mon objectif était :
1. À partir de l'onglet "Menu", sélectionner la valeur que vous voulez créer (Exemple cellule ("H11")) et "cliquer" sur le "bouton" "Nouvel Onglet".
2. Copier la cellule sélectionnée dans l'onglet "Menu" (en mode de référence relative) vers l'onglet "Template" a la cellule ("N1") (SANS la référence relative).
3. Copier l'onglet "Template" et le placer en dernier de tous les onglets.
4. Renommer l'onglet avec la valeur se trouvant dans la cellule ("N1")
Voila!!