Variable If VBA

[Laurent313131]

bonjour,

J'ai une question toute simple pour VBA mais comme je débute c'est difficile pour moi 🙂

Je veux utiliser la variable If Then Else afin de colorier mes cellules en fonction de leur valeur.

Exemple : si B4 < à 10 alors je veux que la trame de fond de B4 soit en rouge et si B4 > à 10, je veux que la trame soit en vert. J'ai essayé ça mais ça ne marche pas (j'ai mi les colorindex au pif car c'est juste pour voir si la variable marche ...)

Sub VMA()
Dim Perf As Integer
Perf = Range("B4")
If Perf <= 10 Then
Cell.Interior.ColorIndex = 2
Else
Cell.Interior.ColorIndex = 3
End If
End Sub

Pouvez vous m'aider s'il vous plaît ?

Merci beaucoup !

 

[Staple1600]

Re : Variable If VBA

Bonjour



Essaie ainsi

Sub VMA()
Dim Perf As Range
Set Perf = Range("B4")
If Perf <= 10 Then
'fond rouge
Perf.Interior.ColorIndex = 3
Else
'fond vert
Perf.Interior.ColorIndex = 43
End If
End Sub

PS: Voici une variante (pour plus tard) 😉

Sub VMA_bis()
Range("B4").Interior.ColorIndex = _
IIf(Range("B4").Value <=10, 3, 43)
End Sub

 

[Laurent313131]

Re : Variable If VBA

Merci beaucoup. J'étais pas très loin mais faut que je m'entraîne encore ^^ !

 

[Laurent313131]

Re : Variable If VBA

Me revoilà avec cette fois-ci l'intention de faire un boucle dans mon petit programme.

Si j'ai des valeurs de B4 a T4,comment faire la boucle pour que le programme me colore chaque cellule en fonction de sa valeur ? C'est vraiment dur de commencer avec VBa mais je désespère pas ^^

Merci

 

[pierrejean]

Re : Variable If VBA

bonjour Laurent313131

en l'absence de Staple 🙂 (que je salue)

A tester:

Sub VMA()
Dim Perf As Range
[COLOR=seagreen]'Set Perf = Range("B4")[/COLOR]
[COLOR=blue]for each Perf in range("B4:T4")[/COLOR]
If Perf <= 10 Then
'fond rouge
Perf.Interior.ColorIndex = 3
Else
'fond vert
Perf.Interior.ColorIndex = 43
End If
[COLOR=blue]Next Perf[/COLOR]
End Sub

 

[Staple1600]

Re : Variable If VBA

Re


En réutilisant les exemples précédents:

Sub VMA()
Dim C As Range
Dim Perf As Range
Set Perf = Range("B4:T4")
For Each C In Perf
C.Interior.ColorIndex = IIf(C.Value <= 10, 3, 43)
Next C
End Sub

Tu as des questions?

La version de pierrejean est plus facile à comprendre lorsqu'on débute 😉

Tu as donc le choix Laurent 😉


edition: bonjour pierrejean

 

[Laurent313131]

Re : Variable If VBA

Merci c'est bon ça marche. Je commence un peu à comprendre comment ça fonctionne 🙂

Par contre, si je ne veux pas m'embêter à écrire la fin de ma plage de sélection à chaque fois, puis je faire arrêter ma boucle avant la 1ère cellule vide ? Dans mon exemple en U4 afin que la boucle s'arrête en T4...

J'ai assayé avec endXLdown mais je ne sais pas comment l'écrire correctement ...

 

[pierrejean]

Re : Variable If VBA

Re

toujours a tester

Sub VMA()
[COLOR=blue]Dim dercol as integer[/COLOR]
Dim Perf As Range
[COLOR=seagreen]'Set Perf = Range("B4")[/COLOR]
[COLOR=blue]dercol=Cells(4,256).end(xltoleft).Column[/COLOR]
[COLOR=blue]for each Perf in range("B4:T" & dercol)[/COLOR]
If Perf <= 10 Then
'fond rouge
Perf.Interior.ColorIndex = 3
Else
'fond vert
Perf.Interior.ColorIndex = 43
End If
[COLOR=blue]Next Perf[/COLOR]
End Sub

tu peux remplacer Cells(4,256) par Range("IV4")

 

[Laurent313131]

Re : Variable If VBA

Ca marche par contre puis je remplacer "dercol" par "derlin" si mes valeurs vont de B4 à B14 ?

En fait je me suis trompé au début car mes valeurs vont de B4 à B14 et non de B4 à T4

Pour Staple 1600 > la manip de Jean Pierre est effectivement plus simple... je pense que je l'ai saisis ^^

 

[Staple1600]

Re : Variable If VBA

Re


Dans ce cas, tu peux faire

For each c in Range("B1:B" & [B65536].End(xlUP).Row)

ou alors

derlin=Range("B65536").End(xlUp).Row
For each Perf in Range("B1:B" & derlin)

 

[Laurent313131]

Re : Variable If VBA

J'avais tenté ça moi mais ça ne marche pas ...

Sub VMA()
Dim derrow As Integer
Dim Perf As Range
'Set Perf = Range("B4")
derrow = Cells(4, 256).End(xlToDown).Row
For Each Perf In Range("B4:B" & derrow)
If Perf <= 10 Then
'fond rouge
Perf.Interior.ColorIndex = 3
Else
'fond vert
Perf.Interior.ColorIndex = 43
End If
Next Perf
End Sub

 

[Staple1600]

Re : Variable If VBA

Re

Tu n'étais pas loin

Sub VMA()
Dim derlin as Long
Dim Perf As Range
[COLOR=blue][/COLOR]derlin=Range("B65536").End(xlUp).Row
For each Perf in Range("B1:B" & derlin)
If Perf <= 10 Then
'fond rouge
Perf.Interior.ColorIndex = 3
Else
'fond vert
Perf.Interior.ColorIndex = 43
End If
[COLOR=blue]Next Perf[/COLOR]
End Sub

 

[Laurent313131]

Re : Variable If VBA

En effet, ça commence à venir je suis content ^^

Merci pour votre aide en tout cas !