Pour que l'onglet porte le nom d'une cellule
Résolu/Fermé
ec163
Messages postés
147
Date d'inscription
jeudi 22 août 2013
Statut
Membre
Dernière intervention
27 septembre 2022
-
22 août 2014 à 12:10
ec163 Messages postés 147 Date d'inscription jeudi 22 août 2013 Statut Membre Dernière intervention 27 septembre 2022 - 22 août 2014 à 15:03
ec163 Messages postés 147 Date d'inscription jeudi 22 août 2013 Statut Membre Dernière intervention 27 septembre 2022 - 22 août 2014 à 15:03
A voir également:
- Pour que l'onglet porte le nom d'une cellule
- Aller à la ligne dans une cellule excel - Guide
- Trouver un numéro de portable avec un nom ✓ - Forum Mobile
- Excel nom onglet dans cellule ✓ - Forum Excel
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- Nom de l'adresse ✓ - Forum Réseaux sociaux
4 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
22 août 2014 à 12:24
22 août 2014 à 12:24
Bonjour
sélectionnez l'onglet clic droit visualiser le code et collez ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value
End Sub
la feuille prendra le nom que vous entrerez en A1.. ou autre si vous modifier l'adresse A1 dans le libellé
crdlmnt
sélectionnez l'onglet clic droit visualiser le code et collez ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value
End Sub
la feuille prendra le nom que vous entrerez en A1.. ou autre si vous modifier l'adresse A1 dans le libellé
crdlmnt
ec163
Messages postés
147
Date d'inscription
jeudi 22 août 2013
Statut
Membre
Dernière intervention
27 septembre 2022
32
22 août 2014 à 13:31
22 août 2014 à 13:31
Merci ça marche très bien, en revanche je n'avais pas posé ma question correctement, la case en question n'est pas à l'ouverture du document, complétée, ce qui fait bugué la macro, pourriez vous compléter votre formule en en précisant que si la cellule est vide alors l'onglet reste appelé Feuil 1, par avance merci.
WeaponEDGE
Messages postés
113
Date d'inscription
vendredi 18 juillet 2014
Statut
Membre
Dernière intervention
21 novembre 2014
9
Modifié par WeaponEDGE le 22/08/2014 à 13:53
Modifié par WeaponEDGE le 22/08/2014 à 13:53
Bonjour,
Celà dit si vous mettez le code de Vaucluse directement en "Feuil1" au lieu d'un module ou à l'ouverture du Fichier alors la Macro s'activera à chaque fois qu'une donnée sera modifiée sur la feuille 1.
If Range("A1") = "" then
Activesheet.Name = "Feuil1"
else
Activesheet.Name = Range("A1").text
end if
Celà dit si vous mettez le code de Vaucluse directement en "Feuil1" au lieu d'un module ou à l'ouverture du Fichier alors la Macro s'activera à chaque fois qu'une donnée sera modifiée sur la feuille 1.
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié par ccm81 le 22/08/2014 à 13:55
Modifié par ccm81 le 22/08/2014 à 13:55
Bonjour
Pour compléter la proposition de Vaucluse que je salue au passage, et, pour éviter que l'affectation du nom à la feuille soit exécuté à chaque changement dans la feuille
Cordialement
Pour compléter la proposition de Vaucluse que je salue au passage, et, pour éviter que l'affectation du nom à la feuille soit exécuté à chaque changement dans la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) is Nothing Then
If Target.Value <> "" Then ActiveSheet.Name = Target.Value
End If
End Sub
Cordialement
ec163
Messages postés
147
Date d'inscription
jeudi 22 août 2013
Statut
Membre
Dernière intervention
27 septembre 2022
32
22 août 2014 à 15:03
22 août 2014 à 15:03
Merci, à vous deux.............................rapidité efficacité, que du bonheur.
sujet clos!
ec163
sujet clos!
ec163
