Microsoft 365 Somme quand plusieurs cellules successives sont égales

[quent632]

Bonjour à tous,

Afin de gagner du temps, j'aimerais créer une macros permettant d'afficher la quantité de chaque article dans la colonne D, comme si dessous :

ART-0017	UN	2,00
ART-0033	UN	6,00
ART-0044	UN	1,00
ART-0063	M	4,70
ART-0063	M	4,70
ART-0075	UN	2,00
ART-0075	UN	2,00
BPL-0009	M2	1,40
BPL-0014	M2	0,10
BPL-0023	M2	1,00
BPL-0023	M2	9,10
BPL-0023	M2	18,54

J'ai un début de code cependant je n'arrive pas à concrétiser.

Sub somme()

Dim DernLig As Long
DernLig = Cells(Rows.Count, 1).End(xlUp).Row

Dim compteur As Integer


For n = 1 To DernLig
    If Cells(n, 1) = Cells(n + 1, 1) Then
        compteur = compteur + 1
        
    End If
Next n
End Sub

Merci d'avance

 

[M12]

Bonjour,
A tester

Sub somme()
Dim DernLig As Long, n As Long, compteur As Integer
DernLig = Cells(Rows.Count, 1).End(xlUp).Row
compteur = 1
For n = 1 To DernLig
    If Cells(n, 1) = Cells(n + 1, 1) Then
        compteur = compteur + 1
    Else
      Cells(n, 4) = compteur
    End If
Next n
End Sub

 

[quent632]

Merci pour votre réponse. Je m'étais peut-être mal expliqué, je voudrais sommer la colonne "C". J'ai modifié 2 trucs :

Sub somme()
Dim DernLig As Long, n As Long, compteur As Integer
DernLig = Cells(Rows.Count, 1).End(xlUp).Row
compteur = 1
For n = 1 To DernLig
    If Cells(n, 1) = Cells(n + 1, 1) Then
        compteur = compteur + 1
        
    Else
      Cells(n, 4) = Cells(n, 3)
    End If
Next n
End Sub

Cependant je ne sais comment écrire la somme de la colonne C des articles similaires...
Pour l'instant j'ai ça :

 

[quent632]

Merci pour votre réponse. Je m'étais peut-être mal expliqué, je voudrais sommer la colonne "C". J'ai modifié 2 trucs :

Sub somme()
Dim DernLig As Long, n As Long, compteur As Integer
DernLig = Cells(Rows.Count, 1).End(xlUp).Row
compteur = 1
For n = 1 To DernLig
    If Cells(n, 1) = Cells(n + 1, 1) Then
        compteur = compteur + 1
       
    Else
      Cells(n, 4) = Cells(n, 3)
    End If
Next n
End Sub

Cependant je ne sais comment écrire la somme de la colonne C des articles similaires...
Pour l'instant j'ai ça :
Regarde la pièce jointe 1110419

Il faudrait que j'obtienne cela :

 

[M12]

Re,
Teste ceci

Sub somme()
Dim DernLig As Long, n As Long, compteur As Double
DernLig = Cells(Rows.Count, 1).End(xlUp).Row
compteur = 0
For n = 1 To DernLig
    If Cells(n, 1) = Cells(n + 1, 1) Then
        compteur = compteur + Cells(n, 3)
    Else
      Cells(n, 4) = compteur + Cells(n, 3)
      compteur = 0
    End If
Next n
End Sub

 

[quent632]

Yes super merci ça marche parfaitement ! @M12