SOS sur une macro

Le
valenza
Bonjour tous

Ce que j'aimerais faire c'est qu'excel compare des valeurs ds une
colonne: D1, D2, D3, etc. D69
si valeur = "" -> mise en forme 1 s'applique A1, A2, A3..A69
si valeur >0 mise en forme 2 s'applique A1, A2, A3..A69
si valeur = 0 mise en forme 3 s'applique A1, A2, A3..A69
si valeur <0 mise en forme 4 s'applique A1, A2, A3..A69

ce que j'ai russi faire jusqu' prsent c'est comparer D1, D2 ..=
..
et changer la mise en forme dans D1..

je n'arrive pas comparer dans une colonne et changer dans une autre
et ce sur une centaine de lignes

voici le code que j'ai commenc faire :
merci beaucoup pour votre aide, j'essaie de m'inspirer de ce que je
trouve mais je dbute en Vba

Sub color()

Dim cellule As Object
For Each cellule In Range("C6:D14")

Select Case cellule

' // si la cellule est vide

Case Is = ""
With cellule.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With

' // si la cellule est gale 0

Case Is = 0
With cellule.Interior
.ColorIndex = 29
.Pattern = xlSolid
End With

Case Is > 0
With cellule.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With

Case Is < 0
With cellule.Interior
.ColorIndex = 26
.Pattern = xlSolid
End With

Case Is = ""
With cellule.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With

End Select

Next cellule
End Sub

d'avance merci

BV
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #4527651
Bonsoir
Peux-tu préciser, svp?
Si D1=0 (par ex) alors A1 rouge?
Si D2 = 0 alors A2 rouge?

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.


Bonjour à tous

Ce que j'aimerais faire c'est qu'excel compare des valeurs ds une
colonne: D1, D2, D3, etc.... D69
si valeur = "" -> mise en forme 1 s'applique à A1, A2, A3.....A69
si valeur >0 mise en forme 2 s'applique à A1, A2, A3.....A69
si valeur = 0 mise en forme 3 s'applique à A1, A2, A3.....A69
si valeur <0 mise en forme 4 s'applique à A1, A2, A3.....A69

ce que j'ai réussi à faire jusqu'à présent c'est comparer D1, D2 ....
et changer la mise en forme dans D1.....

je n'arrive pas à comparer dans une colonne et changer dans une autre
et ce sur une centaine de lignes

voici le code que j'ai commencé à faire :
merci beaucoup pour votre aide, j'essaie de m'inspirer de ce que je
trouve mais je débute en Vba

Sub color()

Dim cellule As Object
For Each cellule In Range("C6:D14")

Select Case cellule

' // si la cellule est vide

Case Is = ""
With cellule.Interior
.ColorIndex = 19
.Pattern = xlSolid
End With

' // si la cellule est égale à 0

Case Is = 0
With cellule.Interior
.ColorIndex = 29
.Pattern = xlSolid
End With

Case Is > 0
With cellule.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With

Case Is < 0
With cellule.Interior
.ColorIndex = 26
.Pattern = xlSolid
End With

Case Is = ""
With cellule.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With

End Select

Next cellule
End Sub

d'avance merci

BV
Francois L
Le #4527621
Bonjour à tous

Ce que j'aimerais faire c'est qu'excel compare des valeurs ds une
colonne: D1, D2, D3, etc.... D69
si valeur = "" -> mise en forme 1 s'applique à A1, A2, A3.....A69
si valeur >0 mise en forme 2 s'applique à A1, A2, A3.....A69
si valeur = 0 mise en forme 3 s'applique à A1, A2, A3.....A69
si valeur <0 mise en forme 4 s'applique à A1, A2, A3.....A69



Bonsoir,

Peut-être ( si j'ai bien compris !)
à adapter

Sub zaza()
Dim i As Integer
For i = 1 To 19
If Range("D" & i) = 0 Then Range("A" & i).Interior.Color = vbRed
If Range("D" & i) < 0 Then Range("A" & i).Interior.Color = vbBlue
If Range("D" & i) > 0 Then Range("A" & i).Interior.Color = vbGreen
If Range("D" & i) = "" Then Range("A" & i).Interior.Color = vbYellow
Next
End Sub

--
François L

Publicité
Poster une réponse
Anonyme