Modification d'une macro

Le
jpierrethillard
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 slectionner 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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5333231
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
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
Le #5333201
Philippe,

Impeccable!
Je vais faire les exclusions pour les autres plages.
Merci

JP

On 13 jan, 21:08, "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 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
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
Le #5333171
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"
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
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
Le #5333161
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
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"
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
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
Le #5333001
Philippe,

Merci pour l'info.
JP
On 13 jan, 21:51, "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, 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
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"


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
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 -



Publicité
Poster une réponse
Anonyme