Comment retrouver le Nom d'une plage?

bonjour Rex,

c'est quoi le message que tu as ?
et sur quel macro ?

isabelle

rthompson a écrit :

Bonjour Isabelle

Ben non ;-(((

En tous les cas pas chez moi

Ou glisserais-tu ton Display ?

A bientôt

Rex

PS le trux de Modeste ne va pas non plus

Enfin quand je dis le truc de Modeste, ce que je veux dire est
chez moi je ne vois pas non plus ou glisser le bout de code


Enfin

Merci et bonne après-midi

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim F As String
On Error Resume Next
For Each nm In ActiveWorkbook.Names

F = Right(nm.RefersTo, Len(nm.RefersTo) - 1)
If Mid(F, 2, 1) = "!" Then
F = Left(F, 1) & Me.Name & F
F = Replace(F, """", "")
End If
If TypeName(Range(F)) = "Range" Then
If Err = 0 Then
If InStr(1, F, Me.Name, vbTextCompare) Then
If Not Intersect(Range(nm.Name), Target) Is Nothing Then
MsgBox nm.Name
End If
End If
Else
Err = 0
End If
End If
Next
End Sub


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

"isabelle" <i@v> a écrit dans le message de news:
ueGiEw80JHA.1420@TK2MSFTNGP04.phx.gbl...

bonjour Rex

rthompson a écrit :

AH Mais j'y pense

Il n'y a-t-il pas moyen de faire sauter les message Windows
il me semble avoir vu un truc comme ça quelque part, non?

Application.DisplayAlerts = False

isabelle