J'utilise ce code pour surligner lignes et colonnes en fonction de la
position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then
Application.ScreenUpdating =3D False
Range("A5:O64").Interior.ColorIndex =3D xlNone
iR =3D ActiveCell.Row
Range("A" & iR & ":O" & iR).Interior.ColorIndex =3D 36
IC =3D ActiveCell.Column
Range(Cells(5, IC).Address & ":" & Cells(64,
IC).Address).Interior.ColorIndex =3D 36
Else: Range("A5:O64").Interior.ColorIndex =3D xlNone
End If
End Sub
Est-il possible de s=E9lectionner des plages multiples?
Je souhaite exclure du surlignage la colonne B.
Si c'est possible, j'adapterai pour les autres plages de ma feuille.
Merci
JP
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
Philippe.R
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en début de procédure, après les déclarations de variables, l'instruction suivante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
Bonsoir,
Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en début
de procédure, après les déclarations de variables, l'instruction suivante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethillard@orange.fr> a écrit dans le message de
news:9a422a2c-3989-48bf-848a-7e2ad2c44a1b@v29g2000hsf.googlegroups.com...
Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la
position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then
Application.ScreenUpdating = False
Range("A5:O64").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36
IC = ActiveCell.Column
Range(Cells(5, IC).Address & ":" & Cells(64,
IC).Address).Interior.ColorIndex = 36
Else: Range("A5:O64").Interior.ColorIndex = xlNone
End If
End Sub
Est-il possible de sélectionner des plages multiples?
Je souhaite exclure du surlignage la colonne B.
Si c'est possible, j'adapterai pour les autres plages de ma feuille.
Merci
JP
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en début de procédure, après les déclarations de variables, l'instruction suivante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
jpierrethillard
Philippe,
Impeccable! Je vais faire les exclusions pour les autres plages. Merci
JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en d ébut de procédure, après les déclarations de variables, l'instruction sui vante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:9a422a2c-3989 Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
Philippe,
Impeccable!
Je vais faire les exclusions pour les autres plages.
Merci
JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir,
Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en d ébut
de procédure, après les déclarations de variables, l'instruction sui vante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethill...@orange.fr> a écrit dans le message denews:9a422a2c-3989 -48bf-848a-7e2ad2c44a1b@v29g2000hsf.googlegroups.com...
Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la
position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then
Application.ScreenUpdating = False
Range("A5:O64").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36
IC = ActiveCell.Column
Range(Cells(5, IC).Address & ":" & Cells(64,
IC).Address).Interior.ColorIndex = 36
Else: Range("A5:O64").Interior.ColorIndex = xlNone
End If
End Sub
Est-il possible de sélectionner des plages multiples?
Je souhaite exclure du surlignage la colonne B.
Si c'est possible, j'adapterai pour les autres plages de ma feuille.
Merci
JP
Impeccable! Je vais faire les exclusions pour les autres plages. Merci
JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en d ébut de procédure, après les déclarations de variables, l'instruction sui vante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:9a422a2c-3989 Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
jpierrethillard
Philippe,
Autre question si je n'abuse pas trop? Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil. Bonne soirée JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en d ébut de procédure, après les déclarations de variables, l'instruction sui vante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:9a422a2c-3989 Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
Philippe,
Autre question si je n'abuse pas trop?
Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil.
Bonne soirée
JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir,
Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en d ébut
de procédure, après les déclarations de variables, l'instruction sui vante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethill...@orange.fr> a écrit dans le message denews:9a422a2c-3989 -48bf-848a-7e2ad2c44a1b@v29g2000hsf.googlegroups.com...
Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la
position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then
Application.ScreenUpdating = False
Range("A5:O64").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36
IC = ActiveCell.Column
Range(Cells(5, IC).Address & ":" & Cells(64,
IC).Address).Interior.ColorIndex = 36
Else: Range("A5:O64").Interior.ColorIndex = xlNone
End If
End Sub
Est-il possible de sélectionner des plages multiples?
Je souhaite exclure du surlignage la colonne B.
Si c'est possible, j'adapterai pour les autres plages de ma feuille.
Merci
JP
Autre question si je n'abuse pas trop? Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil. Bonne soirée JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en d ébut de procédure, après les déclarations de variables, l'instruction sui vante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:9a422a2c-3989 Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
Philippe.R
Re, Pour exclure une ligne, on travaille dans le même esprit que pour une colonne ; toute la différence est dans "l'adresse" de l'objet Range, ainsi, pour la ligne 2 :
if not Intersect(Target,range("2:2")) Is Nothing Then exit Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Philippe,
Autre question si je n'abuse pas trop? Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil. Bonne soirée JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en début de procédure, après les déclarations de variables, l'instruction suivante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews: Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
Re,
Pour exclure une ligne, on travaille dans le même esprit que pour une
colonne ; toute la différence est dans "l'adresse" de l'objet Range, ainsi,
pour la ligne 2 :
if not Intersect(Target,range("2:2")) Is Nothing Then exit Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethillard@orange.fr> a écrit dans le message de
news:af9fc51c-0fbf-48e0-a973-a1c7e2b4f7eb@v29g2000hsf.googlegroups.com...
Philippe,
Autre question si je n'abuse pas trop?
Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil.
Bonne soirée
JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir,
Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en
début
de procédure, après les déclarations de variables, l'instruction suivante
:
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethill...@orange.fr> a écrit dans le message
denews:9a422a2c-3989-48bf-848a-7e2ad2c44a1b@v29g2000hsf.googlegroups.com...
Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la
position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then
Application.ScreenUpdating = False
Range("A5:O64").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36
IC = ActiveCell.Column
Range(Cells(5, IC).Address & ":" & Cells(64,
IC).Address).Interior.ColorIndex = 36
Else: Range("A5:O64").Interior.ColorIndex = xlNone
End If
End Sub
Est-il possible de sélectionner des plages multiples?
Je souhaite exclure du surlignage la colonne B.
Si c'est possible, j'adapterai pour les autres plages de ma feuille.
Merci
JP
Re, Pour exclure une ligne, on travaille dans le même esprit que pour une colonne ; toute la différence est dans "l'adresse" de l'objet Range, ainsi, pour la ligne 2 :
if not Intersect(Target,range("2:2")) Is Nothing Then exit Sub -- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Philippe,
Autre question si je n'abuse pas trop? Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil. Bonne soirée JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en début de procédure, après les déclarations de variables, l'instruction suivante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews: Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP
jpierrethillard
Philippe,
Merci pour l'info. JP On 13 jan, 21:51, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Re, Pour exclure une ligne, on travaille dans le même esprit que pour une colonne ; toute la différence est dans "l'adresse" de l'objet Range, ain si, pour la ligne 2 :
if not Intersect(Target,range("2:2")) Is Nothing Then exit Sub -- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:af9fc51c-0fbf Philippe,
Autre question si je n'abuse pas trop? Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil. Bonne soirée JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en début de procédure, après les déclarations de variables, l'instruction s uivante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews: ... Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Philippe,
Merci pour l'info.
JP
On 13 jan, 21:51, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Re,
Pour exclure une ligne, on travaille dans le même esprit que pour une
colonne ; toute la différence est dans "l'adresse" de l'objet Range, ain si,
pour la ligne 2 :
if not Intersect(Target,range("2:2")) Is Nothing Then exit Sub
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethill...@orange.fr> a écrit dans le message denews:af9fc51c-0fbf -48e0-a973-a1c7e2b4f7eb@v29g2000hsf.googlegroups.com...
Philippe,
Autre question si je n'abuse pas trop?
Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil.
Bonne soirée
JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir,
Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en
début
de procédure, après les déclarations de variables, l'instruction s uivante
:
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethill...@orange.fr> a écrit dans le message
denews:9a422a2c-3989-48bf-848a-7e2ad2c44a1b@v29g2000hsf.googlegroups.com ...
Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la
position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IC As Long
Dim iR As Long
If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then
Application.ScreenUpdating = False
Range("A5:O64").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36
IC = ActiveCell.Column
Range(Cells(5, IC).Address & ":" & Cells(64,
IC).Address).Interior.ColorIndex = 36
Else: Range("A5:O64").Interior.ColorIndex = xlNone
End If
End Sub
Est-il possible de sélectionner des plages multiples?
Je souhaite exclure du surlignage la colonne B.
Si c'est possible, j'adapterai pour les autres plages de ma feuille.
Merci
JP- Masquer le texte des messages précédents -
Merci pour l'info. JP On 13 jan, 21:51, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Re, Pour exclure une ligne, on travaille dans le même esprit que pour une colonne ; toute la différence est dans "l'adresse" de l'objet Range, ain si, pour la ligne 2 :
if not Intersect(Target,range("2:2")) Is Nothing Then exit Sub -- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:af9fc51c-0fbf Philippe,
Autre question si je n'abuse pas trop? Pour exclure une ou un groupe de lignes, y a t-il une possibilité?
Merci par avance de ta réponse si tu reviens sur ce fil. Bonne soirée JP
On 13 jan, 21:08, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonsoir, Pour que l'action ne se fasse pas sur la colonne B, tu peux ajouter en début de procédure, après les déclarations de variables, l'instruction s uivante :
if not Intersect(Target,range("b:b")) Is Nothing Then exit Sub
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews: ... Bonsoir,
J'utilise ce code pour surligner lignes et colonnes en fonction de la position du curseur dans ma feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim IC As Long Dim iR As Long If Not Intersect(ActiveCell, [A5:O64]) Is Nothing Then Application.ScreenUpdating = False Range("A5:O64").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("A" & iR & ":O" & iR).Interior.ColorIndex = 36 IC = ActiveCell.Column Range(Cells(5, IC).Address & ":" & Cells(64, IC).Address).Interior.ColorIndex = 36 Else: Range("A5:O64").Interior.ColorIndex = xlNone End If End Sub
Est-il possible de sélectionner des plages multiples? Je souhaite exclure du surlignage la colonne B. Si c'est possible, j'adapterai pour les autres plages de ma feuille. Merci JP- Masquer le texte des messages précédents -