Methode Range.....

Le
Philippe
Bonjour à tous

Petite sub pour changer la couleur de fond des cellules de la ligne et de la
colonne relative à la cellule active

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").Interior.ColorIndex = 15
Range("a" & Target.Row & " : p" & Target.Row).Interior.ColorIndex =
xlNone
Range("&Target.Column & 1 : & Target.Column &
340").Interior.ColorIndex = xlNone
End Sub

la ligne:

..Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex =
xlNone

bugge: erreur d'exécution 1004 , la méthode range de l'objet Worksheet a
échoué

Merci pour votre aide.

Philippe
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
claude
Le #17807351
bonjour Philippe
la colonne 340 me paraît bizarre à vue de nez (256 colonnes chez moi ...)
essaie target.column.entirerow
:-)
claude


"Philippe" eSk1UO%
Bonjour à tous

Petite sub pour changer la couleur de fond des cellules de la ligne et de
la colonne relative à la cellule active...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").Interior.ColorIndex = 15
Range("a" & Target.Row & " : p" & Target.Row).Interior.ColorIndex =
xlNone
Range("&Target.Column & 1 : & Target.Column &
340").Interior.ColorIndex = xlNone
End Sub

la ligne:

..Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex
= xlNone

bugge: erreur d'exécution 1004 , la méthode range de l'objet Worksheet a
échoué

Merci pour votre aide.

Philippe



Charabeuh
Le #17807631
Bonjour,

ActiveCell.Offset(1 - ActiveCell.Row).Resize(340).Interior.ColorIndex = xlNone

pour ôter le fond des lignes 1 à 340 de la colonne de la cellule active ? (si je comprends...)

Au revoir





"Philippe"
Bonjour à tous

Petite sub pour changer la couleur de fond des cellules de la ligne et de la colonne relative à la cellule active...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").Interior.ColorIndex = 15
Range("a" & Target.Row & " : p" & Target.Row).Interior.ColorIndex = xlNone
Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex = xlNone
End Sub

la ligne:

..Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex = xlNone

bugge: erreur d'exécution 1004 , la méthode range de l'objet Worksheet a échoué

Merci pour votre aide.

Philippe


Philippe.R
Le #17807611
Bonjour,
Quelques problèmes de syntaxe à résoudre :
on peut remplacer
Range("A1:IV65536").Interior.ColorIndex = 15
par
Range("A:A").Interior.ColorIndex = 15
sauf à ne vouloir traiter qu'une partie de la colonne sous Excel 2007
Target.column renvoie un numéro et non une lettre, or l'objet Range attends
une adresse alphanumérique ou une série d'objets cells, le plus simple sera
donc d'utiliser l'objet cells(ligne, colonne) pour définir le range comme
ceci :
Range(cells(1,Target.Column),cells(340,Target.Column)).Interior.ColorIndex =
xlNone
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe" news:eSk1UO%
Bonjour à tous

Petite sub pour changer la couleur de fond des cellules de la ligne et de
la colonne relative à la cellule active...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").Interior.ColorIndex = 15
Range("a" & Target.Row & " : p" & Target.Row).Interior.ColorIndex =
xlNone
Range("&Target.Column & 1 : & Target.Column &
340").Interior.ColorIndex = xlNone
End Sub

la ligne:

..Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex
= xlNone

bugge: erreur d'exécution 1004 , la méthode range de l'objet Worksheet a
échoué

Merci pour votre aide.

Philippe


Charabeuh
Le #17807861
remplacer bien sur activecell par target dans la formule !!!!


"Charabeuh" a écrit dans le message de news:%23sVMwn%
Bonjour,

ActiveCell.Offset(1 - ActiveCell.Row).Resize(340).Interior.ColorIndex = xlNone

pour ôter le fond des lignes 1 à 340 de la colonne de la cellule active ? (si je comprends...)

Au revoir





"Philippe"
Bonjour à tous

Petite sub pour changer la couleur de fond des cellules de la ligne et de la colonne relative à la cellule active...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").Interior.ColorIndex = 15
Range("a" & Target.Row & " : p" & Target.Row).Interior.ColorIndex = xlNone
Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex = xlNone
End Sub

la ligne:

..Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex = xlNone

bugge: erreur d'exécution 1004 , la méthode range de l'objet Worksheet a échoué

Merci pour votre aide.

Philippe





Philippe
Le #17808631
Bonjour,

..mais bien sûr, Target.column renvoie un numéro et non une lettre..

Range("A:A").



..je lis bien Range("A:IV").

merci Philippe.R pour ton aide.

merci également à claude et Charabeuh

Philippe



"Philippe.R" edWi1p%
Bonjour,
Quelques problèmes de syntaxe à résoudre :
on peut remplacer
Range("A1:IV65536").Interior.ColorIndex = 15
par
Range("A:A").Interior.ColorIndex = 15
sauf à ne vouloir traiter qu'une partie de la colonne sous Excel 2007
Target.column renvoie un numéro et non une lettre, or l'objet Range
attends une adresse alphanumérique ou une série d'objets cells, le plus
simple sera donc d'utiliser l'objet cells(ligne, colonne) pour définir le
range comme ceci :
Range(cells(1,Target.Column),cells(340,Target.Column)).Interior.ColorIndex
= xlNone
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe" news:eSk1UO%
Bonjour à tous

Petite sub pour changer la couleur de fond des cellules de la ligne et de
la colonne relative à la cellule active...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").Interior.ColorIndex = 15
Range("a" & Target.Row & " : p" & Target.Row).Interior.ColorIndex =
xlNone
Range("&Target.Column & 1 : & Target.Column &
340").Interior.ColorIndex = xlNone
End Sub

la ligne:

..Range("&Target.Column & 1 : & Target.Column & 340").Interior.ColorIndex
= xlNone

bugge: erreur d'exécution 1004 , la méthode range de l'objet Worksheet a
échoué

Merci pour votre aide.

Philippe





Philippe.R
Le #17810161
Oups !
Tu as bien fait de lire A:IV ;o))
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe" news:%23aJfdc$
Bonjour,

..mais bien sûr, Target.column renvoie un numéro et non une lettre..

Range("A:A").



..je lis bien Range("A:IV").

merci Philippe.R pour ton aide.

merci également à claude et Charabeuh

Philippe



"Philippe.R" edWi1p%
Bonjour,
Quelques problèmes de syntaxe à résoudre :
on peut remplacer
Range("A1:IV65536").Interior.ColorIndex = 15
par
Range("A:A").Interior.ColorIndex = 15
sauf à ne vouloir traiter qu'une partie de la colonne sous Excel 2007
Target.column renvoie un numéro et non une lettre, or l'objet Range
attends une adresse alphanumérique ou une série d'objets cells, le plus
simple sera donc d'utiliser l'objet cells(ligne, colonne) pour définir le
range comme ceci :
Range(cells(1,Target.Column),cells(340,Target.Column)).Interior.ColorIndex
= xlNone
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe" news:eSk1UO%
Bonjour à tous

Petite sub pour changer la couleur de fond des cellules de la ligne et
de la colonne relative à la cellule active...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").Interior.ColorIndex = 15
Range("a" & Target.Row & " : p" & Target.Row).Interior.ColorIndex =
xlNone
Range("&Target.Column & 1 : & Target.Column &
340").Interior.ColorIndex = xlNone
End Sub

la ligne:

..Range("&Target.Column & 1 : & Target.Column &
340").Interior.ColorIndex = xlNone

bugge: erreur d'exécution 1004 , la méthode range de l'objet Worksheet a
échoué

Merci pour votre aide.

Philippe








Publicité
Poster une réponse
Anonyme