comptage de cellule

[matis3854]

Bonjour à tous,

j'ai besoin d'aide svp.. depuis ce matin je cherche un code VBA afin de compter un nombre de cellule d'une colonne dont la valeur est comprise entre 5 et 10. Mais j'ai un petit problème lorsque je fait marcher ma macro qui doit compter les cellules dont la valeur est comprise entre 5 et 10, le MSGBOX me ressort 0 alors qu'il y en a plus de 0. Bref je vous met le code que j'utilise :
Sub cell_text_4()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:K8761")
n = 0
For Each cel In plage
If ((cel.Value > "5") And (cel.Value <= "10")) Then
n = n + 1 'compteur

End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 5 et 10 °C"
End Sub

De plus mon programme doit également compter les cellules (sur la mm colonne toujours) comprises entre -5 et 0, 0 et 5, 5 et 10... ect jusqu'à 35.

Mes divers macro donnent :

Sub cell_text_1()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If cel.Value <= "-5" Then
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " heures où la température est inférieure à -5"
End Sub

Sub cell_text_2()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If (cel.Value > "-5" And cel.Value <= "0") Then
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre -5 et 0 °C"
End Sub

Sub cell_text_3()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If (cel.Value > "0" And cel.Value <= "5") Then
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 0 et 5 °C"
End Sub

Sub cell_text_4()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:K8761")
n = 0
For Each cel In plage
If ((cel.Value > "5") And (cel.Value <= "10")) Then
n = n + 1 'compteur

End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 5 et 10 °C"
End Sub

Sub cell_text_5()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If (cel.Value > "10" And cel.Value <= "15") Then
n = n + 1 'compteur

End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 10 et 15 °C"
End Sub

Sub cell_text_6()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If (cel.Value > "15" And cel.Value <= "20") Then
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 15 et 20 °C"
End Sub


Sub cell_text_7()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If (cel.Value > "20" And cel.Value <= "25") Then
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 20 et 25 °C"
End Sub

Sub cell_text_8()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If (cel.Value > "25" And cel.Value <= "30") Then
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 25 et 30 °C"
End Sub

Sub cell_text_9()
Dim plage As Range
Dim cel As Range
Dim n As Long


Set plage = Application.Sheets(1).Range("K2:k8761")
n = 0
For Each cel In plage
If (cel.Value > "30" And cel.Value <= "35") Then
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " heures où la température est comprise entre 30 et 35 °C"
End Sub

Sub auto_open()
cell_text_9
cell_text_8
cell_text_7
cell_text_6
cell_text_5
cell_text_4
cell_text_3
cell_text_2
cell_text_1
End Sub



Merci à tous

 

[phlaurent55]

Re : comptage de cellule

Bonjour matis3854

si j'ai bien compris, un exemple par formule à adapter selon tes besoins

 

[matis3854]

Re : comptage de cellule

Bonjour matis3854

si j'ai bien compris, un exemple par formule à adapter selon tes besoins

Merci pour ta réponse mais je cherchais à réaliser cela en VBA, mais merci bcp qd mm.

 

[MJ13]

Re : comptage de cellule

Bonjour Matis, laurent

Matis3854, Joint un fichier avec un exemple, ce sera plus simple.

Merci

 

[matis3854]

Re : comptage de cellule

je ne sais pas comment joindre un fichier ici.

 

[MJ13]

Re : comptage de cellule

Re Matis

Lorsque tu fais ajouter une réponse, tu as en dessous, gérer les pièces jointes. Puis parcouir, choisir le fichier puis envoyer et enfin fermer cette fenêtre. Normalment c'est assez simple.

 

[matis3854]

Re : comptage de cellule

voilà mille excuses!! je n'avais pas vu cet onglet.

Mais il ne passe pas, ma colonne fait 8761 cellules, ça peut etre une des raisons pour laquelle ma macro ne marche pas??

je suis très novice en VBA, en plus je suis une fille nulle en informatique... ça aide pas tt ça!!

 

[MJ13]

Re : comptage de cellule

Re

Bon Romain t'a normalement donné la solution sur l'autre post

https://www.excel-downloads.com/threads/comptage-de-cellule-sur-excel-via-une-macro-vba.114994/

Sinon pour envoyer un fichier, le mieux est de le zippé de moins de 48Ko mais ce n'est pas la peine de mettre des milliers de lignes juste une centaine suffit.

Remarque maintenant, tu sais comment envoyer un fichier sur XLD🙂.

 

[matis3854]

Re : comptage de cellule

non ça ne marche pas sa solution, je ne sais pas ce que je fais pr que ça ne marche pas!! zut de zut... pff je déteste l'info...lol

bon je vais essayer de le zipper...

 

[matis3854]

Re : comptage de cellule

voilà mon truc avec des lignes enlevées

 

[MJ13]

Re : comptage de cellule

Re

Chez moi cela fonctionne

(Sinon peut-être un problème de . à remplacer par la virgule pour qu'ils soient pris pour des nombres).

 

[matis3854]

Re : comptage de cellule

bah j'y comprends plus rien!!!
franchement si tu as deux secondes pr regarder mon programme et me dire quelles bétises j'ai faite pr que ça ne compte pas bien ça m'avancerait

 

[MJ13]

Re : comptage de cellule

J'ai modifié mon post

A tester:
Sinon peut-être un problème de . à remplacer par la virgule pour qu'ils soient pris pour des nombres (si les nombres sont à gauches en alignement standard, c'est qu'ils sont pris pour du texte et s'ils sont à droite, ils sont pris pour des valeurs).

 

[jeanpierre]

Re : comptage de cellule

Bonjour matis3854, Michel,

Tes valeurs en colonne K ne sont pas des valeurs mais du texte.

Tu selectionnes la colonne K et par le menu Edition/Remplacer, tu sais un point . dans le premier champ et une virgule , dans le second et tu termines par Remplacer tout.

Voir si cela arrange.

Bon après-midi.

Jean-Pierre

 

[matis3854]

Re : comptage de cellule

Merci beaucoup Michel et Jean-Pierre...

Ca marche enfin!! bon une journée de perdue pour ce tout petit truc qui ne marchait pas...
Il va être sympa le stage de cinq mois à faire du VBA( oui je suis en stage ingénieur, je dois construire un logiciel en VBA et j'en ai jms fait de ma vie (ni aucune autre forme de programmation d'ailleurs)...)

Merci pr tout
Bonne journée