Suppression de toutes les noms de celluleRésolu

Question

Bonjour a tous,

Je voudrais supprimer tous les noms donnés à des cellules dan un fichier excel.

Existe-t-il une formule du genre :

ActiveWorkbook.Names( all ).Delete

Merci d'avance.

canichon · Accepted Answer

La bonne réponse ( avec aménagement perso ) était :

Dim j As Long
f = ActiveWorkbook.Names.Count

If f <> 0 Then
        For j = 1 To f
            nomj = ActiveWorkbook.Names(1).Name
            ActiveWorkbook.Names(nomj).Delete
        Next j
End If

Merci a toi Mortalino pour ton aide précieuse.

mortalino · Answer

Salut,

essaie ce code :

Sub test()
Dim i As Long

If ActiveWorkbook.Names.Count <> 0 Then
    For i = 0 To ActiveWorkbook.Names.Count - 1
        ActiveWorkbook.Names(i).Delete
    Next i
End If

End Sub

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à

canichon · Answer

marche pas...

"i" dans ActiveWorkbook.Names(i).Delete doit correspondre au nom du nom et non pas à son numéro...

mortalino · Answer

Pas forcémment : nom de type string, ou Index de type long.

Sub test()
Dim i As Long

If ActiveWorkbook.Names.Count <> 0 Then
    For i = ActiveWorkbook.Names.Count To 1 Step -1 '*** modif ici
    ActiveWorkbook.Names(i).Delete
        'MsgBox ActiveWorkbook.Names(i).Name
    Next i
End If

End Sub

Testé, et ça fonctionne !

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à

mortalino · Answer

De rien, ta façon est un peu plus lourde quand même.
Dans ton cas, pense à déclarer Dim nomj As String, f As Long

Bonne prog !

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à

Suppression de toutes les noms de cellule

5 réponses

Votre réponse

Discussions similaires