Vérifier si cellule excel porte déja un nom

**Oaurelius** · 08/11/2005, 17h45

C'est un peut la suite de la question d'avant...

Comment je peux savoir si une cellule excel porte déja un nom?
Lorsque j'exécute la code...

Nom_Cell = ActiveCell.Name.Name
'PROBLEME SI LE NOM EST VIDE

Merci a demain pour pleins pleins de fun... encore :lol:

**ouskel'n'or** · 08/11/2005, 18h05

Hello, encore un pb ?
Ce soir, là, tout de suite, je m'en vais... Youpi !
essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With activeWorksheet.Range("F10")
    If ActiveWorkbook.Name <> "" then msgbox "Y'a un nom"
end with

Pas essayé... mais j'ai des craintes...

Tu nous diras demain à moins que zaza passe par là, elle se couche très tard...

A demain

**Megaxel** · 08/11/2005, 18h21

J'ai un petit truc pour toi: il faut d'abord vérifier si ta cellule est une référence de la collection des plages nommées:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub test()
 
    Dim Ok As Boolean
    Dim i As Integer
    Ok = False
 
    Set nms = ActiveWorkbook.Names
    For i = 1 To nms.Count
        'MsgBox(nms(i).Name)
        If nms(i).RefersToRange.Address = ActiveCell.Address Then Ok = True
    Next
 
    If Ok = True Then
        Nom_Cell = ActiveCell.Name.Name
        MsgBox (Nom_Cell)
    End If
 
End Sub

Il y a peut-être (sûrement) plus simple, mais cette solution a le mérite de fonctionner, et d'éviter le message d'erreur.

**zazaraignée** · 09/11/2005, 02h44

Salut Oaurelius
Salut ouskel

Apparemment, je n'aurai pas à faire de tests. Megaxel a déjà fourni une réponse qui marche.

**Oaurelius** · 09/11/2005, 08h44

Merci a vous tous...
:D

J'vais pouvoir finir tranquillou... Classe

Bonne journée

**Megaxel** · 09/11/2005, 09h37

Ravi de t'avoir rendu service.
Mais j'ai trouvé l'essentiel ce code dans l'aide VBA d'Excel, tu sais.

**ouskel'n'or** · 09/11/2005, 12h16

Megaxel, t'es génial ! Si si !
Je n'ai même pas pensé à cette solution, c'est tout dire...

A+

**Megaxel** · 09/11/2005, 12h18

Hommage suprême...
Ron-ron-ron-ron... (Non, je ne dors pas, je ronronne de plaisir!!!)

**ouskel'n'or** · 09/11/2005, 12h38

Pour effacer un millier de noms de cellules, ma procédure à moi faisait... 33 lignes de code...

(elle a 8 ans tout de même)
Je joins donc la procédure de Megaxel modifiée pour effacer tous les noms de cellules dans un classeur Excel
Attention : Se mettre dans le bon classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EffacerTousLesNomsDeCellules()
Dim i As Integer
    Set nms = ActiveWorkbook.Names
    For i = 1 To nms.Count
        ActiveWorkbook.Names(1).Delete
    Next
End Sub

Il n'y a pas d'erreur, il faut bien mettre "ActiveWorkbook.Names(1).Delete". Efface à chaque fois le premier nom de la liste

A ceux qui en auraient besoin...

**zazaraignée** · 09/11/2005, 13h57

Bon! Bon! Ça va les mecs. Cessez de vous relancer. Le problème est résolu!

**Megaxel** · 09/11/2005, 14h01

C'est-à-dire que nos compteurs de messages en ont pris un coup cette nuit: Hier, Ouskel'n'or était à plus de 800, et moi j'approchais les 200, et ce matin... Boum... Alors il faut remonter les stats...
Warf, warf, warf !!!
Non, je déconne...

**ouskel'n'or** · 09/11/2005, 14h18

Quoi, zaza ? Elle te plait pas ma solution de Megaxel relookée ?

**ouskel'n'or** · 09/11/2005, 14h24

Parce que sinon, on peut faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EffacerTousLesNomsDeCellules() 
Dim i As Integer 
    Set nms = ActiveWorkbook.Names 
    For i = nms.Count  To 1 step -1 
        ActiveWorkbook.Names(i).Delete 
    Next 
End Sub

**Theocourant** · 09/11/2005, 15h25

Envoyé par ouskel'n'or

Parce que sinon, on peut faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EffacerTousLesNomsDeCellules() 
Dim i As Integer 
    Set nms = ActiveWorkbook.Names 
    For i = nms.Count  To 1 step -1 
        ActiveWorkbook.Names(i).Delete 
    Next 
End Sub

J'ai même un peu plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub EffacerTousLesNomsDeCellules() 
    While  ActiveWorkbook.Names.Count>0 then
        ActiveWorkbook.Names(1).Delete
    Wend
End Sub

8)

Théo

**ouskel'n'or** · 09/11/2005, 15h36

Waouhhh !

Vérifier si cellule excel porte déja un nom

Macros et VBA Excel

Discussions similaires

Partager

Partager