Boucle occurence

Signaler
Messages postés
31
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
26 août 2008
-
Messages postés
31
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
26 août 2008
-
bonjour,

suite à un post sans réponse je vous retransmet ma demande:

je suis dans une macro qui compte le nombre de ligne d'une colonne.

sub lignes
dim i as long , j as long
dim a as date, b as date
dim k as long, l as long
'compter les lignes i= le nombre de lignes de la feuille
do while cells(i.1)<>""
i=i+1
'compter le nombre de lignes compris entre les deux dates j donne le décompte des lignes entre les deux dates
if a<=cells(i,1) and cells (i,1)<=b then
j=j+1
'compter le nombre d'occurences uniques entre les deux dates la je ne sais pas faire mais voila ce que j'ai rentré
for k=1 to 50000
if cells(i,1)=cells(i+k,1) then
l=l
else l=l+1
end if
next

end if
loop
end sub
 

en testant kle résultat n'est pas le bon, à partir d'un moment le décompte ne se fait plus.

votre aide serait appréciée. je veux compter le nombre d'occurence avec une boucle et non pas une fonction.

merci

4 réponses

Messages postés
60
Date d'inscription
vendredi 26 octobre 2007
Statut
Membre
Dernière intervention
30 mars 2010

Bonjour à tous
Bonjour renaud

Si j'ai bien compris ce que tu recherches :
Sub recherche_occurences()
Dim c, d As Variant
Dim ligne As Integer
date1 = Range("B1")
date2 = Range("C1")
With Worksheets("Feuil1").Range("A:A")
    Set c = .Find(date1, LookIn:=xlValues)
    Set d = .Find(date2, LookIn:=xlValues)
    If Not c Is Nothing Then
        nbligne = d.Row - c.Row - 1
    End If
End With
End Sub

Frédéric
Messages postés
31
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
26 août 2008

je l'ai adapté mais ca ne fonctionne pas.


le compte n'est pas bon mais merci quand même.


je sais combien il y a de lignes dans la colonne (i)


je sais combien il y a de lignes entre les deux dates (j)

combien y a til de références uniques pour les j lignes?


 
Messages postés
60
Date d'inscription
vendredi 26 octobre 2007
Statut
Membre
Dernière intervention
30 mars 2010

Re

Désolé mais je n'avais pas vu :
" compter le nombre d'occurences uniques entre les deux dates "
mais là je ne comprend plus, et même pas du tout. Peux tu éclairer ma lanterne ?

Frédéric
Messages postés
31
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
26 août 2008

'cela définie ma condition pour que i soit dans la plage a et b

if a<=cells(i,1) and cells (i,1)<=b then
' ici le nombre de lignes compris dans la plage
j=j+1

'toujours dans la condition
'je compte quand la cellule est différente de la suivante
if  cells(i,1)<>cells(i+1,1) then
k=k+1

ca devrait me dopnner le nombre d'occurences uniques mais ca ne le fait pas .

je cherche un raisonnement qui m'expliquerait ou est l'erreur ...