Langage VBA : si 2 cellules de la plage... = ... alors ...

[WorkHard]

Bonjour,

Quelqu'un serait-il exprimer en langage VBA la chose suivante :

Si 2 cellules de la plage A1 à A4 est égale à 3 alors la cellule B1 est verte.


Pour l'instant j'en suis à :

If 2 Cells In Range ("A1:14") = 3 Then Range("B1").Interior.ColorIndex = 4

Mais ça ne fonctionne pas du tout !

A+

 

[ROGER2327]

Re : Langage VBA : si 2 cellules de la plage... = ... alors ...

Bonjour WorkHard

Peut être cela ?

[COLOR="DarkSlateGray"][B]Sub toto()
Dim oCel As Range, i As Long, c As Long
   With Range("A1:A4")
      For Each oCel In .Cells
         If oCel.Value = 3 Then c = c + 1
      Next oCel
   End With
   If c = 2 Then [B1].Interior.ColorIndex = 4 Else [B1].Interior.ColorIndex = xlNone
End Sub[/B][/COLOR]

ROGER2327
#2408

 

[Guest]

Re : Langage VBA : si 2 cellules de la plage... = ... alors ...

Bonsoir WorkHard, Roger,

Sub Test()
    If Application.CountIf([A1:A14], 3) = 2 Then
        [B1].Interior.ColorIndex = 4
    Else
        [B1].Interior.ColorIndex = xlNone
    End If
End Sub

A+

 

[WorkHard]

Re : Langage VBA : si 2 cellules de la plage... = ... alors ...

Salut Roger,

J'ai essayé mais apparemment ça ne fonctionne pas.

Merci d'avoir tenté de résoudre se mystère

 

[WorkHard]

Re : Langage VBA : si 2 cellules de la plage... = ... alors ...

Re,

Excuse Roger, ça fonctionne, je m'étais trompé en faite.
Merci à tous et Hasco, les 2 fonctionne parfaitement.

A+tard

 

[Guest]

Re : Langage VBA : si 2 cellules de la plage... = ... alors ...

Re bonsoir,

Plus court:

[B1].Interior.ColorIndex = (Application.CountIf(Range("A1:A14"), 3) = 2) * -4

A+