> j'aimerai, en double cliquant sur une cellule, connaître le nom de la plage dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la plage
dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For Each nM In ActiveWorkbook.Names
If Not Intersect(Range(nM.Name), Target) Is Nothing Then
MsgBox nM.Name
End If
Next
Cancel = True
End Sub
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la plage dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
Thierry
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce code marche, sinon il plante en me renvoyant ce message: La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières... Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la
plage
> dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce
code marche, sinon il plante en me renvoyant ce message:
La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières...
Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
OWQBFGI0JHA.4632@TK2MSFTNGP02.phx.gbl...
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la
plage
> dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For Each nM In ActiveWorkbook.Names
If Not Intersect(Range(nM.Name), Target) Is Nothing Then
MsgBox nM.Name
End If
Next
Cancel = True
End Sub
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce code marche, sinon il plante en me renvoyant ce message: La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières... Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la
plage
> dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
JLuc
Salut Thierry, Rajoute un test sur le nom de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nm In ActiveWorkbook.Names If (nm Like "*" & Me.Name & "*") = True Then If Not Intersect(Range(nm.Name), Target) Is Nothing Then MsgBox nm.Name End If End If Next Cancel = True End Sub
Thierry a écrit :
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce code marche, sinon il plante en me renvoyant ce message: La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières... Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
j'aimerai, en double cliquant sur une cellule, connaître le nom de la plage dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
-- JLuc « Celui qui trouve sans chercher est celui qui a longtemps cherché sans trouver. » - Gaston BACHELARD
Salut Thierry,
Rajoute un test sur le nom de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
For Each nm In ActiveWorkbook.Names
If (nm Like "*" & Me.Name & "*") = True Then
If Not Intersect(Range(nm.Name), Target) Is Nothing Then
MsgBox nm.Name
End If
End If
Next
Cancel = True
End Sub
Thierry a écrit :
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce
code marche, sinon il plante en me renvoyant ce message:
La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières...
Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
OWQBFGI0JHA.4632@TK2MSFTNGP02.phx.gbl...
j'aimerai, en double cliquant sur une cellule, connaître le nom de la plage
dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For Each nM In ActiveWorkbook.Names
If Not Intersect(Range(nM.Name), Target) Is Nothing Then
MsgBox nM.Name
End If
Next
Cancel = True
End Sub
Etc
--
JLuc
« Celui qui trouve sans chercher est celui qui a longtemps cherché
sans trouver. » - Gaston BACHELARD
Salut Thierry, Rajoute un test sur le nom de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nm In ActiveWorkbook.Names If (nm Like "*" & Me.Name & "*") = True Then If Not Intersect(Range(nm.Name), Target) Is Nothing Then MsgBox nm.Name End If End If Next Cancel = True End Sub
Thierry a écrit :
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce code marche, sinon il plante en me renvoyant ce message: La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières... Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
j'aimerai, en double cliquant sur une cellule, connaître le nom de la plage dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
-- JLuc « Celui qui trouve sans chercher est celui qui a longtemps cherché sans trouver. » - Gaston BACHELARD
MichDenis
Bonjour Thierry,
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 TypeName(Range(F)) = "Range" Then If Err = 0 Then If InStr(1, F, Me.Name, vbTextCompare) > 0 Then If Not Intersect(Range(nm.Name), Target) Is Nothing Then MsgBox nm.Name End If End If Else Err.Clear End If End If Next End Sub '--------------------------------------------------
Bonjour Thierry,
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 TypeName(Range(F)) = "Range" Then
If Err = 0 Then
If InStr(1, F, Me.Name, vbTextCompare) > 0 Then
If Not Intersect(Range(nm.Name), Target) Is Nothing Then
MsgBox nm.Name
End If
End If
Else
Err.Clear
End If
End If
Next
End Sub
'--------------------------------------------------
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 TypeName(Range(F)) = "Range" Then If Err = 0 Then If InStr(1, F, Me.Name, vbTextCompare) > 0 Then If Not Intersect(Range(nm.Name), Target) Is Nothing Then MsgBox nm.Name End If End If Else Err.Clear End If End If Next End Sub '--------------------------------------------------
Mishell
L'erreur t'indique que cette plage n'est pas sur cette feuille. Il faut utiliser cette erreur pour éliminer les plages appartenant à une autre feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then If Err = 0 Then MsgBox nM.Name Else Err.Clear End If End If Next
End Sub
Mishell
"Thierry" wrote in message news:%
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce code marche, sinon il plante en me renvoyant ce message: La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières... Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la
plage
> dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
L'erreur t'indique que cette plage n'est pas sur cette feuille. Il faut
utiliser cette erreur pour éliminer les plages appartenant à une autre
feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
For Each nM In ActiveWorkbook.Names
If Not Intersect(Range(nM.Name), Target) Is Nothing Then
If Err = 0 Then
MsgBox nM.Name
Else
Err.Clear
End If
End If
Next
End Sub
Mishell
"Thierry" <admin.tr@free.fr> wrote in message
news:%23vQSXoI0JHA.6004@TK2MSFTNGP02.phx.gbl...
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce
code marche, sinon il plante en me renvoyant ce message:
La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières...
Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
OWQBFGI0JHA.4632@TK2MSFTNGP02.phx.gbl...
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la
plage
> dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For Each nM In ActiveWorkbook.Names
If Not Intersect(Range(nM.Name), Target) Is Nothing Then
MsgBox nM.Name
End If
Next
Cancel = True
End Sub
L'erreur t'indique que cette plage n'est pas sur cette feuille. Il faut utiliser cette erreur pour éliminer les plages appartenant à une autre feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then If Err = 0 Then MsgBox nM.Name Else Err.Clear End If End If Next
End Sub
Mishell
"Thierry" wrote in message news:%
Merci pour ton aide.
J'ai un souci..
Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
Tant que je n'ai pas d'autres plages nommées dans les autres feuilles, ce code marche, sinon il plante en me renvoyant ce message: La méthode 'Range' de l'objet '_worksheet' à échoué.
J'ai encore besoins de vos lumières... Thierry.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
> j'aimerai, en double cliquant sur une cellule, connaître le nom de la
plage
> dont elle fait partie.
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then MsgBox nM.Name End If Next Cancel = True End Sub
Etc
Thierry
Merci à vous quatre pour vos réponses. C'est ce que je voulais.
Encore Merci, Bonne soirée, Thierry.
"Mishell" a écrit dans le message de news:
L'erreur t'indique que cette plage n'est pas sur cette feuille. Il faut utiliser cette erreur pour éliminer les plages appartenant à une autre feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then If Err = 0 Then MsgBox nM.Name Else Err.Clear End If End If Next
End Sub
Mishell
"Thierry" wrote in message news:% > Merci pour ton aide. > > J'ai un souci.. > > Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....) > > Tant que je n'ai pas d'autres plages nommées dans les autres feuilles,
ce
> code marche, sinon il plante en me renvoyant ce message: > La méthode 'Range' de l'objet '_worksheet' à échoué. > > J'ai encore besoins de vos lumières... > Thierry. > > > "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news: > >> > j'aimerai, en double cliquant sur une cellule, connaître le nom de la > plage >> > dont elle fait partie. >> >> Dans le module de la feuille : >> >> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
>> Boolean) >> For Each nM In ActiveWorkbook.Names >> If Not Intersect(Range(nM.Name), Target) Is Nothing Then >> MsgBox nM.Name >> End If >> Next >> Cancel = True >> End Sub >> >> >> Etc >> >> > >
Merci à vous quatre pour vos réponses.
C'est ce que je voulais.
Encore Merci,
Bonne soirée,
Thierry.
"Mishell" <MishellNospam@Nospam.com> a écrit dans le message de news:
em8tdXL0JHA.1096@TK2MSFTNGP06.phx.gbl...
L'erreur t'indique que cette plage n'est pas sur cette feuille. Il faut
utiliser cette erreur pour éliminer les plages appartenant à une autre
feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
For Each nM In ActiveWorkbook.Names
If Not Intersect(Range(nM.Name), Target) Is Nothing Then
If Err = 0 Then
MsgBox nM.Name
Else
Err.Clear
End If
End If
Next
End Sub
Mishell
"Thierry" <admin.tr@free.fr> wrote in message
news:%23vQSXoI0JHA.6004@TK2MSFTNGP02.phx.gbl...
> Merci pour ton aide.
>
> J'ai un souci..
>
> Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....)
>
> Tant que je n'ai pas d'autres plages nommées dans les autres feuilles,
ce
> code marche, sinon il plante en me renvoyant ce message:
> La méthode 'Range' de l'objet '_worksheet' à échoué.
>
> J'ai encore besoins de vos lumières...
> Thierry.
>
>
> "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
> OWQBFGI0JHA.4632@TK2MSFTNGP02.phx.gbl...
>> > j'aimerai, en double cliquant sur une cellule, connaître le nom de la
> plage
>> > dont elle fait partie.
>>
>> Dans le module de la feuille :
>>
>> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
>> Boolean)
>> For Each nM In ActiveWorkbook.Names
>> If Not Intersect(Range(nM.Name), Target) Is Nothing Then
>> MsgBox nM.Name
>> End If
>> Next
>> Cancel = True
>> End Sub
>>
>>
>> Etc
>>
>>
>
>
Merci à vous quatre pour vos réponses. C'est ce que je voulais.
Encore Merci, Bonne soirée, Thierry.
"Mishell" a écrit dans le message de news:
L'erreur t'indique que cette plage n'est pas sur cette feuille. Il faut utiliser cette erreur pour éliminer les plages appartenant à une autre feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next For Each nM In ActiveWorkbook.Names If Not Intersect(Range(nM.Name), Target) Is Nothing Then If Err = 0 Then MsgBox nM.Name Else Err.Clear End If End If Next
End Sub
Mishell
"Thierry" wrote in message news:% > Merci pour ton aide. > > J'ai un souci.. > > Dans mon classeur j'ai plusieurs feuilles (Bat1, Bat2, Atelier,....) > > Tant que je n'ai pas d'autres plages nommées dans les autres feuilles,
ce
> code marche, sinon il plante en me renvoyant ce message: > La méthode 'Range' de l'objet '_worksheet' à échoué. > > J'ai encore besoins de vos lumières... > Thierry. > > > "Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news: > >> > j'aimerai, en double cliquant sur une cellule, connaître le nom de la > plage >> > dont elle fait partie. >> >> Dans le module de la feuille : >> >> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
>> Boolean) >> For Each nM In ActiveWorkbook.Names >> If Not Intersect(Range(nM.Name), Target) Is Nothing Then >> MsgBox nM.Name >> End If >> Next >> Cancel = True >> End Sub >> >> >> Etc >> >> > >
rthompson
Bonjour à toi Michdenis
Merci pour cette astuce
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
A bientôt
Rex
"MichDenis" a écrit dans le message de news:
En fait, ce serait plus complet avec ceci :
Un NOM peut faire référence à : A ) une constante B ) une formule C ) une plage de cellule faisant référence à : þuil!A1:A10 =!A1:A10
'--------------------------------------------- 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 '---------------------------------------------
"MichDenis" a écrit dans le message de groupe de discussion : Bonjour Thierry,
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 TypeName(Range(F)) = "Range" Then If Err = 0 Then If InStr(1, F, Me.Name, vbTextCompare) > 0 Then If Not Intersect(Range(nm.Name), Target) Is Nothing Then MsgBox nm.Name End If End If Else Err.Clear End If End If Next End Sub '--------------------------------------------------
Bonjour à toi Michdenis
Merci pour cette astuce
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
A bientôt
Rex
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u8H22TK0JHA.2656@TK2MSFTNGP05.phx.gbl...
En fait, ce serait plus complet avec ceci :
Un NOM peut faire référence à :
A ) une constante
B ) une formule
C ) une plage de cellule faisant référence à :
þuil!A1:A10
=!A1:A10
'---------------------------------------------
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
'---------------------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : uDQTytJ0JHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour Thierry,
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 TypeName(Range(F)) = "Range" Then
If Err = 0 Then
If InStr(1, F, Me.Name, vbTextCompare) > 0 Then
If Not Intersect(Range(nm.Name), Target) Is Nothing Then
MsgBox nm.Name
End If
End If
Else
Err.Clear
End If
End If
Next
End Sub
'--------------------------------------------------
Un NOM peut faire référence à : A ) une constante B ) une formule C ) une plage de cellule faisant référence à : þuil!A1:A10 =!A1:A10
'--------------------------------------------- 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 '---------------------------------------------
"MichDenis" a écrit dans le message de groupe de discussion : Bonjour Thierry,
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 TypeName(Range(F)) = "Range" Then If Err = 0 Then If InStr(1, F, Me.Name, vbTextCompare) > 0 Then If Not Intersect(Range(nm.Name), Target) Is Nothing Then MsgBox nm.Name End If End If Else Err.Clear End If End If Next End Sub '--------------------------------------------------
Modeste
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
:-( you loose !!! il s'agit d'une option Windows
Panneau de configuration, Sons et périphériques onglet Sons > Windows > Exclamation
la modification (suppression ou changement) s'appliquera à tout les programmes !!!
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
:-( you loose !!!
il s'agit d'une option Windows
Panneau de configuration, Sons et périphériques
onglet Sons > Windows > Exclamation
la modification (suppression ou changement) s'appliquera à tout les programmes !!!
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
:-( you loose !!! il s'agit d'une option Windows
Panneau de configuration, Sons et périphériques onglet Sons > Windows > Exclamation
la modification (suppression ou changement) s'appliquera à tout les programmes !!!
rthompson
Bonjour mon cher Modeste
Donc pas moyen de faire via macro
Dommage
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?
Enfin
Merci et à bientôt
Rex
"Modeste" a écrit dans le message de news: % Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
:-( you loose !!! il s'agit d'une option Windows
Panneau de configuration, Sons et périphériques onglet Sons > Windows > Exclamation
la modification (suppression ou changement) s'appliquera à tout les programmes !!!
Bonjour mon cher Modeste
Donc pas moyen de faire via macro
Dommage
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?
Enfin
Merci et à bientôt
Rex
"Modeste" <GD@libre.fr> a écrit dans le message de news:
%23r8N3J00JHA.1096@TK2MSFTNGP06.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
:-( you loose !!!
il s'agit d'une option Windows
Panneau de configuration, Sons et périphériques
onglet Sons > Windows > Exclamation
la modification (suppression ou changement) s'appliquera à tout les
programmes !!!
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?
Enfin
Merci et à bientôt
Rex
"Modeste" a écrit dans le message de news: % Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Mais comment fait-on pour supprimer le Bong Bong?
A mon avis dans Tools Options quelque part, non?
:-( you loose !!! il s'agit d'une option Windows
Panneau de configuration, Sons et périphériques onglet Sons > Windows > Exclamation
la modification (suppression ou changement) s'appliquera à tout les programmes !!!
Modeste
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Donc pas moyen de faire via macro Dommage 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?
;o)) le plus simpel est de désactiver le son, n'est-il pas ??
Sub Switch_Mute() Dim reponse SendKeys "{TAB} ~" reponse = Shell("sndvol32 /t", 0) End Sub
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Donc pas moyen de faire via macro
Dommage
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?
;o))
le plus simpel est de désactiver le son, n'est-il pas ??
Sub Switch_Mute()
Dim reponse
SendKeys "{TAB} ~"
reponse = Shell("sndvol32 /t", 0)
End Sub
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Donc pas moyen de faire via macro Dommage 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?
;o)) le plus simpel est de désactiver le son, n'est-il pas ??
Sub Switch_Mute() Dim reponse SendKeys "{TAB} ~" reponse = Shell("sndvol32 /t", 0) End Sub