Insertion / nom / définir plus rapidement

Roland_M

XLDnaute Barbatruc

• 20 Janvier 2010

• #2

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 !

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Janvier 2010

• #3

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.

 

Pièces jointes

• Nomme_Rapidement.xls

  17 KB · Affichages: 135

Dernière édition: 20 Janvier 2010

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 20 Janvier 2010

• #4

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

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 20 Janvier 2010

• #5

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Janvier 2010

• #6

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 😉).

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 20 Janvier 2010

• #7

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)"

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 20 Janvier 2010

• #8

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)

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 20 Janvier 2010

• #9

Re : Insertion / nom / définir plus rapidement

MJ13 à dit:

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 😉).

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 20 Janvier 2010

• #10

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..

 

Pièces jointes

• formules_nommees.xls

  42 KB · Affichages: 83
• formules_nommees.xls

  42 KB · Affichages: 89
• formules_nommees.xls

  42 KB · Affichages: 103

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 20 Janvier 2010

• #11

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..

 

Pièces jointes

• formules_nommees.xls

  43 KB · Affichages: 94
• formules_nommees.xls

  43 KB · Affichages: 95
• formules_nommees.xls

  43 KB · Affichages: 109

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Janvier 2010

• #12

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:

Code:

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

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 20 Janvier 2010

• #13

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

 

Dernière édition: 20 Janvier 2010

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 20 Janvier 2010

• #14

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Janvier 2010

• #15

Re : Insertion / nom / définir plus rapidement

Re, Bonjour Hoerwind.

Je ne vois vraiment pas le problème !

Cliquez pour agrandir...

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 🙂.

 

Vote positif 0 Vote négatif