Calcul nombre de cellule entre deux nombre même valeur

[nicroq]

Bonjour,

tout d abord merci pour votre aide!!!

je souhaiterai calculé en VBA le nombre de cellules séparant deux nombres de même valeur dans la même colonne.
par exemple dans la colonne A : A1 = 1, A2=2 etc jusqu'a 30 , puis en A31=1, A32=2 etc...

est il possible en vba de calculer le nombre de cellules de A1=1 à A31=1 (soit 30 cellules!!)

j'ai besoin de cela pour établir cette variable dans mon code VBA !!!

merci!

cdlt

 

[Paritec]

Re : Calcul nombre de cellule entre deux nombre même valeur

bonjour nicroq le forum

sub var()
dim i&,var&
for i = 1 to feuil1.range("A"&rows.count).end(xlup).row
if cells(1,1)=cells(i,1) then var=i: exit for
next i

a+
papou🙂

 

[nicroq]

Re : Calcul nombre de cellule entre deux nombre même valeur

bonjour papou

merci pour votre reponse tres rapide!!

mais cela ne fonctionne pas au niveau de (=.cells(i,1))??

cdlt



sub var()
dim i&,var&
for i = 1 to feuil1.range("A"&rows.count).end(xlup).row
if cells(1,1)=.cells(i,1) then var=i: exit for
next i

 

[nicroq]

Re : Calcul nombre de cellule entre deux nombre même valeur

Cest bon papou j'ai resolu le probleme!!
Fallais enlever le point devant cells et mettre i=2

Sub var()
Dim i&, var&
For i = 2 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row
If Cells(1, 1) = Cells(i, 1) Then var = i: Exit For
Next

Range("B4") = var
End Sub

merci!!!
et bon week end