Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel alternances de couleur sur excel 2000

alternances de couleur sur excel 2000

13 réponses
Avatar
Christophe
Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible avec excel
2000
du coup je suis toujours coincé comment puis je faire une alternance de
couleur en excel 2000 ?

Merci !
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
JLuc
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible avec excel
2000
du coup je suis toujours coincé comment puis je faire une alternance de
couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Christophe
Excellent ca marche !
et si je peux abuser la meme qui tien compte de ma selection ?
c'est possible .?


Merci par avance !!


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible avec
excel


2000
du coup je suis toujours coincé comment puis je faire une alternance de
couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
AV
Un exemple là :

http://cjoint.com/?gjoPKsMUVY

AV
Avatar
JLuc
*Bonjour Christophe*,
Ou alors :
Sub Couleur()
For cellule In Selection
If cellule.Row Mod 2 = 0 Then
cellule.Interior.ColorIndex = 15
Else
cellule.Interior.ColorIndex = xlNone
End If
Next
End Sub


Excellent ca marche !
et si je peux abuser la meme qui tien compte de ma selection ?
c'est possible .?


Merci par avance !!


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible avec excel
2000
du coup je suis toujours coincé comment puis je faire une alternance de
couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



Avatar
Christophe
Snif

marche po

For cellule in selection 'apparait en rouge'

"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Ou alors :
Sub Couleur()
For cellule In Selection
If cellule.Row Mod 2 = 0 Then
cellule.Interior.ColorIndex = 15
Else
cellule.Interior.ColorIndex = xlNone
End If
Next
End Sub


Excellent ca marche !
et si je peux abuser la meme qui tien compte de ma selection ?
c'est possible .?


Merci par avance !!


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible avec
excel




2000
du coup je suis toujours coincé comment puis je faire une alternance
de




couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O







Avatar
JLuc
*Bonjour Christophe*,
Autant pour toi : :')
For Each cellule In Selection

Snif

marche po

For cellule in selection 'apparait en rouge'

"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Ou alors :
Sub Couleur()
For cellule In Selection
If cellule.Row Mod 2 = 0 Then
cellule.Interior.ColorIndex = 15
Else
cellule.Interior.ColorIndex = xlNone
End If
Next
End Sub


Excellent ca marche !
et si je peux abuser la meme qui tien compte de ma selection ?
c'est possible .?


Merci par avance !!


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible avec
excel 2000
du coup je suis toujours coincé comment puis je faire une alternance de
couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
Christophe
Mortelle l'aide en ligne n'est pas geniale !

toujours en abusant à mort cette fois, mais c'est pour frimer ;)
comment on peut rajouter les bords genre la ligne du dessus et du dessous ou
que celle du dessous
comme l'icon qui permet le cadrillage ?


Merci encore de ta patience en tout les cas ca marche nickel !







"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Autant pour toi : :')
For Each cellule In Selection

Snif

marche po

For cellule in selection 'apparait en rouge'

"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Ou alors :
Sub Couleur()
For cellule In Selection
If cellule.Row Mod 2 = 0 Then
cellule.Interior.ColorIndex = 15
Else
cellule.Interior.ColorIndex = xlNone
End If
Next
End Sub


Excellent ca marche !
et si je peux abuser la meme qui tien compte de ma selection ?
c'est possible .?


Merci par avance !!


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible
avec






excel 2000
du coup je suis toujours coincé comment puis je faire une alternance
de






couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O









Avatar
JLuc
*Bonjour Christophe*,
Quelque chose du style :
Sub Couleur()
For Each cellule In Selection
If cellule.Row Mod 2 = 0 Then
With cellule
.Interior.ColorIndex = 15
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
Else
With cellule
.Interior.ColorIndex = xlNone
With .Borders(xlEdgeBottom)
.LineStyle = xlNone
End With
With .Borders(xlEdgeTop)
.LineStyle = xlNone
End With
End With
End If
Next
End Sub

A adapter et a ameliorer

Mortelle l'aide en ligne n'est pas geniale !

toujours en abusant à mort cette fois, mais c'est pour frimer ;)
comment on peut rajouter les bords genre la ligne du dessus et du dessous ou
que celle du dessous
comme l'icon qui permet le cadrillage ?


Merci encore de ta patience en tout les cas ca marche nickel !







"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Autant pour toi : :')
For Each cellule In Selection

Snif

marche po

For cellule in selection 'apparait en rouge'

"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Ou alors :
Sub Couleur()
For cellule In Selection
If cellule.Row Mod 2 = 0 Then
cellule.Interior.ColorIndex = 15
Else
cellule.Interior.ColorIndex = xlNone
End If
Next
End Sub


Excellent ca marche !
et si je peux abuser la meme qui tien compte de ma selection ?
c'est possible .?


Merci par avance !!


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible avec
excel 2000
du coup je suis toujours coincé comment puis je faire une alternance de
couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O







Avatar
AV
T'as essayé la MEFC ?
Juste comme ça ...une fois dans ta vie... ;-)

AV
Avatar
Christophe
Merci beaucoup c'est de la balle !


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Quelque chose du style :
Sub Couleur()
For Each cellule In Selection
If cellule.Row Mod 2 = 0 Then
With cellule
.Interior.ColorIndex = 15
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
Else
With cellule
.Interior.ColorIndex = xlNone
With .Borders(xlEdgeBottom)
.LineStyle = xlNone
End With
With .Borders(xlEdgeTop)
.LineStyle = xlNone
End With
End With
End If
Next
End Sub

A adapter et a ameliorer

Mortelle l'aide en ligne n'est pas geniale !

toujours en abusant à mort cette fois, mais c'est pour frimer ;)
comment on peut rajouter les bords genre la ligne du dessus et du
dessous ou


que celle du dessous
comme l'icon qui permet le cadrillage ?


Merci encore de ta patience en tout les cas ca marche nickel !







"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Autant pour toi : :')
For Each cellule In Selection

Snif

marche po

For cellule in selection 'apparait en rouge'

"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Ou alors :
Sub Couleur()
For cellule In Selection
If cellule.Row Mod 2 = 0 Then
cellule.Interior.ColorIndex = 15
Else
cellule.Interior.ColorIndex = xlNone
End If
Next
End Sub


Excellent ca marche !
et si je peux abuser la meme qui tien compte de ma selection ?
c'est possible .?


Merci par avance !!


"JLuc" a écrit dans le message de
news:
*Bonjour Christophe*,
Avec une macro du type :

Sub Couleur()
For x = 1 To 100 ' Lignes de 1 à 100
If x Mod 2 = 0 Then
Cells(x, 1).EntireRow.Interior.ColorIndex = 15
Else
Cells(x, 1).EntireRow.Interior.ColorIndex = xlNone
End If
Next
End Sub


Bonjour,

j'ai trouvé une formule pour cela mais apparement pas compatible
avec








excel 2000
du coup je suis toujours coincé comment puis je faire une
alternance de








couleur en excel 2000 ?

Merci !


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O











1 2