J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme.
Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la
feuille, puis "visualiser le code") elle modifie la présentation de ma
feuille.
Cetaines cellules sont remplies avec une couleur qui me permet de séparer
différentes rubriques, de mettre en évidence les titres des tableaux, mais
avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ?
Merci
------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 36
End With
End Sub
------------------------------------------------------------------------
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer différentes rubriques, de mettre en évidence les titres des tableaux, mais avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface
toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+
Shnoulle
De : "Perceval973" <Perceval973@free.fr>
Société : Guest of ProXad - France
Groupes : microsoft.public.fr.excel
Date : Thu, 22 Jul 2004 11:31:53 +0200
Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme.
Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la
feuille, puis "visualiser le code") elle modifie la présentation de ma
feuille.
Cetaines cellules sont remplies avec une couleur qui me permet de séparer
différentes rubriques, de mettre en évidence les titres des tableaux, mais
avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ?
Merci
------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 36
End With
End Sub
------------------------------------------------------------------------
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer différentes rubriques, de mettre en évidence les titres des tableaux, mais avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
Misange
Au lieu de changer la couleur de fond de tes cellules, tu pourrais peut être adapter la macro pour jouer sur les bordures ? Si tu nous dis que tu as aussi des bordures personnalisées, ça commence à devenir complexe ! La soluce de Shnoulle n'est envisageable que si toutes les cellules sur la même ligne sont formatées de la même façon ce qui est rarement le cas... Si tu dois commencer par stocker dans un tableau les couleurs de 256 lignes de chaque cellule pour ensuite les remettre quand tu quittes la ligne... ca commence à devenir sacrément lourd ! Dans ce cas la soluce d'Alain, un rien provocatrice certes, a le mérite d'être toujours valable et sans beaucoup de travail :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 22/07/2004 12:49:
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer différentes rubriques, de mettre en évidence les titres des tableaux, mais avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
Au lieu de changer la couleur de fond de tes cellules, tu pourrais peut
être adapter la macro pour jouer sur les bordures ?
Si tu nous dis que tu as aussi des bordures personnalisées, ça commence
à devenir complexe !
La soluce de Shnoulle n'est envisageable que si toutes les cellules sur
la même ligne sont formatées de la même façon ce qui est rarement le
cas... Si tu dois commencer par stocker dans un tableau les couleurs de
256 lignes de chaque cellule pour ensuite les remettre quand tu quittes
la ligne... ca commence à devenir sacrément lourd ! Dans ce cas la
soluce d'Alain, un rien provocatrice certes, a le mérite d'être toujours
valable et sans beaucoup de travail :-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
le 22/07/2004 12:49:
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface
toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+
Shnoulle
De : "Perceval973" <Perceval973@free.fr>
Société : Guest of ProXad - France
Groupes : microsoft.public.fr.excel
Date : Thu, 22 Jul 2004 11:31:53 +0200
Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme.
Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la
feuille, puis "visualiser le code") elle modifie la présentation de ma
feuille.
Cetaines cellules sont remplies avec une couleur qui me permet de séparer
différentes rubriques, de mettre en évidence les titres des tableaux, mais
avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ?
Merci
------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 36
End With
End Sub
------------------------------------------------------------------------
Au lieu de changer la couleur de fond de tes cellules, tu pourrais peut être adapter la macro pour jouer sur les bordures ? Si tu nous dis que tu as aussi des bordures personnalisées, ça commence à devenir complexe ! La soluce de Shnoulle n'est envisageable que si toutes les cellules sur la même ligne sont formatées de la même façon ce qui est rarement le cas... Si tu dois commencer par stocker dans un tableau les couleurs de 256 lignes de chaque cellule pour ensuite les remettre quand tu quittes la ligne... ca commence à devenir sacrément lourd ! Dans ce cas la soluce d'Alain, un rien provocatrice certes, a le mérite d'être toujours valable et sans beaucoup de travail :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
le 22/07/2004 12:49:
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer différentes rubriques, de mettre en évidence les titres des tableaux, mais avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
Perceval973
Merci a vous tous...
Bon ben pour le moment je vais me contenter de la solution d'AV car les autres sont encore un peu lourdes a gérer...
"Shnoulle" a écrit dans le message de news:BD256860.18FE1%
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la
feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer
différentes rubriques, de mettre en évidence les titres des tableaux, mais
avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
Merci a vous tous...
Bon ben pour le moment je vais me contenter de la solution d'AV car les
autres sont encore un peu lourdes a gérer...
"Shnoulle" <ShnoulleAenlever@fri.fr> a écrit dans le message de
news:BD256860.18FE1%ShnoulleAenlever@fri.fr...
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface
toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+
Shnoulle
De : "Perceval973" <Perceval973@free.fr>
Société : Guest of ProXad - France
Groupes : microsoft.public.fr.excel
Date : Thu, 22 Jul 2004 11:31:53 +0200
Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro
suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme.
Si je la copie dans le module de ma feuille (clic droit sur l'onglet de
la
feuille, puis "visualiser le code") elle modifie la présentation de ma
feuille.
Cetaines cellules sont remplies avec une couleur qui me permet de
séparer
différentes rubriques, de mettre en évidence les titres des tableaux,
mais
avec cette macro toute ma présentation est remise a zéro (tout est
blanc)
existe-t-il une alternative ?
Merci
------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 36
End With
End Sub
------------------------------------------------------------------------
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la
feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer
différentes rubriques, de mettre en évidence les titres des tableaux, mais
avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
Shnoulle
Bonjour,
Sinon, ca peut étre rigolo la solution d'une boucle pour remplir un tableau de la couleur des 256 colonnes.
On doit bien rigoler quand on est sur un dossier super urgent, et juste pour une ligne en couleur !!!!!
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 14:26:36 +0200 Objet : Re: Surligner en jaune la ligne active (mais...)
Merci a vous tous...
Bon ben pour le moment je vais me contenter de la solution d'AV car les autres sont encore un peu lourdes a gérer...
"Shnoulle" a écrit dans le message de news:BD256860.18FE1%
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la
feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer
différentes rubriques, de mettre en évidence les titres des tableaux, mais
avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
Bonjour,
Sinon, ca peut étre rigolo la solution d'une boucle pour remplir un tableau
de la couleur des 256 colonnes.
On doit bien rigoler quand on est sur un dossier super urgent, et juste pour
une ligne en couleur !!!!!
A+
Shnoulle
De : "Perceval973" <Perceval973@free.fr>
Société : Guest of ProXad - France
Groupes : microsoft.public.fr.excel
Date : Thu, 22 Jul 2004 14:26:36 +0200
Objet : Re: Surligner en jaune la ligne active (mais...)
Merci a vous tous...
Bon ben pour le moment je vais me contenter de la solution d'AV car les
autres sont encore un peu lourdes a gérer...
"Shnoulle" <ShnoulleAenlever@fri.fr> a écrit dans le message de
news:BD256860.18FE1%ShnoulleAenlever@fri.fr...
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface
toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+
Shnoulle
De : "Perceval973" <Perceval973@free.fr>
Société : Guest of ProXad - France
Groupes : microsoft.public.fr.excel
Date : Thu, 22 Jul 2004 11:31:53 +0200
Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro
suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme.
Si je la copie dans le module de ma feuille (clic droit sur l'onglet de
la
feuille, puis "visualiser le code") elle modifie la présentation de ma
feuille.
Cetaines cellules sont remplies avec une couleur qui me permet de
séparer
différentes rubriques, de mettre en évidence les titres des tableaux,
mais
avec cette macro toute ma présentation est remise a zéro (tout est
blanc)
existe-t-il une alternative ?
Merci
------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 36
End With
End Sub
------------------------------------------------------------------------
Sinon, ca peut étre rigolo la solution d'une boucle pour remplir un tableau de la couleur des 256 colonnes.
On doit bien rigoler quand on est sur un dossier super urgent, et juste pour une ligne en couleur !!!!!
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 14:26:36 +0200 Objet : Re: Surligner en jaune la ligne active (mais...)
Merci a vous tous...
Bon ben pour le moment je vais me contenter de la solution d'AV car les autres sont encore un peu lourdes a gérer...
"Shnoulle" a écrit dans le message de news:BD256860.18FE1%
Bonjour Perceval,
Une idée à travailler
d'avbod tu retire Cells.Interior.ColorIndex = xlNone (c'est ce qui efface toutes les couleurs de toutes les cells)
ce qui permettrait de remettre la couleur précédentes
Mais je suis sur qu'il ya mieux et plus élégant
A+ Shnoulle
De : "Perceval973" Société : Guest of ProXad - France Groupes : microsoft.public.fr.excel Date : Thu, 22 Jul 2004 11:31:53 +0200 Objet : Surligner en jaune la ligne active (mais...)
Bonjour a tous
J'ai trouvé sur http://www.excelabo.net/xl/lign-col.php la macro suivante
qui m'est bien utile. Néanmoins elle me pose un léger probleme. Si je la copie dans le module de ma feuille (clic droit sur l'onglet de la
feuille, puis "visualiser le code") elle modifie la présentation de ma feuille. Cetaines cellules sont remplies avec une couleur qui me permet de séparer
différentes rubriques, de mettre en évidence les titres des tableaux, mais
avec cette macro toute ma présentation est remise a zéro (tout est blanc)
existe-t-il une alternative ? Merci
------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Surligne en jaune la ligne qui contient la cellule active
Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.ColorIndex = 36 ' et si tu veux ajouter la sélection de la colonne ' .EntireColumn.Interior.ColorIndex = 36 End With End Sub ------------------------------------------------------------------------
