Savoir si un nom existe dans un classeur

[MJ13]

Bonjour à tous

Je cherche le moyen, en VBA, de savoir si un nom existe dans un classeur (Nom que l'on crée avec \Insertion \Nom \Définir).

Exemple: Si le nom NTCD qui est un nombre de 1 à n existe, je veut l'incrémenter avec NTCD+1 sinon, je veux le créer avec NTCD = 1.

Merci d'avance pour votre aide.

 

[job75]

Re : Savoir si un nom existe dans un classeur

Bonjour MJ13,

On utilise le contrôle d'erreur :

Sub Incremente()
Dim n As Integer, Vnom As Integer
On Error Resume Next
n = 10 'valeur maxi
Vnom = [NTCD]
ThisWorkbook.Names.Add "NTCD", Application.Min(Vnom + 1, n)
End Sub

A+

 

[MJ13]

Re : Savoir si un nom existe dans un classeur

Re à tous

Bon j'ai fait cela, mais cela m'oblige a traiter une erreur.

Sub teste_NTCD()
' Macro enregistrée le 17/12/2009 par MJ
    On Error GoTo Cree_NTCD
    'Stop
    LenNTCD = Len(Names("NTCD"))
    NTCDnew = Val(Mid(Names("NTCD"), 2, LenNTCD - 1)) + 1
    'MsgBox NTCDnew
    If Left(ActiveWorkbook.Names("NTCD"), 1) = "=" Then ActiveWorkbook.Names.Add Name:="NTCD", RefersToR1C1:="=" & NTCDnew
    Exit Sub
Cree_NTCD:
ActiveWorkbook.Names.Add Name:="NTCD", RefersToR1C1:="=1"
End Sub

Oups Bonjour Job. pas rafraîchi, je teste.
Merci, cela a l'air plus simple.

 

[MJ13]

Re : Savoir si un nom existe dans un classeur

Re

Merci Job, cela fonctionne parfaitement et c'est si simple (quand on sait).

Application.Min(Vnom + 1, n)

Je la connaissait pas celle la.

Bonne journée 🙂.