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 question sur une macro

question sur une macro

13 réponses
Avatar
Christophe
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer un peu
plus.

je voudrais faire un if si une valeur d'une colone est superieur à 0 alors
je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro excel !

Merci par avance de votre aide !
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
Ardus Petus
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de news:
el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer un peu
plus.

je voudrais faire un if si une valeur d'une colone est superieur à 0 alors
je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro excel !

Merci par avance de votre aide !





Avatar
Christophe
arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test ?


"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de news:
el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer un
peu


plus.

je voudrais faire un if si une valeur d'une colone est superieur à 0
alors


je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro excel !

Merci par avance de votre aide !









Avatar
ABED HADDOU
Bonjour
Lig=5
Sub test()
For Each Row In Selection
If Cells(Lig,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Lig=Lig+1
Next
End Sub

Cordialement

Abed_H


"Christophe" wrote:

arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test ?


"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de news:
el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer un
peu


plus.

je voudrais faire un if si une valeur d'une colone est superieur à 0
alors


je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro excel !

Merci par avance de votre aide !














Avatar
ABED HADDOU
Lig=5 à l'interieur de la procédure.

Sub test()
Lig=5
For Each Row In Selection
If Cells(Lig,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Lig=Lig+1
Next
End Sub

Cordialement

Abed_H


"Christophe" wrote:

arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test ?


"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de news:
el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer un
peu


plus.

je voudrais faire un if si une valeur d'une colone est superieur à 0
alors


je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro excel !

Merci par avance de votre aide !
















Avatar
Christophe
en fait avant meme mon probleme de ligne ce code ne marche pas !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub

donc meme celui que vous m'avez remis ne fonctionne pas non plus !!!!
snif....


"ABED HADDOU" a écrit dans le message
de news:
Lig=5 à l'interieur de la procédure.

Sub test()
Lig=5
For Each Row In Selection
If Cells(Lig,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Lig=Lig+1
Next
End Sub

Cordialement

Abed_H


"Christophe" wrote:

arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test
?





"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de
news:




el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer
un





peu
plus.

je voudrais faire un if si une valeur d'une colone est superieur à
0





alors
je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro
excel !






Merci par avance de votre aide !


















Avatar
Jacky
Bonjour,
et celui ci ??
Avec la sélection en cours
'----
Sub jj()
For Each c In Selection
If c.Value > 0 Then
c.Interior.ColorIndex = 34 '34 Turquoise
Else
c.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub
'----------
Salutations
JJ

"Christophe" a écrit dans le message de
news:
arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test ?


"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de
news:


el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer un
peu


plus.

je voudrais faire un if si une valeur d'une colone est superieur à 0
alors


je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro excel !

Merci par avance de votre aide !













Avatar
Christophe
arf oui c'est pas mal le seul truc c'est que dans la selection y' plein
d'autre cellule
et j'aimerais qu'il passe en rouge que sur la comparaison avec la colone J

en gros j'ai une macro qui me fait l'alternance une ligne sur 2 de ma
selection.
j'aimerais qu'en fonction d'un resultat >0 de la colone J la ligne passe en
rouge au lieu de l'alternance !

dans ce dernier cas qui marche d'ailleurs il colori la cellule en fonction
de son propre contenu
hors j'aimerais colorier la cellule en fonction du contenu de la cellule J
de la colone en cours !






"Jacky" a écrit dans le message de
news:eH$21$
Bonjour,
et celui ci ??
Avec la sélection en cours
'----
Sub jj()
For Each c In Selection
If c.Value > 0 Then
c.Interior.ColorIndex = 34 '34 Turquoise
Else
c.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub
'----------
Salutations
JJ

"Christophe" a écrit dans le message de
news:
arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test ?


"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de
news:


el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer
un




peu
plus.

je voudrais faire un if si une valeur d'une colone est superieur à 0
alors


je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro excel
!





Merci par avance de votre aide !

















Avatar
ABED HADDOU
Donc essaie ceci
Sub test()
For Each c In Feuil2.Range("A1:G20")
If c <> "" Then
If c.Value > 0 Then
c.Interior.ColorIndex = 34 '34 Turquoise
Else
c.Interior.ColorIndex = 36 '34 Turquoise
End If
End If
Next c
End Sub

Abed_H


"Christophe" wrote:

en fait avant meme mon probleme de ligne ce code ne marche pas !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub

donc meme celui que vous m'avez remis ne fonctionne pas non plus !!!!
snif....


"ABED HADDOU" a écrit dans le message
de news:
Lig=5 à l'interieur de la procédure.

Sub test()
Lig=5
For Each Row In Selection
If Cells(Lig,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Lig=Lig+1
Next
End Sub

Cordialement

Abed_H


"Christophe" wrote:

arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test
?





"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de
news:




el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer
un





peu
plus.

je voudrais faire un if si une valeur d'une colone est superieur à
0





alors
je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro
excel !






Merci par avance de votre aide !























Avatar
Jacky
For Each Row In Selection
????


Un exemple avec le résultat escompté sur:
http://cjoint.com

JJ

"Christophe" a écrit dans le message de
news:%
arf oui c'est pas mal le seul truc c'est que dans la selection y' plein
d'autre cellule
et j'aimerais qu'il passe en rouge que sur la comparaison avec la colone J

en gros j'ai une macro qui me fait l'alternance une ligne sur 2 de ma
selection.
j'aimerais qu'en fonction d'un resultat >0 de la colone J la ligne passe
en

rouge au lieu de l'alternance !

dans ce dernier cas qui marche d'ailleurs il colori la cellule en fonction
de son propre contenu
hors j'aimerais colorier la cellule en fonction du contenu de la cellule J
de la colone en cours !






"Jacky" a écrit dans le message de
news:eH$21$
Bonjour,
et celui ci ??
Avec la sélection en cours
'----
Sub jj()
For Each c In Selection
If c.Value > 0 Then
c.Interior.ColorIndex = 34 '34 Turquoise
Else
c.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub
'----------
Salutations
JJ

"Christophe" a écrit dans le message de
news:
arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de test
?





"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message de
news:


el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir l'améliorer
un




peu
plus.

je voudrais faire un if si une valeur d'une colone est superieur à
0





alors
je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro
excel





!

Merci par avance de votre aide !





















Avatar
Christophe
ok merci !

voici le fichier Excel avec la macro actuel dans macro, et surtout les
lignes rouge du rajout souhaité en fonction de la derniere colonne
http://cjoint.com/?gqq6IOM2dA




"Jacky" a écrit dans le message de
news:%
For Each Row In Selection
????


Un exemple avec le résultat escompté sur:
http://cjoint.com

JJ

"Christophe" a écrit dans le message de
news:%
arf oui c'est pas mal le seul truc c'est que dans la selection y' plein
d'autre cellule
et j'aimerais qu'il passe en rouge que sur la comparaison avec la colone
J



en gros j'ai une macro qui me fait l'alternance une ligne sur 2 de ma
selection.
j'aimerais qu'en fonction d'un resultat >0 de la colone J la ligne passe
en

rouge au lieu de l'alternance !

dans ce dernier cas qui marche d'ailleurs il colori la cellule en
fonction


de son propre contenu
hors j'aimerais colorier la cellule en fonction du contenu de la cellule
J


de la colone en cours !






"Jacky" a écrit dans le message de
news:eH$21$
Bonjour,
et celui ci ??
Avec la sélection en cours
'----
Sub jj()
For Each c In Selection
If c.Value > 0 Then
c.Interior.ColorIndex = 34 '34 Turquoise
Else
c.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub
'----------
Salutations
JJ

"Christophe" a écrit dans le message de
news:
arf marche pô

j'ai peut etre pas preciser je suis en excel 2000

j'ai fait ca et j'ai une erreur !

Sub test()
For Each Row In Selection
If Cells(5,J).Value > 0 Then
cellule.Interior.ColorIndex = 34 '34 Turquoise
Else
cellule.Interior.ColorIndex = 36 '34 Turquoise
End If
Next
End Sub



ps : comment faire pour remplacer mon 5 par la ligne en cours de
test




?


"Ardus Petus" a écrit dans le message de
news:%
if Cells(X, J).value > 0 then
XXXX
else
YYYy
endif

Cordialement,
--
AP

"Christophe" a écrit dans le message
de





news:
el7TH%
Bonjour

j'ai une macro deja existante mais je voudrais pouvoir
l'améliorer






un
peu
plus.

je voudrais faire un if si une valeur d'une colone est superieur
à






0
alors
je change la couleur de la ligne

il faudrait que je teste donc dans le genre

if Col J ligne X > 0 then
XXXX
else
XXXXX
enf if



seulement je ne connais pas du tout la syntaxe dans les macro
excel





!

Merci par avance de votre aide !

























1 2