Microsoft 365 Somme quand plusieurs cellules successives sont égales

quent632 · 7 Juillet 2021

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.

VB:

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 · 7 Juillet 2021

Re,
Teste ceci

VB:

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

M12 · 7 Juillet 2021

Bonjour,
A tester

VB:

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 · 7 Juillet 2021

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

Code:

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 · 7 Juillet 2021

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

Code:

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 · 7 Juillet 2021

Re,
Teste ceci

VB:

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 · 7 Juillet 2021

Yes super merci ça marche parfaitement ! @M12

Microsoft 365 Somme quand plusieurs cellules successives sont égales

quent632

XLDnaute Nouveau

M12

M12

XLDnaute Accro

quent632

XLDnaute Nouveau

quent632

XLDnaute Nouveau

M12

XLDnaute Accro

quent632

XLDnaute Nouveau

Microsoft 365 Somme quand plusieurs cellules successives sont égales

quent632

XLDnaute Nouveau

M12

XLDnaute Accro

quent632

XLDnaute Nouveau

quent632

XLDnaute Nouveau

M12

XLDnaute Accro

quent632

XLDnaute Nouveau

Privacy & Transparency

Privacy & Transparency