Fipat
XLDnaute Occasionnel
Bonjour,
pourriez-vous m'aider sur cette macro.
Le résultat n'est pas le bon.
La comptabilisation ne se fait pas.
Merci pour votre réponse.
pourriez-vous m'aider sur cette macro.
Le résultat n'est pas le bon.
La comptabilisation ne se fait pas.
Merci pour votre réponse.
VB:
Sub Compter()
Dim ValuesRange As Range
Dim ResultCell As Range
Dim CriteriaValue As String
CriteriaValue = Range("C12")
With Sheets("Feuil1")
If WorksheetFunction.CountIf(Range("$B3:$K3"), True) = 0 Then
Set ValuesRange = Range("G2:K6")
Set ResultCell = Range("F12")
MsgBox CriteriaValue
ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue)
MsgBox ResultCell
Else
MsgBox "Erreur"
End If
End With
End Sub