J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la
selection en fonction du nombre de lignes.
La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2
(A2:F")
Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le
cas dans la macro)
Alors je fais un essai en mettant le debut de la selection en ligne 3
("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas
colorier
En fait je comprends plus rien !!!!!!!!!!!!
Help me !!!
Merci
---------------------------------------------------------------------------------
Sub Couleur()
Range("A2:F" & Range("A65536").End(xlUp).Row).Select
For Each cellule In Selection
If cellule.Row Mod 2 = 0 Then
With cellule
.Interior.ColorIndex = 16
End With
Else
With cellule
.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub
-------------------------------------------------------------------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir,
Help me !!!
essaye: '------------------ Sub Couleur() For Each c In Range("A2:F" & Range("A65536").End(xlUp).Row) If c.Row Mod 2 Then c.Interior.ColorIndex = 16 Else c.Interior.ColorIndex = xlNone End If Next End Sub '------------------ Sans Vba et avec la mise en forme conditionnelle Selection de la plage Mfc Condition 1 La formule est: =MOD(LIGNE();2) Format etc..
-- Salutations JJ
"J&B" a écrit dans le message de news: 4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
Bonsoir,
Help me !!!
essaye:
'------------------
Sub Couleur()
For Each c In Range("A2:F" & Range("A65536").End(xlUp).Row)
If c.Row Mod 2 Then
c.Interior.ColorIndex = 16
Else
c.Interior.ColorIndex = xlNone
End If
Next
End Sub
'------------------
Sans Vba et avec la mise en forme conditionnelle
Selection de la plage
Mfc
Condition 1
La formule est:
=MOD(LIGNE();2)
Format etc..
--
Salutations
JJ
"J&B" <jb@free.fr> a écrit dans le message de news:
4876693b$0$4619$426a74cc@news.free.fr...
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la
selection en fonction du nombre de lignes.
La premiere ligne etant une ligne d'entete la selection demarre à la ligne
2 (A2:F")
Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas
le cas dans la macro)
Alors je fais un essai en mettant le debut de la selection en ligne 3
("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont
pas colorier
En fait je comprends plus rien !!!!!!!!!!!!
Help me !!!
Merci
---------------------------------------------------------------------------------
Sub Couleur()
Range("A2:F" & Range("A65536").End(xlUp).Row).Select
For Each cellule In Selection
If cellule.Row Mod 2 = 0 Then
With cellule
.Interior.ColorIndex = 16
End With
Else
With cellule
.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub
-------------------------------------------------------------------------------------
essaye: '------------------ Sub Couleur() For Each c In Range("A2:F" & Range("A65536").End(xlUp).Row) If c.Row Mod 2 Then c.Interior.ColorIndex = 16 Else c.Interior.ColorIndex = xlNone End If Next End Sub '------------------ Sans Vba et avec la mise en forme conditionnelle Selection de la plage Mfc Condition 1 La formule est: =MOD(LIGNE();2) Format etc..
-- Salutations JJ
"J&B" a écrit dans le message de news: 4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
Francis SLAWNY
Si tu veux que la ligne 3 soit coloriée et que tu veux colorier une ligne sur 2, alors ce seront toutes les lignes impaires qui de vront être coloriées donc faut écrire If cellule.Row Mod 2 = 1 et pas If cellule.Row Mod 2 = 0
FS
"J&B" a écrit dans le message de news: 4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
Si tu veux que la ligne 3 soit coloriée et que tu veux colorier une ligne
sur 2, alors ce seront toutes les lignes impaires qui de vront être
coloriées donc
faut écrire
If cellule.Row Mod 2 = 1 et pas If cellule.Row Mod 2 = 0
FS
"J&B" <jb@free.fr> a écrit dans le message de news:
4876693b$0$4619$426a74cc@news.free.fr...
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la
selection en fonction du nombre de lignes.
La premiere ligne etant une ligne d'entete la selection demarre à la ligne
2 (A2:F")
Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas
le cas dans la macro)
Alors je fais un essai en mettant le debut de la selection en ligne 3
("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont
pas colorier
En fait je comprends plus rien !!!!!!!!!!!!
Help me !!!
Merci
---------------------------------------------------------------------------------
Sub Couleur()
Range("A2:F" & Range("A65536").End(xlUp).Row).Select
For Each cellule In Selection
If cellule.Row Mod 2 = 0 Then
With cellule
.Interior.ColorIndex = 16
End With
Else
With cellule
.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub
-------------------------------------------------------------------------------------
Si tu veux que la ligne 3 soit coloriée et que tu veux colorier une ligne sur 2, alors ce seront toutes les lignes impaires qui de vront être coloriées donc faut écrire If cellule.Row Mod 2 = 1 et pas If cellule.Row Mod 2 = 0
FS
"J&B" a écrit dans le message de news: 4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
J&B
Merci
"Francis SLAWNY" a écrit dans le message de news:
Si tu veux que la ligne 3 soit coloriée et que tu veux colorier une ligne sur 2, alors ce seront toutes les lignes impaires qui de vront être coloriées donc faut écrire If cellule.Row Mod 2 = 1 et pas If cellule.Row Mod 2 = 0
FS
"J&B" a écrit dans le message de news: 4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
Merci
"Francis SLAWNY" <slawny.francis@laposte.net> a écrit dans le message de
news: uodmsHt4IHA.4272@TK2MSFTNGP03.phx.gbl...
Si tu veux que la ligne 3 soit coloriée et que tu veux colorier une ligne
sur 2, alors ce seront toutes les lignes impaires qui de vront être
coloriées donc
faut écrire
If cellule.Row Mod 2 = 1 et pas If cellule.Row Mod 2 = 0
FS
"J&B" <jb@free.fr> a écrit dans le message de news:
4876693b$0$4619$426a74cc@news.free.fr...
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de
la selection en fonction du nombre de lignes.
La premiere ligne etant une ligne d'entete la selection demarre à la
ligne 2 (A2:F")
Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas
le cas dans la macro)
Alors je fais un essai en mettant le debut de la selection en ligne 3
("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont
pas colorier
En fait je comprends plus rien !!!!!!!!!!!!
Help me !!!
Merci
---------------------------------------------------------------------------------
Sub Couleur()
Range("A2:F" & Range("A65536").End(xlUp).Row).Select
For Each cellule In Selection
If cellule.Row Mod 2 = 0 Then
With cellule
.Interior.ColorIndex = 16
End With
Else
With cellule
.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub
-------------------------------------------------------------------------------------
Si tu veux que la ligne 3 soit coloriée et que tu veux colorier une ligne sur 2, alors ce seront toutes les lignes impaires qui de vront être coloriées donc faut écrire If cellule.Row Mod 2 = 1 et pas If cellule.Row Mod 2 = 0
FS
"J&B" a écrit dans le message de news: 4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
Mgr.Abile
Bonjour, Juste pour mémoire, Format / mise en forme automatique propose ce genre de chose -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "J&B" a écrit dans le message de news:4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
Bonjour,
Juste pour mémoire, Format / mise en forme automatique propose ce genre de
chose
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"J&B" <jb@free.fr> a écrit dans le message de
news:4876693b$0$4619$426a74cc@news.free.fr...
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la
selection en fonction du nombre de lignes.
La premiere ligne etant une ligne d'entete la selection demarre à la ligne
2 (A2:F")
Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas
le cas dans la macro)
Alors je fais un essai en mettant le debut de la selection en ligne 3
("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont
pas colorier
En fait je comprends plus rien !!!!!!!!!!!!
Help me !!!
Merci
---------------------------------------------------------------------------------
Sub Couleur()
Range("A2:F" & Range("A65536").End(xlUp).Row).Select
For Each cellule In Selection
If cellule.Row Mod 2 = 0 Then
With cellule
.Interior.ColorIndex = 16
End With
Else
With cellule
.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub
-------------------------------------------------------------------------------------
Bonjour, Juste pour mémoire, Format / mise en forme automatique propose ce genre de chose -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "J&B" a écrit dans le message de news:4876693b$0$4619$
Bonjour
J'utilise la macro ci dessous pour colorier une ligne sur 2 a partir de la selection en fonction du nombre de lignes. La premiere ligne etant une ligne d'entete la selection demarre à la ligne 2 (A2:F") Mais je souhaiterai que la ligne 2 ne soit pas colorier (ce qui n'est pas le cas dans la macro) Alors je fais un essai en mettant le debut de la selection en ligne 3 ("A3:F")et la !!!!!!! et la !!!!!!!! c'est la ligne 2 et 3 qui ne sont pas colorier En fait je comprends plus rien !!!!!!!!!!!!
Help me !!! Merci --------------------------------------------------------------------------------- Sub Couleur() Range("A2:F" & Range("A65536").End(xlUp).Row).Select For Each cellule In Selection If cellule.Row Mod 2 = 0 Then With cellule .Interior.ColorIndex = 16 End With Else With cellule .Interior.ColorIndex = xlNone End With
End If Next End Sub -------------------------------------------------------------------------------------
Jacky
Monseigneur...
3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout. .o))
-- Amitié JJ
"Mgr.Abile" a écrit dans le message de news:
Bonjour, Juste pour mémoire, Format / mise en forme automatique propose ce genre de chose -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "J&B" a écrit dans le message de news:4876693b$0$4619$
Monseigneur...
3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
.o))
--
Amitié
JJ
"Mgr.Abile" <Abile@lacurie.va> a écrit dans le message de news:
086DDEDE-2CA4-483F-A811-E2A4A734568D@microsoft.com...
Bonjour,
Juste pour mémoire, Format / mise en forme automatique propose ce genre de
chose
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"J&B" <jb@free.fr> a écrit dans le message de
news:4876693b$0$4619$426a74cc@news.free.fr...
3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout. .o))
-- Amitié JJ
"Mgr.Abile" a écrit dans le message de news:
Bonjour, Juste pour mémoire, Format / mise en forme automatique propose ce genre de chose -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "J&B" a écrit dans le message de news:4876693b$0$4619$
Modeste
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur... 3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!! ce sera donc 3 : http://minilien.com/?qSorA2ylHA et 2 http://minilien.com/?yRfF5rPlUe
-- @+ ;o)))
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur...
3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!!
ce sera donc 3 :
http://minilien.com/?qSorA2ylHA
et 2
http://minilien.com/?yRfF5rPlUe
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur... 3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!! ce sera donc 3 : http://minilien.com/?qSorA2ylHA et 2 http://minilien.com/?yRfF5rPlUe
-- @+ ;o)))
Mgr.Abile
Merci Modeste pour ces judicieux liens, et que justice soit faite ! ;o)) -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Modeste" a écrit dans le message de news: Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur... 3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!! ce sera donc 3 : http://minilien.com/?qSorA2ylHA et 2 http://minilien.com/?yRfF5rPlUe
-- @+ ;o)))
Merci Modeste pour ces judicieux liens, et que justice soit faite !
;o))
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"Modeste" <nomail@nomail.net> a écrit dans le message de
news:uTn7NjA5IHA.3804@TK2MSFTNGP03.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur...
3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!!
ce sera donc 3 :
http://minilien.com/?qSorA2ylHA
et 2
http://minilien.com/?yRfF5rPlUe
Merci Modeste pour ces judicieux liens, et que justice soit faite ! ;o)) -- News://news.microsoft.com/microsoft.public.fr.excel Allez en paix T.Abile "Modeste" a écrit dans le message de news: Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur... 3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!! ce sera donc 3 : http://minilien.com/?qSorA2ylHA et 2 http://minilien.com/?yRfF5rPlUe
-- @+ ;o)))
Jacky
Juda ;o)) -- Salutations JJ
"Modeste" a écrit dans le message de news:
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur... 3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!! ce sera donc 3 : http://minilien.com/?qSorA2ylHA et 2 http://minilien.com/?yRfF5rPlUe
-- @+ ;o)))
Juda
;o))
--
Salutations
JJ
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
uTn7NjA5IHA.3804@TK2MSFTNGP03.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Monseigneur...
3 "Pater Noster" pour ne pas avoir lu ma réponse jusqu'au bout.
ne pas confondre MEFC et MEF automatique !!!
ce sera donc 3 :
http://minilien.com/?qSorA2ylHA
et 2
http://minilien.com/?yRfF5rPlUe
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Juda ;o))
guckloch gegen schnokeloch !!! ;O)
-- @+ ;o)))
Jacky
:-)) guckloch gegen schnokeloch !!! "" gega "" 'o)) -- Salutations JJ (qui constate que "Schnokelok" est corrigé) ;o))
"Modeste" a écrit dans le message de news:
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Juda ;o))
guckloch gegen schnokeloch !!! ;O)
-- @+ ;o)))
:-))
guckloch gegen schnokeloch !!!
"" gega ""
'o))
--
Salutations
JJ (qui constate que "Schnokelok" est corrigé) ;o))
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
uGKJsfG5IHA.1192@TK2MSFTNGP05.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :