VBA - Nouveau nom, Définir

Le
Patrick BASTARD
Bonsoir à tous.

Je cherche à modifier la dernière ligne du code suivant pour ouvrir la boite
de dialogue "Insertion, Nom, Définir"
afin de permettre à l'utilisateur de choisir le nom de la nouvelle zone.
**********************
Sub AjouteZone()
Application.Goto Reference:="Base"
Selection.Copy
Range("A9").Select '1 ligne après la dernière
utilisée
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="sstt01",
RefersToR1C1:="þuil1!R9C1:R15C6"
End Sub
**********************
L'enregistreur ne m'est d'aucune aide.
Une idée ?

D'avance, merci.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5064981
Bonsoir Patrick,

Application.Dialogs(xlDialogDefineName).Show

fait il l'affaire ?
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Patrick BASTARD" message de news:

Bonsoir à tous.

Je cherche à modifier la dernière ligne du code suivant pour ouvrir la
boite de dialogue "Insertion, Nom, Définir"
afin de permettre à l'utilisateur de choisir le nom de la nouvelle zone.
**********************
Sub AjouteZone()
Application.Goto Reference:="Base"
Selection.Copy
Range("A9").Select '1 ligne après la dernière
utilisée
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="sstt01",
RefersToR1C1:="þuil1!R9C1:R15C6"
End Sub
**********************
L'enregistreur ne m'est d'aucune aide.
Une idée ?

D'avance, merci.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Patrick BASTARD
Le #5064931
Merci, *Philippe*

Application.Dialogs(xlDialogDefineName).Show
fait il l'affaire ?


Oui, Philippe, tout à fait...
...Sauf que la boite met automatiquement dans "Fait référence à" une zone de
type :
='L9C1':'L18C5'
et que la validation est impossible, sauf à changer la source, ce que
l'utilisateur final ne saura pas forcément faire.
:-(
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.


Bonsoir à tous.

Je cherche à modifier la dernière ligne du code suivant pour ouvrir
la boite de dialogue "Insertion, Nom, Définir"
afin de permettre à l'utilisateur de choisir le nom de la nouvelle
zone. **********************
Sub AjouteZone()
Application.Goto Reference:="Base"
Selection.Copy
Range("A9").Select '1 ligne après la
dernière utilisée
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="sstt01",
RefersToR1C1:="þuil1!R9C1:R15C6"
End Sub
**********************
L'enregistreur ne m'est d'aucune aide.
Une idée ?

D'avance, merci.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.




isabelle
Le #5064901
bonjour Patrick,

si c'est juste pour que l'utilisateur ai le choix d'un nom, tu pourrais utiliser un InputBox,

LeNom = InputBox("Choisir un nom")
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:="þuil1!" & Range("A1:C10").Address

isabelle


Merci, *Philippe*

Application.Dialogs(xlDialogDefineName).Show
fait il l'affaire ?


Oui, Philippe, tout à fait...
...Sauf que la boite met automatiquement dans "Fait référence à" une zone de
type :
='L9C1':'L18C5'
et que la validation est impossible, sauf à changer la source, ce que
l'utilisateur final ne saura pas forcément faire.
:-(



Patrick BASTARD
Le #5064871
Merci, *isabelle*

Cette solution me convient bien.
Il me reste à remplacer
RefersTo:="þuil1!" & Range("A1:C10").Address
par l'adresse réelle de la nouvelle zone.
Le but étant d'ajouter et de nommer des zones les unes sous les autres en f°
des besoins.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
bonjour Patrick,

si c'est juste pour que l'utilisateur ai le choix d'un nom, tu
pourrais utiliser un InputBox,
LeNom = InputBox("Choisir un nom")
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:="þuil1!" &
Range("A1:C10").Address
isabelle


Merci, *Philippe*

Application.Dialogs(xlDialogDefineName).Show
fait il l'affaire ?


Oui, Philippe, tout à fait...
...Sauf que la boite met automatiquement dans "Fait référence à" une
zone de type :
='L9C1':'L18C5'
et que la validation est impossible, sauf à changer la source, ce que
l'utilisateur final ne saura pas forcément faire.
:-(





Publicité
Poster une réponse
Anonyme