Bonsoir,
La formule ci dessous permet de créer des croix, en double cliquant dans les
cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les
cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide,
cordialement,
Philippe
------------------------------------------------------
'création de croix:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
Cancel = True
Target.Font.Name = "arrial"
Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
Bonsoir,
rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans
les cellules A8:a10
a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici:
...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
...
remplacer par:
...
If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: e1e9lMjQGHA.4920@tk2msftngp13.phx.gbl...
Bonsoir,
La formule ci dessous permet de créer des croix, en double cliquant dans
les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les
cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide,
cordialement,
Philippe
------------------------------------------------------
'création de croix:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
Cancel = True
Target.Font.Name = "arrial"
Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
Philippe de PARIS
Bonsoir, je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" a écrit dans le message de news:
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
Bonsoir,
je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OmrKJRjQGHA.4384@tk2msftngp13.phx.gbl...
Bonsoir,
rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans
les cellules A8:a10
a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici:
...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
...
remplacer par:
...
If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: e1e9lMjQGHA.4920@tk2msftngp13.phx.gbl...
Bonsoir,
La formule ci dessous permet de créer des croix, en double cliquant dans
les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les
cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide,
cordialement,
Philippe
------------------------------------------------------
'création de croix:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
Cancel = True
Target.Font.Name = "arrial"
Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
lSteph
'... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _ Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then '...
'Cordialement.
'lSteph "Philippe de PARIS" a écrit dans le message de news: e8MZ%
Bonsoir, je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" a écrit dans le message de news:
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
'...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _
Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
'...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: e8MZ%23XjQGHA.1160@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OmrKJRjQGHA.4384@tk2msftngp13.phx.gbl...
Bonsoir,
rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans
les cellules A8:a10
a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici:
...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
...
remplacer par:
...
If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: e1e9lMjQGHA.4920@tk2msftngp13.phx.gbl...
Bonsoir,
La formule ci dessous permet de créer des croix, en double cliquant dans
les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas
les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide,
cordialement,
Philippe
------------------------------------------------------
'création de croix:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
Cancel = True
Target.Font.Name = "arrial"
Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
'... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _ Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then '...
'Cordialement.
'lSteph "Philippe de PARIS" a écrit dans le message de news: e8MZ%
Bonsoir, je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" a écrit dans le message de news:
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
Philippe de PARIS
ça marche !
Merci de ton aide, bonne soirée
Phil.
"lSteph" a écrit dans le message de news: %
'... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _ Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then '...
'Cordialement.
'lSteph "Philippe de PARIS" a écrit dans le message de news: e8MZ%
Bonsoir, je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" a écrit dans le message de news:
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
ça marche !
Merci de ton aide,
bonne soirée
Phil.
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23KTtScjQGHA.2704@TK2MSFTNGP15.phx.gbl...
'...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _
Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
'...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: e8MZ%23XjQGHA.1160@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OmrKJRjQGHA.4384@tk2msftngp13.phx.gbl...
Bonsoir,
rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant
dans les cellules A8:a10
a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici:
...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
...
remplacer par:
...
If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: e1e9lMjQGHA.4920@tk2msftngp13.phx.gbl...
Bonsoir,
La formule ci dessous permet de créer des croix, en double cliquant
dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas
les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide,
cordialement,
Philippe
------------------------------------------------------
'création de croix:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
Boolean)
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
Cancel = True
Target.Font.Name = "arrial"
Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
'... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _ Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then '...
'Cordialement.
'lSteph "Philippe de PARIS" a écrit dans le message de news: e8MZ%
Bonsoir, je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" a écrit dans le message de news:
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
Fredo P.
Bonjour Je pense que If Not (Intersect(Target, Range("a8:a1000","F10:F1500")) Is Nothing) Then fonctionne aussi -- Mon E-mail, c'est sans voyelle avant l'@. "Philippe de PARIS" a écrit dans le message de news:
ça marche !
Merci de ton aide, bonne soirée
Phil.
"lSteph" a écrit dans le message de news: %
'... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _ Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then '...
'Cordialement.
'lSteph "Philippe de PARIS" a écrit dans le message de news: e8MZ%
Bonsoir, je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" a écrit dans le message de news:
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le
message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
Bonjour
Je pense que
If Not (Intersect(Target, Range("a8:a1000","F10:F1500")) Is Nothing) Then
fonctionne aussi
--
Mon E-mail, c'est sans voyelle avant l'@.
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news:eX3PYjjQGHA.3192@TK2MSFTNGP09.phx.gbl...
ça marche !
Merci de ton aide,
bonne soirée
Phil.
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23KTtScjQGHA.2704@TK2MSFTNGP15.phx.gbl...
'...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _
Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
'...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: e8MZ%23XjQGHA.1160@TK2MSFTNGP09.phx.gbl...
Bonsoir,
je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OmrKJRjQGHA.4384@tk2msftngp13.phx.gbl...
Bonsoir,
rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant
dans les cellules A8:a10
a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici:
...
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
...
remplacer par:
...
If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then
...
'Cordialement.
'lSteph
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans
le
message de news: e1e9lMjQGHA.4920@tk2msftngp13.phx.gbl...
Bonsoir,
La formule ci dessous permet de créer des croix, en double cliquant
dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas
les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide,
cordialement,
Philippe
------------------------------------------------------
'création de croix:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
Boolean)
If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then
Cancel = True
Target.Font.Name = "arrial"
Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub
Bonjour Je pense que If Not (Intersect(Target, Range("a8:a1000","F10:F1500")) Is Nothing) Then fonctionne aussi -- Mon E-mail, c'est sans voyelle avant l'@. "Philippe de PARIS" a écrit dans le message de news:
ça marche !
Merci de ton aide, bonne soirée
Phil.
"lSteph" a écrit dans le message de news: %
'... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Or _ Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then '...
'Cordialement.
'lSteph "Philippe de PARIS" a écrit dans le message de news: e8MZ%
Bonsoir, je ne souhaite pas supprimer a8:a1000
mais travailler sur a8:a1000 et/ou f10:f1500
"lSteph" a écrit dans le message de news:
Bonsoir, rectificatif:
La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10 a8:a1000 tel qu'indiqué dans le code
donc remplace la référence dans le code ici: ... If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then ... remplacer par: ... If Not (Intersect(Target, Range("f10:f1500")) Is Nothing) Then ... 'Cordialement.
'lSteph
"Philippe de PARIS" a écrit dans le
message de news:
Bonsoir, La formule ci dessous permet de créer des croix, en double cliquant dans les cellules A8:a10.
Je souhaite que cela fonctionne également sur f10:f1500 (mais pas les cellules en b,c...)
Ce doit être tout simple mais je n'y arrive pas !
Merci de votre aide, cordialement, Philippe
------------------------------------------------------ 'création de croix: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range("a8:a1000")) Is Nothing) Then Cancel = True Target.Font.Name = "arrial" Target.HorizontalAlignment = xlLeft
If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub
Fredo P.
plutôt comme cela If Not (Intersect(Target, Range("a8:a1000,F10:F1500")) Is Nothing) Then
plutôt comme cela
If Not (Intersect(Target, Range("a8:a1000,F10:F1500")) Is Nothing) Then
