Détection de cellules

uriel · 2 Juillet 2007

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 · 2 Juillet 2007

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 · 2 Juillet 2007

Re : Détection de cellules

Bonjour Uriel

regarde le code ci dessous :

Code:

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 · 3 Juillet 2007

Re : Détection de cellules

Merci

Je vais tester ça,

bonne nuit!

Détection de cellules

uriel

Guest

mutzik

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

uriel

Guest

Discussions similaires

Détection de cellules

uriel

Guest

mutzik

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

uriel

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency