COMPRIS ENTRE dans un CountIf en VBA
Bonjour,
C'est la premiere fois que je viens poster une question sur ce genre de forum car en général je trouve une réponse à mes problèmes dans d'autres forum... Cependant là je bloque sur un quelque chose de surement très bête mais qui m'empèche d'avancer dans ma programmation.
Je m'explique:
J'ai un tableau de données dont l'une des colonnes (en l'occurence la colonne K) est une colonne de chiffre (certain positifs, certains négatifs) et de mots (cela doit vous paraitre bizarre d'avoir une colonne avec des chiffres et des mots mais c'est normal car ce sont des échéances et certaines échéances surviennent apres un "événement").
OBJECTIF: Je souhaite pouvoir compter le nombre de cellules de ma colonne K dont le contenu est un nombre compris entre 0 (strictement) et 30.
Les seules choses que j'ai réussi à faire c'est de compter le nombre de cellules de ma colonne K dont le contenu est un nombre inférieur à 0 ; et compter toutes les cellules de ma colonnes K.
Voici les codes que j'utilise et qui fonctionnent :
Code:
1
2
3
4
5
6
7
8
9
10
| Sub CompterRetard()
Dim compteur As Integer
compteur = Application.WorksheetFunction.CountIf(Range("K2:K2000"), "<=0")
Sheets("Feuil1").Range("M2").Value = compteur
End Sub
Sub CompterEnCours()
Dim compteur As Integer
compteur = Application.WorksheetFunction.Count(Range("K1:K" & Range("K2000").End(xlUp).Row))
Sheets("Feuil1").Range("M4").Value = compteur
End Sub |
Voici celui qui ne fontionne pas :
Code:
1
2
3
4
5
| Sub CompterApproche()
Dim compteur As Integer
compteur = Application.WorksheetFunction.CountIf(Range("K2:K2000"), "<=0" and ">30")
Sheets("Feuil1").Range("M3").Value = compteur
End Sub |
Il m'affiche l'erreur suivante : incompatibilité de type ....
SVP aidez moi !!
