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

ROGER2327

XLDnaute Barbatruc

• 17 Décembre 2009

• #2

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

Bonjour WorkHard

Peut être cela ?

Code:

[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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Décembre 2009

• #3

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

Bonsoir WorkHard, Roger,

Code:

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

A+

 

Vote positif 0 Vote négatif

W

WorkHard

Guest

• 17 Décembre 2009

• #4

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 😛

 

Vote positif 0 Vote négatif

W

WorkHard

Guest

• 17 Décembre 2009

• #5

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Décembre 2009

• #6

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

Re bonsoir,

Plus court:

Code:

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

A+

 

Vote positif 0 Vote négatif