Discussion :

[dodo69]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guigui71]

ton programme s'arrête à quel niveau en mode pa sà pas ?

[Maxence HUBICHE]

Bonjour !

Ceci n'est pas beau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim f, n, t As Integer

Faire plutôt, au choix :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim f As Integer
Dim n As Integer
Dim t As Integer

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorkSheetFunctions.Countif(...)

[dodo69]

Merci de ta réponse Maxence

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci pour l'info je savais pas

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é"

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorkSheetFunctions.Countif(...)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

n = Application.WorkSheetFunctions.CountIf(Range("H:H"), "N")

[Maxence HUBICHE]

Je t'ai conseillé de regarder ce que te renvoyait cette phrase :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil4.UsedRange.Rows.Count

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

t = Feuil4.UsedRange.Rows.Count

à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

application.WorksheetFunction.CountIf(

[dodo69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
@+