voilà je souhaiterai colorer des cellules d'une plage en doublecliquant sur
ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore qu'après
un double click
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
tissot.emmanuel
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cancel = True End If End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le double clic.
Cordialement,
Manu/
"treets" a écrit dans le message de news: eNUdm%
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore qu'après un double click
avec Before DoubleClick? mais comment
d'avance merci
David
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Cancel = True
End If
End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le
double clic.
Cordialement,
Manu/
"treets" <nospam.treets@free.fr> a écrit dans le message de news:
eNUdm%23BkHHA.588@TK2MSFTNGP06.phx.gbl...
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant
sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore
qu'après un double click
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cancel = True End If End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le double clic.
Cordialement,
Manu/
"treets" a écrit dans le message de news: eNUdm%
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore qu'après un double click
avec Before DoubleClick? mais comment
d'avance merci
David
treets
Merci manu pour l'explication j'ai de suite effectué la modif
mais rien ne se passe lorsque je double clique sur les cellules concernées?
peux tu me débloquer ça? d'avance merci
david
"tissot.emmanuel" a écrit dans le message de news: u%
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cancel = True End If End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le double clic.
Cordialement,
Manu/
"treets" a écrit dans le message de news: eNUdm%
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore qu'après un double click
avec Before DoubleClick? mais comment
d'avance merci
David
Merci manu pour l'explication j'ai de suite effectué la modif
mais rien ne se passe lorsque je double clique sur les cellules concernées?
peux tu me débloquer ça? d'avance merci
david
"tissot.emmanuel" <tissot.emmanuel@free.fr> a écrit dans le message de news:
u%23p4jGCkHHA.2552@TK2MSFTNGP06.phx.gbl...
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Cancel = True
End If
End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le
double clic.
Cordialement,
Manu/
"treets" <nospam.treets@free.fr> a écrit dans le message de news:
eNUdm%23BkHHA.588@TK2MSFTNGP06.phx.gbl...
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant
sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore
qu'après un double click
Merci manu pour l'explication j'ai de suite effectué la modif
mais rien ne se passe lorsque je double clique sur les cellules concernées?
peux tu me débloquer ça? d'avance merci
david
"tissot.emmanuel" a écrit dans le message de news: u%
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cancel = True End If End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le double clic.
Cordialement,
Manu/
"treets" a écrit dans le message de news: eNUdm%
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore qu'après un double click
avec Before DoubleClick? mais comment
d'avance merci
David
tissot.emmanuel
Re-Bonsoir,
Tu as bien mis le code dans le module de la feuille concernée ? (Clic droit sur l'onglet>Visualiser le code)
C'est bien cette même feuille qui est active ?
Double clic tu bien sur une des cellules définies dans la procédure ?
Si oui, oui, oui alors je ne vois pas d'ou vient le probleme.
Cordialement,
Manu/
"treets" a écrit dans le message de news:
Merci manu pour l'explication j'ai de suite effectué la modif
mais rien ne se passe lorsque je double clique sur les cellules concernées?
peux tu me débloquer ça? d'avance merci
david
"tissot.emmanuel" a écrit dans le message de news: u%
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cancel = True End If End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le double clic.
Cordialement,
Manu/
"treets" a écrit dans le message de news: eNUdm%
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore qu'après un double click
avec Before DoubleClick? mais comment
d'avance merci
David
Re-Bonsoir,
Tu as bien mis le code dans le module de la feuille concernée ? (Clic droit
sur l'onglet>Visualiser le code)
C'est bien cette même feuille qui est active ?
Double clic tu bien sur une des cellules définies dans la procédure ?
Si oui, oui, oui alors je ne vois pas d'ou vient le probleme.
Cordialement,
Manu/
"treets" <nospam.treets@free.fr> a écrit dans le message de news:
OBPkKTCkHHA.3264@TK2MSFTNGP04.phx.gbl...
Merci manu pour l'explication j'ai de suite effectué la modif
mais rien ne se passe lorsque je double clique sur les cellules
concernées?
peux tu me débloquer ça? d'avance merci
david
"tissot.emmanuel" <tissot.emmanuel@free.fr> a écrit dans le message de
news: u%23p4jGCkHHA.2552@TK2MSFTNGP06.phx.gbl...
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Cancel = True
End If
End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le
double clic.
Cordialement,
Manu/
"treets" <nospam.treets@free.fr> a écrit dans le message de news:
eNUdm%23BkHHA.588@TK2MSFTNGP06.phx.gbl...
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant
sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore
qu'après un double click
Tu as bien mis le code dans le module de la feuille concernée ? (Clic droit sur l'onglet>Visualiser le code)
C'est bien cette même feuille qui est active ?
Double clic tu bien sur une des cellules définies dans la procédure ?
Si oui, oui, oui alors je ne vois pas d'ou vient le probleme.
Cordialement,
Manu/
"treets" a écrit dans le message de news:
Merci manu pour l'explication j'ai de suite effectué la modif
mais rien ne se passe lorsque je double clique sur les cellules concernées?
peux tu me débloquer ça? d'avance merci
david
"tissot.emmanuel" a écrit dans le message de news: u%
Bonsoir,
La réponse est dans la question:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cancel = True End If End Sub
La ligne Cancel = True permet de ne pas passer en mode édition après le double clic.
Cordialement,
Manu/
"treets" a écrit dans le message de news: eNUdm%
Bonjour à tous
voilà je souhaiterai colorer des cellules d'une plage en doublecliquant sur ces cellules.
pour ce la j'utilise :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1:H11")) Is Nothing Then With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub
Comment puis l'utiliser de telle sorte que la cellule ne se colore qu'après un double click
