Compter tant que

[titibobo]

Bonsoir

Avec 2 colonnes :
La première A dans laquelle je souhaite compter vers la bas mais tant que la valeur dans la deuxième colonne (B) est identique le compteur garde la même valeur :



Je pense utiliser une boucle while/wend ou For/next avec i = 1 To [A1].End(xlDown).Row (que je viens d'apprendre ici 😉 )

Mais comment coder le fait que tant que la valeur de la cellule d'en dessus est la même ne pas compter ?

Merci de votre aide.

 

[Robert]

Re : Compter tant que

Bonsoir titibobo, bonsoir le forum,

En utilisant un dictionnaire :

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dico As Object 'déclare la variable dico (DICtiOnnaire)
Dim c As Integer 'déclare la variable c (Compteur)

Set dico = CreateObject("Scripting.Dictionary") 'définit la dictionnaire dico
Set pl = Sheets("Feuil1").Columns(1).SpecialCells(xlCellTypeConstants) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    dico(cel.Value) = "" 'alimente le dictionnaire dico
Next cel 'prochaine cellule de la boucle
c = dico.Count 'définit le compteur c (nombre de valeurs sans doublons)
MsgBox c 'affiche le compteur c
End Sub

 

[youky(BJ)]

Re : Compter tant que

Bonjour tous,
Une autre version
Bruno

Sub compteur()
For k = 1 To [B65000].End(3).Row
  If tx = Cells(k, 2) Then
     Cells(k, 1) = i
  Else
     i = i + 1
     Cells(k, 1) = i
     tx = Cells(k, 2)
  End If
Next
End Sub

 

[DoubleZero]

Re : Compter tant que

Bonjour, titibobo, Robert 🙂, le Forum,

Sans dictionnaire, que je ne maîtrise pas 🙁 :

Sub Compter_tant_que()
Range("b:b").Sort Range("b1"), xlAscending, Header:=xlNo
Range("A1") = "1"
Range("a2:a" & Range("b65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],R[-1]C,R[-1]C+1)"
Range("a2:a" & Range("b65536").End(xlUp).Row).Value = Range("a2:a" & Range("b65536").End(xlUp).Row).Value
End Sub

A bientôt 🙂

P. S. : Bonjour, Bruno 🙂

 

[R@chid]

Re : Compter tant que

Bonjour @ tous,
en A1,

=SOMMEPROD(1/NB.SI(B$1:B1;B$1:B1))

@ tirer vers le bas
@ + +

 

[titibobo]

Re : Compter tant que

Merci à tous