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 :
Voici celui qui ne fontionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Il m'affiche l'erreur suivante : incompatibilité de type ....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
SVP aidez moi !!
Partager