Bonjour à tous,
j'utilise le code suivant pour surligner la ligne dans laquelle je
travaille.
J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne
g).
En fait comment faire pour que le surlignage reste dans le tableau.
Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
End Sub
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Bonjour à tous,
j'utilise le code suivant pour surligner la ligne dans laquelle je
travaille.
J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne
g).
En fait comment faire pour que le surlignage reste dans le tableau.
Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
End Sub
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
"fredbzr" a écrit dans le message de news: 443d0c79$0$29194$
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
443d0c79$0$29194$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
j'utilise le code suivant pour surligner la ligne dans laquelle je
travaille.
J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex
colonne g).
En fait comment faire pour que le surlignage reste dans le tableau.
Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
End Sub
"fredbzr" a écrit dans le message de news: 443d0c79$0$29194$
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
Fred
fredbzr
Bonjour Thierry ta solution fonctionne très bien merci de ton coup de main Bonne soirée "ThierryP" a écrit dans le message de news:
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Bonjour Thierry
ta solution fonctionne très bien
merci de ton coup de main
Bonne soirée
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de
news: unywbJkXGHA.1192@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
j'utilise le code suivant pour surligner la ligne dans laquelle je
travaille.
J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex
colonne g).
En fait comment faire pour que le surlignage reste dans le tableau.
Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
End Sub
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
fredbzr
Bonjour Papou j'ai essayé ta solution mais elle ne me convient pas car le surlignage ne se fait que dans la colonne 7 Merci d'avoir planché sur mon soucis Problème résolu par Thierry Bonne soirée à toi "papou" <cestpasbon@çanonplus> a écrit dans le message de news:
"fredbzr" a écrit dans le message de news: 443d0c79$0$29194$
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
Fred
Bonjour Papou
j'ai essayé ta solution mais elle ne me convient pas car le surlignage ne se
fait que dans la colonne 7
Merci d'avoir planché sur mon soucis
Problème résolu par Thierry
Bonne soirée à toi
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
u5I8BQkXGHA.3448@TK2MSFTNGP04.phx.gbl...
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
443d0c79$0$29194$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
j'utilise le code suivant pour surligner la ligne dans laquelle je
travaille.
J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex
colonne g).
En fait comment faire pour que le surlignage reste dans le tableau.
Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
End Sub
Bonjour Papou j'ai essayé ta solution mais elle ne me convient pas car le surlignage ne se fait que dans la colonne 7 Merci d'avoir planché sur mon soucis Problème résolu par Thierry Bonne soirée à toi "papou" <cestpasbon@çanonplus> a écrit dans le message de news:
"fredbzr" a écrit dans le message de news: 443d0c79$0$29194$
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
Fred
fredbzr
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci "fredbzr" a écrit dans le message de news: 443d2177$0$21265$
Bonjour Papou j'ai essayé ta solution mais elle ne me convient pas car le surlignage ne se fait que dans la colonne 7 Merci d'avoir planché sur mon soucis Problème résolu par Thierry Bonne soirée à toi "papou" <cestpasbon@çanonplus> a écrit dans le message de news:
"fredbzr" a écrit dans le message de news: 443d0c79$0$29194$
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
Fred
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
443d2177$0$21265$8fcfb975@news.wanadoo.fr...
Bonjour Papou
j'ai essayé ta solution mais elle ne me convient pas car le surlignage ne
se fait que dans la colonne 7
Merci d'avoir planché sur mon soucis
Problème résolu par Thierry
Bonne soirée à toi
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
u5I8BQkXGHA.3448@TK2MSFTNGP04.phx.gbl...
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
443d0c79$0$29194$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
j'utilise le code suivant pour surligner la ligne dans laquelle je
travaille.
J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex
colonne g).
En fait comment faire pour que le surlignage reste dans le tableau.
Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
End Sub
Comment faire pour que le surlignage ne s'imprime pas ?
Merci "fredbzr" a écrit dans le message de news: 443d2177$0$21265$
Bonjour Papou j'ai essayé ta solution mais elle ne me convient pas car le surlignage ne se fait que dans la colonne 7 Merci d'avoir planché sur mon soucis Problème résolu par Thierry Bonne soirée à toi "papou" <cestpasbon@çanonplus> a écrit dans le message de news:
"fredbzr" a écrit dans le message de news: 443d0c79$0$29194$
Bonjour à tous, j'utilise le code suivant pour surligner la ligne dans laquelle je travaille. J'aurais voulu arrêter le surlignage à la fin de mon tableau (par ex colonne g). En fait comment faire pour que le surlignage reste dans le tableau. Merci de vos lumières car je n'y arrive pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("b5:g500")) Is Nothing Then Exit Sub Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 8 End Sub
Fred
ThierryP
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("b5:g500").interior.colorindex=xlnone End Sub Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("b5:g500").interior.colorindex=xlnone
End Sub
Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il
faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("b5:g500").interior.colorindex=xlnone End Sub Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
fredbzr
j'avais essayé avec
With ActiveSheet.Shapes("MaPlage") .ControlFormat.PrintObject = False End With
mais j'avais une erreur Merci j'ai essayé et çà fonctionne Le code placé dans le workbook est -il valable pour toutes les feuilles ? "ThierryP" a écrit dans le message de news:
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("b5:g500").interior.colorindex=xlnone End Sub Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
j'avais essayé avec
With ActiveSheet.Shapes("MaPlage")
.ControlFormat.PrintObject = False
End With
mais j'avais une erreur
Merci j'ai essayé et çà fonctionne
Le code placé dans le workbook est -il valable pour toutes les feuilles ?
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de
news: OP5FFskXGHA.3448@TK2MSFTNGP04.phx.gbl...
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("b5:g500").interior.colorindex=xlnone
End Sub
Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il
faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
With ActiveSheet.Shapes("MaPlage") .ControlFormat.PrintObject = False End With
mais j'avais une erreur Merci j'ai essayé et çà fonctionne Le code placé dans le workbook est -il valable pour toutes les feuilles ? "ThierryP" a écrit dans le message de news:
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("b5:g500").interior.colorindex=xlnone End Sub Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
ThierryP
Oui, c'est un évènement du classeur lui-même.
j'avais essayé avec
With ActiveSheet.Shapes("MaPlage") .ControlFormat.PrintObject = False End With
mais j'avais une erreur Merci j'ai essayé et çà fonctionne Le code placé dans le workbook est -il valable pour toutes les feuilles ? "ThierryP" a écrit dans le message de news:
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("b5:g500").interior.colorindex=xlnone End Sub Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
--
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Oui, c'est un évènement du classeur lui-même.
j'avais essayé avec
With ActiveSheet.Shapes("MaPlage")
.ControlFormat.PrintObject = False
End With
mais j'avais une erreur
Merci j'ai essayé et çà fonctionne
Le code placé dans le workbook est -il valable pour toutes les feuilles ?
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de
news: OP5FFskXGHA.3448@TK2MSFTNGP04.phx.gbl...
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("b5:g500").interior.colorindex=xlnone
End Sub
Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il
faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
--
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
With ActiveSheet.Shapes("MaPlage") .ControlFormat.PrintObject = False End With
mais j'avais une erreur Merci j'ai essayé et çà fonctionne Le code placé dans le workbook est -il valable pour toutes les feuilles ? "ThierryP" a écrit dans le message de news:
Re,
Dans le module ThisWorkBook, utilise l'évènement Before_Print
Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("b5:g500").interior.colorindex=xlnone End Sub Si tu veux revenir à tes couleurs après l'impression (ou l'aperçu), il faut mémoriser la plage avant la ligne que je t'ai indiqué.
Une nouvelle question
Comment faire pour que le surlignage ne s'imprime pas ?
Merci
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
--
@+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
