Pour que l'onglet porte le nom d'une cellule
Résolu
ec163
Messages postés
182
Statut
Membre
-
ec163 Messages postés 182 Statut Membre -
ec163 Messages postés 182 Statut Membre -
Bonjour,
j'aimerais savior s'il existe un moyen de renommer l'onglet"Feuil1" avec ce qui est contenu dans la cellule B1 (par exemple). par avance merci de vos réponses.
Je suppose qu'il existe des macros mais je ne pratique pas le VBA ou très peu :-(
j'aimerais savior s'il existe un moyen de renommer l'onglet"Feuil1" avec ce qui est contenu dans la cellule B1 (par exemple). par avance merci de vos réponses.
Je suppose qu'il existe des macros mais je ne pratique pas le VBA ou très peu :-(
A voir également:
- Pour que l'onglet porte le nom d'une cellule
- Rouvrir onglet fermé chrome - Guide
- Porte monnaie vinted - Guide
- Excel cellule couleur si condition texte - Guide
- Nom pour facebook stylé - Guide
- Bloquer une cellule excel - Guide
4 réponses
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
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.
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.
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
