Insertion / nom / définir plus rapidement

[nat54]

Bonjour,

Voilà j'ai 80 plages à nommer et je pensais qu'il y aurait un moyen (hors vba si possible) de les intégrer dans insertion / nom / définir

j'ai
- en colonne A : les noms
- en colonne B : plages concernées

quand je fais : insertion / nom / créer
colonne de gauche

ca me crée effectivement les noms mais sans les plages associées 😕

Merci !

 

[Roland_M]

Re : Insertion / nom / définir plus rapidement

bonjour

je ne vois qu'un moyen,
avec une routine VBA que tu exécuteras une fois seulement et que tu supprimeras après
on pratique souvent comme cela pour ce faciliter la tâche !

 

[MJ13]

Re : Insertion / nom / définir plus rapidement

Bonjour Nat, Roland

PAs sur que cela puisse convenir mais avec un tableau:

Ctrl+* puis ctrl+Shift+F3

Sinon en Vba,cela ne doit pas être très compliqué. Avec un petit fichier, la communauté pourrait le faire facilement.

 

[nat54]

Re : Insertion / nom / définir plus rapidement

j'ai retrouvé ça dans ma besace excel 😀

Sub zoneNommee()

On Error Resume Next

Sheets("formules_nommees").Select
Range("c2").Select ' 1ère cellule avec nom à insérer
While ActiveCell.Value <> "" ' boucle tant que ce n'est pas vide
ActiveWorkbook.Names.Add Name:=Selection.Value, RefersTo:=ActiveCell.Offset(0, 1).Value

If Err.Number = 0 Then
cpt = cpt + 1
Err.Clear
End If

ActiveCell.Offset(1, 0).Select
Wend
MsgBox cpt & " Zones ajoutees."
End Sub



Sub SupprZoneNommee()
For Each Zone In ActiveWorkbook.Names
Zone.Delete
Next
End Sub



ca marche bien

seul hic : ca met des " devant la plage et " à la fin donc ca ne marche pas

il faut présenter comment dans excel les 2 colonnes ? au format texte ?

edit : MJ13 je regarde

 

[nat54]

Re : Insertion / nom / définir plus rapidement

@ MJ 13 : oui mais non .. moi ce que je souhaite ce n'était peut-être pas clair

c'est par exemple :
INF_MO_1197 DECALER(NHC_1197_CECA!$D$7;;;;Global_UF_blocs!$P$3)
INF_MAT_1197 DECALER(NHC_1197_CECA!$D$8;;;;Global_UF_blocs!$P$3)
IBO_MO_1197 DECALER(NHC_1197_CECA!$D$9;;;;Global_UF_blocs!$P$3)
IBO_MAT_1197 DECALER(NHC_1197_CECA!$D$10;;;;Global_UF_blocs!$P$3)
ASAP_MO_1197 DECALER(NHC_1197_CECA!$D$11;;;;Global_UF_blocs!$P$3)
ASAP_MAT_1197 DECALER(NHC_1197_CECA!$D$12;;;;Global_UF_blocs!$P$3)
ASH_MO_1197 DECALER(NHC_1197_CECA!$D$13;;;;Global_UF_blocs!$P$3)
ASH_MAT_1197 DECALER(NHC_1197_CECA!$D$14;;;;Global_UF_blocs!$P$3)

c'est pour des graphiques ensuite

 

[MJ13]

Re : Insertion / nom / définir plus rapidement

Re

Encore une fois.

Le monde des noms n'est pas toujours simple.

Alors en mettant un fichier, ce sera plus simple à comprendre et cela aidera la communauté (enfin ce que je pense qu'elle devrait être 😱).

En plus, ce concept de graphique avec Décaler pourrait en aider plus d'un (dont moi d'ailleurs 😉).

 

[mutzik]

Re : Insertion / nom / définir plus rapidement

bonjour,

voila le code que j'obtiens avec l'enregistreur de macros
ActiveWorkbook.Names.Add Name:="ttt", RefersToR1C1:= _
"=OFFSET(Feuil1!R8C3,,,COUNTA(Feuil1!C3)-1)"

 

[mutzik]

Re : Insertion / nom / définir plus rapidement

re, sinon, un code qui fonctionne :
Sub Macro1()
Dim a
For a = 1 To 2
ActiveWorkbook.Names.Add Name:=Range("F" & a).Value, RefersToR1C1:="=Feuil1!" & Range("G" & a).Value
Next a

End Sub

!!!!!!!!!! les valeurs d'adresse dans ta feuille excel doivent être en R1C1:R2C2 et non C5:F8 (par exemple)

 

[nat54]

Re : Insertion / nom / définir plus rapidement

Re

Encore une fois.

Le monde des noms n'est pas toujours simple.

Alors en mettant un fichier, ce sera plus simple à comprendre et cela aidera la communauté (enfin ce que je pense qu'elle devrait être 😱).

En plus, ce concept de graphique avec Décaler pourrait en aider plus d'un (dont moi d'ailleurs 😉).

je teste et reviens vers vous

concernant les graphiques avec decaler() j'ai prévu de faire un tutoriel
car à chaque fois je galère !

 

[nat54]

Re : Insertion / nom / définir plus rapidement

Ci-joint le fichier avec uniquement les zones que je souhaite nommer
mais là si l'on regarde il y a des " avant et après la formule 😕

@ mutzik : pas compris comment faire fonctionner..

 

[nat54]

Re : Insertion / nom / définir plus rapidement

J'ai retrouvé dans un vieux fichier d'où je bossais avant

faut écrire en anglais donc j'ai modifié

par contre faudrait replacer les ; par des , et je n'y arrive pas, bizarre..

 

[MJ13]

Re : Insertion / nom / définir plus rapidement

Re:

SI j'ai bien compris (quoique la je ne suis pas sur du tout)
A tester en choisissant un nom:

Sub nom_choisi()
MsgBox Mid(Names(ActiveCell.Value), 3, Len(Names(ActiveCell.Value)) - 3)
End Sub

 

[nat54]

Re : Insertion / nom / définir plus rapidement

C'est bon le code fonctionne parfaitement

et pour remplacer les ; par , j'ai utilisé
=SUBSTITUE(b1;";";"1")

le tableau doit être présenté de la manière suivante :
- en colonne A : les noms
- en colonne B : les plages formulées à l’anglaise. Pour cela :
à écrire les formules en français avec =decaler( … ; … ; …)
à faire édition / remplacer decaler par offset
à en colonne C : =SUBSTITUE(A1;" ;";",")

puis lancer la macro ci-dessus

 

[hoerwind]

Re : Insertion / nom / définir plus rapidement

Bonjour, salut les autres,

Je ne vois vraiment pas le problème !

Sélectionner les deux colonnes.
Menu Insertion - Nom - Créer - cocher "colonne de gauche" - OK

Menu Insertion - Nom - Définir
La liste des noms sont ceux de la colonne de gauche
"Fait référence à" sont les références des cellules de la colonne de droite

 

[MJ13]

Re : Insertion / nom / définir plus rapidement

Re, Bonjour Hoerwind.

Je ne vois vraiment pas le problème !

Le souci est que souvent on a un problème qui peut-être compris de différentes façons.

Si on met un fichier avec les tenants et les aboutissants, c'est comme même plus simple à comprendre et plus utile pour tout le monde.

C'est pour cela qu'en ce moment le forum me laisse de plus en plus perplexe.

Je pense que cela doit être un problème de civilisation 🙂.