Nom de cellules [Résolu]

Signaler
Messages postés
271
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
2 juin 2021
-
Messages postés
9861
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 juin 2021
-
Bonjour,
J'aimerais savoir si on peut nommer une cellules avec un texte suivi de la valeur d'une cellule.
Je m'explique de B2 à I2 j'ai des cellules qui indiquent les années à savoir de 2021 à 2028
B2 = 2021
C2 = 2022
D2 = 2023
ligne 10 je voudrais nommer les cellules
à savoir
b10 = total2021
C10 = total2022
D10 = total2023
etc
il faut donc qu'en b10 je puisse nommer le cellule ainsi : total et valeur b2
c10 = total et valeur C2
Bien sûr mon tableau est beaucoup plus important, ceci n'est qu'un exemple.
Merci
Configuration: Windows / Chrome 90.0.4430.212

9 réponses

Messages postés
3273
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
14 juin 2021
923
Bonjour,

="total"&B2

Si ça ne fonctionne pas, préciser ce qu'il y a en B2

Cordialement
Messages postés
271
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
2 juin 2021
30
merci papyLuc51
Cela ne marche pas, mais je me suis sans doute mal exprimé. Je veux renommer la B10 mais quand je vais dans le gestionnaire des noms, il ne veut pas de laque tu me proposes
Merci néanmoins et a+
Messages postés
3273
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
14 juin 2021
923
Salut à vous deux!

Effectivement, en voyant ton complément d'info et la réponse de ccm81 j'était loin de comprendre avec le premier jet. Tu as ta réponse c'est le principal.

Cordialement
Messages postés
9861
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 juin 2021
2 132
Bonjour à tous les deux

Peut être via une macro ?
https://www.cjoint.com/c/KEtqmvHGkuB

Cdlmnt
Messages postés
271
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
2 juin 2021
30
Super, cela correspond tout à fait à ce que je souhaitais. Je n'ai plus qu'à l'actualiser pour mon fichier.
Cela va me rendre un grand service
Bonne soirée
Et encore un très cordial merci
Messages postés
9861
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 juin 2021
2 132
De rien

et si tu modifies les vannées en ligne 2 un petit bout de code en plus pour renommer la ligne 10
https://www.cjoint.com/c/KEtqWzD70qB

RQ. Si tu as beaucoup de noms à fabriquer, on peut passer avec une boucle sur les colonnes pour simplifier le code

Cdlmnt
Messages postés
271
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
2 juin 2021
30
Salut
J'ai beaucoup avancé avec ta macro. Effectivement c'est du travail car j'ai 18 lignes qui font référence aux années. Mais j'y arrive. Je n'ai pas compris comment faire pour la boucle. Je ne comprends pas la macro. peux-tu me l'expliciter.
C'est pas un problème cela fonctionne avec la première macro et c'est le principal
Cdlmnt et bonne journée
Messages postés
9861
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 juin 2021
2 132
Messages postés
271
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
2 juin 2021
30
merci ccm81
je vais me débrouiller avec tes explications, mais d'ores et déjà ta première macro me satisfait tout à fait et répond à mes besoins même si c'est un peu de travail. Je m'en sors parfaitement.
je vais marqué cette discussion comme résolue
cdlmnt et à une autre fois peut-être
Messages postés
9861
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 juin 2021
2 132
Une autre solution avec un double-clic sur l'année qui va créer le nom en ligne 10, c'est à répéter 18 fois, mais c'est plus court que de traiter les colonnes une à une dans la macro

' un double-clic en ligne liann ajoute le nom en ligne linom
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim co As Long
If Not Intersect(Target, Rows(liann)) Is Nothing Then
  co = Target.Column
  ActiveWorkbook.Names.Add Name:="total" & Cells(liann, co).Value, RefersToR1C1:="=Feuil1!R" & linom & "C" & co
End If
ActiveCell.Offset(1, 0).Select
End Sub

https://www.cjoint.com/c/KEutdOyniOB

c'est toi qui vois

Bonne soirée