Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Test sur un InputBox : tester la validité d'un nom de zone.

Test sur un InputBox : tester la validité d'un nom de zone.

18 réponses
Avatar
Patrick BASTARD
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.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Daniel.C
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.



Avatar
Jacky
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
'------------


--
Salutations
JJ


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



Avatar
Patrick BASTARD
Bonsoir, *Daniel*

A4, c'est le nom d'une cellule, donc réservé.


Oui, et c'est la raison pour laquelle j'ai pris cet exemple.
L'objet de la question est : comment empêcher l'utilisateur d'entrer un nom
interdit par Excel .

--
Bien amicordialement,
P. Bastard

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

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.




Avatar
Patrick BASTARD
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.




Avatar
Jacky
Re...
Bizarre.....
Et ici:
http://cjoint.com/?mqvkd44cti

--
Salutations
JJ


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








Avatar
Patrick BASTARD
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.








Avatar
Jacky
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" 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.












Avatar
Jacky
Re...
Avec A1, j'ai bien ceci:
http://cjoint.com/?mqwB2Sy5sw

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












Avatar
François
Bonjour,

Sur XL 2000, cela fonctionne aussi avec A4 comme avec A1 ...

François

"Jacky" a écrit dans le message de news:
%
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" 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.
















Avatar
Patrick BASTARD
re, *Jacky*

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


J'ai essayé un Application.EnableEvents = True au cas où, mais sans succès.

Attendons donc d'autres avis.



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.












1 2