verifier si une cellule est nommée

[bcesoll]

bonjour,

commant mettre une condition pour vérifier si une cellule (fusionnée ou pas )est nommée :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DOMAINE nomcellule

nomcellule= Cells(Target.Row, Target.Column).Name.Name

if Cells(Target.Row, Target.Column).Name.Name = "" Then
Cancel = True

MsgBox ("nom cellule : " & nomcellule)

End If

 

[bcesoll]

Re : verifier si une cellule est nommée

avec le fichier

 

[job75]

Re : verifier si une cellule est nommée

Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nomcellule$
On Error Resume Next
Cancel = True
nomcellule = Target.Name.Name
MsgBox IIf(Err, "cellule non nommée", "nom cellule : " & nomcellule)
End Sub

A+

 

[Pierrot93]

Re : verifier si une cellule est nommée

Bonjour bcesoll, Job

il me semble que tu as déjà des réponses sur le fil ci-dessous, dont tu n'as pas donné suite d'ailleurs...

https://www.excel-downloads.com/threads/recuperer-nom-dune-cellule-nommee.128500/

il est préférable de rester sur le même fil, et si les réponses ne conviennet pas de le préciser...

bonne journée
@+