Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit référencé
LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4" par
exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit référencé
LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4" par
exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit référencé
LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4" par
exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit référencé
LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4" par
exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit référencé
LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4" par
exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit référencé
LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4" par
exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
A4, c'est le nom d'une cellule, donc réservé.
Daniel
"Patrick BASTARD" a écrit dans le
message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
A4, c'est le nom d'une cellule, donc réservé.
Daniel
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
A4, c'est le nom d'une cellule, donc réservé.
Daniel
"Patrick BASTARD" a écrit dans le
message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans le
message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans le
message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans le
message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans le
message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: OINX70BQIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Climat local ?
Y fait peut-être trop froid
Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Climat local ?
Y fait peut-être trop froid
Bonjour, *Jacky*
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: OINX70BQIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Climat local ?
Y fait peut-être trop froid
Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour, *Jacky*
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: OINX70BQIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re....
Je n'ai pas cette erreur ( xl 2003 )
Et le "On Error Resume Next" devrait le gérerClimat local ?
Y fait peut-être trop froid
;o))
Je vois pas trop, j'ai testé en selection multiple, et même là, cela
fonctionne.
Si quelques z'autres pouvaient tester.....
--
Salutations
JJ
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re....
Je n'ai pas cette erreur ( xl 2003 )
Et le "On Error Resume Next" devrait le gérer
Climat local ?
Y fait peut-être trop froid
;o))
Je vois pas trop, j'ai testé en selection multiple, et même là, cela
fonctionne.
Si quelques z'autres pouvaient tester.....
--
Salutations
JJ
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eS3fMaCQIHA.3400@TK2MSFTNGP03.phx.gbl...
Bonjour, *Jacky*
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: OINX70BQIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re....
Je n'ai pas cette erreur ( xl 2003 )
Et le "On Error Resume Next" devrait le gérerClimat local ?
Y fait peut-être trop froid
;o))
Je vois pas trop, j'ai testé en selection multiple, et même là, cela
fonctionne.
Si quelques z'autres pouvaient tester.....
--
Salutations
JJ
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit dans
le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ", "_"))
On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type" A4"
par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re....
Je n'ai pas cette erreur ( xl 2003 )
Je tourne sous Excel 2002 SP3
Et le "On Error Resume Next" devrait le gérer
Ben oui ...mais non !!!
Climat local ?
Y fait peut-être trop froid
;o))
Je vois pas trop, j'ai testé en selection multiple, et même là, cela
fonctionne.
Si quelques z'autres pouvaient tester.....
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans
le message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ",
"_")) On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit
dans le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ",
"_")) On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type"
A4" par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re....
Je n'ai pas cette erreur ( xl 2003 )
Je tourne sous Excel 2002 SP3
Et le "On Error Resume Next" devrait le gérer
Ben oui ...mais non !!!
Climat local ?
Y fait peut-être trop froid
;o))
Je vois pas trop, j'ai testé en selection multiple, et même là, cela
fonctionne.
Si quelques z'autres pouvaient tester.....
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eS3fMaCQIHA.3400@TK2MSFTNGP03.phx.gbl...
Bonjour, *Jacky*
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans
le message de news: OINX70BQIHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re.....
Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ",
"_")) On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit
dans le message de news: OcT4KBBQIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ",
"_")) On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type"
A4" par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Re....
Je n'ai pas cette erreur ( xl 2003 )
Je tourne sous Excel 2002 SP3
Et le "On Error Resume Next" devrait le gérer
Ben oui ...mais non !!!
Climat local ?
Y fait peut-être trop froid
;o))
Je vois pas trop, j'ai testé en selection multiple, et même là, cela
fonctionne.
Si quelques z'autres pouvaient tester.....
"Patrick BASTARD" a écrit dans le
message de news:Bonjour, *Jacky*Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti
Si je saisis A1, j'obtiens :
Erreur d'exécution 1004
Nom non valide
Climat local ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
"Patrick BASTARD" a écrit dans
le message de news:Bonjour, *Jacky*
Merci de t'intéresser à mon cas.
Pas de changement, le msg d'erreur persiste.
:-(
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.Re.....Même objet, mais nouvelle question :
Même objet, et nouvelle réponse
;o))
'------------
Sub jj()
titre = "Définir un nom"
Do
LeNom = InputBox(titre)
If LeNom = "" Then Exit Sub
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ",
"_")) On Error Resume Next
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
titre = LeNom & Chr(10) & "Caractère interdit." & Chr(10) &
"Recommencez"
Loop Until Err = 0
End Sub
'------------
"Patrick BASTARD" a écrit
dans le message de news:Bonsoir à tous.
Même objet, mais nouvelle question :
Le but de ce code est de créer une zone nommée.
*****************
debut:
LeNom = InputBox("Définir un nom")
ActiveCell.Value = UCase(LeNom)
'Remplace les espaces par un underscore pour que le nom soit
référencé LeNom = UCase(Application.Substitute(LeNom, " ",
"_")) On Error GoTo debut
ActiveWorkbook.Names.Add Name:=LeNom, RefersTo:=Selection
******************
me renvoie une erreur 1004 en cas de nom interdit (Nom de type"
A4" par exemple), dernière ligne surlignée en jaune.
Pourquoi, m'sieurs-dames, qu'est-ce que j'ai fait de mal ?
D'avance (re) merci.
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.