Détection de cellules

[uriel]

Salut,

J'ai une page contenant plusieurs colonnes et des milliers de lignes...
Dans l'une des colonne j'ai des nombres du genre: 506982, 506985, 605421,...

Ce que je voudrait faire, c'est compter dans cette colonne tous les nombres commençant par "50" par exemple.

Voila la base de cette partie de ma macro, Sauf que je ne sais pas comment faire pour compter tous ce qui commence par 50:

Z = 0
Range("R1").Select
Do
If Selection.Value = "50????" Then Z = Z + 1
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""

Merci

A bientôt!

 

[mutzik]

Re : Détection de cellules

bonjour uriel, le forum

sub compter50()
dim compteur,nbvaleurs

for compteur = 1 to range("r65536").end(xlup).row
if left(range("r" & compteur),2) = "50" then nbvaleurs = nbvaleurs+1
next compteur
msgbox "il y a " & nbvaleurs & " cellules commencant par 50"

end sub

 

[Pierrot93]

Re : Détection de cellules

Bonjour Uriel

regarde le code ci dessous :

Sub test()
Dim c As Range, i As Integer
For Each c In Range("A1:A10")
If c.Value Like "50*" Then i = i + 1
Next c
MsgBox "nombre de cellules commencant par 50 : " & i
End Sub

plage de cellule A1:A10 à adapter

bonne journée
@+

Edition : bonjour Bertrand, plus rapide... avais pas rafraichi...

 

[uriel]

Re : Détection de cellules

Merci

Je vais tester ça,

bonne nuit!