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:="=Feuil1!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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
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" a écrit dans le 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.
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" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news:OzOVZcfLIHA.4808@TK2MSFTNGP05.phx.gbl...
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.
fait il l'affaire ? -- http://www.excelabo.net/mpfe/connexion.php http://dj.joss.free.fr/trombine.htm Avec plaisir Philippe.R "Patrick BASTARD" a écrit dans le 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
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.
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.
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
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. :-(
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.
:-(
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
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. :-(
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.
:-(
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. :-(
