Modification d'une macro

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

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

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

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

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 -

- Afficher le texte des messages précédents -