renaud97434
Messages postés31Date d'inscriptionlundi 26 novembre 2007StatutMembreDernière intervention26 août 2008
-
3 déc. 2007 à 08:47
renaud97434
Messages postés31Date d'inscriptionlundi 26 novembre 2007StatutMembreDernière intervention26 août 2008
-
3 déc. 2007 à 13:28
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.
cs_Frederic45
Messages postés60Date d'inscriptionvendredi 26 octobre 2007StatutMembreDernière intervention30 mars 2010 3 déc. 2007 à 11:39
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
cs_Frederic45
Messages postés60Date d'inscriptionvendredi 26 octobre 2007StatutMembreDernière intervention30 mars 2010 3 déc. 2007 à 12:37
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 ?