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
papou
Bonjour Function NomsPresents(Classeur$) n = Workbooks(Classeur).Names.Count NomsPresents = IIf(n > 0, "Des noms sont définis", " Pas de noms définis") End Function Sub Test() MsgBox NomsPresents(ThisWorkbook.Name) End Sub
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
If ActiveWorkbook.Names.Count = 0 Then
-- Merci pour vos réponses.
Bonjour
Function NomsPresents(Classeur$)
n = Workbooks(Classeur).Names.Count
NomsPresents = IIf(n > 0, "Des noms sont définis", " Pas de noms définis")
End Function
Sub Test()
MsgBox NomsPresents(ThisWorkbook.Name)
End Sub
Cordialement
Pascal
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
1603994E-2291-48A7-AC13-74C33660E079@microsoft.com...
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
Bonjour Function NomsPresents(Classeur$) n = Workbooks(Classeur).Names.Count NomsPresents = IIf(n > 0, "Des noms sont définis", " Pas de noms définis") End Function Sub Test() MsgBox NomsPresents(ThisWorkbook.Name) End Sub
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
If ActiveWorkbook.Names.Count = 0 Then
-- Merci pour vos réponses.
MichDenis
| Est-il possible de tester si un classeur comporte des noms ???
La ligne devrait être : = 0 devient >0 | If ActiveWorkbook.Names.Count > 0 Then
Cette ligne de code devrait fonctionner correctement. Elle a cependant une faiblesse, si plusieurs classeurs sont ouverts, ta ligne de code refère au classeur actif et qu'est-ce qui se passe si le classeur actif n'est pas le bon pour la suite de ton code ?
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
If ActiveWorkbook.Names.Count = 0 Then
-- Merci pour vos réponses.
| Est-il possible de tester si un classeur comporte des noms ???
La ligne devrait être : = 0 devient >0
| If ActiveWorkbook.Names.Count > 0 Then
Cette ligne de code devrait fonctionner correctement.
Elle a cependant une faiblesse, si plusieurs classeurs sont ouverts,
ta ligne de code refère au classeur actif et qu'est-ce qui se passe
si le classeur actif n'est pas le bon pour la suite de ton code ?
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
1603994E-2291-48A7-AC13-74C33660E079@microsoft.com...
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
| Est-il possible de tester si un classeur comporte des noms ???
La ligne devrait être : = 0 devient >0 | If ActiveWorkbook.Names.Count > 0 Then
Cette ligne de code devrait fonctionner correctement. Elle a cependant une faiblesse, si plusieurs classeurs sont ouverts, ta ligne de code refère au classeur actif et qu'est-ce qui se passe si le classeur actif n'est pas le bon pour la suite de ton code ?
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
If ActiveWorkbook.Names.Count = 0 Then
-- Merci pour vos réponses.
Yvan
Merci pour ta réponse.
Dis moi, n'aurais-tu pas une idée concernant mon message d'hier relatif à la gestion des accès à un disque réseau...
-- Merci pour vos réponses.
| Est-il possible de tester si un classeur comporte des noms ???
La ligne devrait être : = 0 devient >0 | If ActiveWorkbook.Names.Count > 0 Then
Cette ligne de code devrait fonctionner correctement. Elle a cependant une faiblesse, si plusieurs classeurs sont ouverts, ta ligne de code refère au classeur actif et qu'est-ce qui se passe si le classeur actif n'est pas le bon pour la suite de ton code ?
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
If ActiveWorkbook.Names.Count = 0 Then
-- Merci pour vos réponses.
Merci pour ta réponse.
Dis moi, n'aurais-tu pas une idée concernant mon message d'hier relatif à la
gestion des accès à un disque réseau...
--
Merci pour vos réponses.
| Est-il possible de tester si un classeur comporte des noms ???
La ligne devrait être : = 0 devient >0
| If ActiveWorkbook.Names.Count > 0 Then
Cette ligne de code devrait fonctionner correctement.
Elle a cependant une faiblesse, si plusieurs classeurs sont ouverts,
ta ligne de code refère au classeur actif et qu'est-ce qui se passe
si le classeur actif n'est pas le bon pour la suite de ton code ?
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
1603994E-2291-48A7-AC13-74C33660E079@microsoft.com...
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
Dis moi, n'aurais-tu pas une idée concernant mon message d'hier relatif à la gestion des accès à un disque réseau...
-- Merci pour vos réponses.
| Est-il possible de tester si un classeur comporte des noms ???
La ligne devrait être : = 0 devient >0 | If ActiveWorkbook.Names.Count > 0 Then
Cette ligne de code devrait fonctionner correctement. Elle a cependant une faiblesse, si plusieurs classeurs sont ouverts, ta ligne de code refère au classeur actif et qu'est-ce qui se passe si le classeur actif n'est pas le bon pour la suite de ton code ?
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
If ActiveWorkbook.Names.Count = 0 Then
-- Merci pour vos réponses.
Yvan
Merci beaucoup. A plus, -- Merci pour vos réponses.
Bonjour Function NomsPresents(Classeur$) n = Workbooks(Classeur).Names.Count NomsPresents = IIf(n > 0, "Des noms sont définis", " Pas de noms définis") End Function Sub Test() MsgBox NomsPresents(ThisWorkbook.Name) End Sub
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
If ActiveWorkbook.Names.Count = 0 Then
-- Merci pour vos réponses.
Merci beaucoup. A plus,
--
Merci pour vos réponses.
Bonjour
Function NomsPresents(Classeur$)
n = Workbooks(Classeur).Names.Count
NomsPresents = IIf(n > 0, "Des noms sont définis", " Pas de noms définis")
End Function
Sub Test()
MsgBox NomsPresents(ThisWorkbook.Name)
End Sub
Cordialement
Pascal
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
1603994E-2291-48A7-AC13-74C33660E079@microsoft.com...
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
Merci beaucoup. A plus, -- Merci pour vos réponses.
Bonjour Function NomsPresents(Classeur$) n = Workbooks(Classeur).Names.Count NomsPresents = IIf(n > 0, "Des noms sont définis", " Pas de noms définis") End Function Sub Test() MsgBox NomsPresents(ThisWorkbook.Name) End Sub
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de tester si un classeur comporte des noms ???
Si j'utilise la syntaxe suivante, je n'obtiens rien :
