problème avec la fonction CountIf

Version imprimable

Bonjour à tous,

J'ai de nouveau besoin d'aide sur le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub go_analyse_Click()
Dim f, n, t  As Integer
 
'on compte le nombre de ligne
 
t = 1
Do
t = t + 1
Loop Until Feuil4.Cells(t, 1) = "" And Feuil4.Cells(t + 1, 1) = ""
 
'là ca bloque en essayant d'attribuer à n et f le nombre de valeur
n = CountIf(Range("H:H"), "N")
f = CountIf(Range("H:H"), "F")
Feuil5.Cells("A9").Value = "Vous avez " & n & " nouveaux sur les " & t - 1 & " produits "
Feuil5.Cells("A10").Value = "Vous avez" & f & " produits en fin de vie sur les " & t - 1 & " produits"
 
End Sub

J'aimerai savoir pourquoi CountIf ne marche pas dans ce cas là s'il vous plait,
avec si possible la correction de ce code

Merci d'avance
Dodo

05/01/2011, 16h07
guigui71

ton programme s'arrête à quel niveau en mode pa sà pas ?
05/01/2011, 16h08
Maxence HUBICHE
Bonjour !

Ceci n'est pas beau :

Code:

Dim f, n, t As Integer

Faire plutôt, au choix :

Code:

Dim f As Integer, n As Integer, t As Integer

ou
Code:

1 2 3 Dim f As Integer Dim n As Integer Dim t As Integer
En effet, ton écriture revient à écrire, en fait

Code:

Dim f As Variant, n As Variant, t As Integer

Je sais, c'est nul, mais c'est comme ça !

--------------------------------------------------------------------------
Concernant la recherche du nombre de lignes, tu devrais regarder ce que te propose

Code:

Feuil4.UsedRange.Rows.Count

--------------------------------------------------------------------------
Pour l'usage des fonctions Excel puis le Code VBA, il est préférable de dire à VBA que tu vas les chercher dans Excel.
Donc, par exemple :

Code:

Application.WorkSheetFunctions.Countif(...)
05/01/2011, 16h17
dodo69

Merci de ta réponse Maxence

Citation:

Envoyé par Maxence HUBICHE

En effet, ton écriture revient à écrire, en fait

Code:

Dim f As Variant, n As Variant, t As Integer

Merci pour l'info je savais pas

--------------------------------------------------------------------------

Citation:

Envoyé par Maxence HUBICHE

Concernant la recherche du nombre de lignes, tu devrais regarder ce que te propose

Code:

Feuil4.UsedRange.Rows.Count

Cette ecriture ne marche pas il me met une erreur au niveau du .count en disant "utilisation incorrect de la propriété"

--------------------------------------------------------------------------

Citation:

Envoyé par Maxence HUBICHE

Code:

Application.WorkSheetFunctions.Countif(...)

Pour ce code ca ne marche pas non plus :cry: peut etre l'ai-je mal ecrit:

Code:

n = Application.WorkSheetFunctions.CountIf(Range("H:H"), "N")
05/01/2011, 16h22
Maxence HUBICHE
Je t'ai conseillé de regarder ce que te renvoyait cette phrase :

Code:

Feuil4.UsedRange.Rows.Count

pas de la copier-coller dans ton code !
...
Essaye de mettre :

Code:

t = Feuil4.UsedRange.Rows.Count

à la place de
Code:

1 2 3 4 5 t = 1 Do t = t + 1 Loop Until Feuil4.Cells(t, 1) = "" And Feuil4.Cells(t + 1, 1) = ""
oups !
J'avais tapé un s en trop ...

Code:

application.WorksheetFunction.CountIf(

Merci beaucoup ca marche très bien

En plus ca m'a permis de connaître une méthode plus rapide pour compter les lignes, toujours utile a l'avenir

pour le code ca donne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub go_analyse_Click()
Dim f As Integer
Dim n As Integer
Dim t As Integer
 
t = Feuil4.UsedRange.Rows.Count
 
n = Application.WorksheetFunction.CountIf(Range("H:H"), "N")
f = Application.WorksheetFunction.CountIf(Range("H:H"), "F")
Feuil5.Cells("A9").Value = "Vous avez " & n & " nouveaux sur les " & t - 1 & " produits "
Feuil5.Cells("A10").Value = "Vous avez" & f & " produits en fin de vie sur les " & t - 1 & " produits"
 
End Sub

Merci maxence
@+