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

3 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
Jacky
Re...
Le tout par la mise en forme conditionnelle...... sans VBA
Regarde la feuil3 puis
dans format/mise en forme conditionnelle
http://cjoint.com/?gqrIZqBPxC
Salutations
JJ

"Christophe" a écrit dans le message de
news:
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 !





























Avatar
ABED HADDOU
peut être ce ci
http://cjoint.com/?gqsVYAae63

Abed_H



Re...
Le tout par la mise en forme conditionnelle...... sans VBA
Regarde la feuil3 puis
dans format/mise en forme conditionnelle
http://cjoint.com/?gqrIZqBPxC
Salutations
JJ

"Christophe" a écrit dans le message de
news:
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 !


































Avatar
Christophe
Merci c'est genial !!!

Sauvé ;) !


"Jacky" a écrit dans le message de
news:
Re...
Le tout par la mise en forme conditionnelle...... sans VBA
Regarde la feuil3 puis
dans format/mise en forme conditionnelle
http://cjoint.com/?gqrIZqBPxC
Salutations
JJ

"Christophe" a écrit dans le message de
news:
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