Programme VBA : somme dynamique tant qu’un nombre se répète

Bonjour,

Avis aux amateurs, j’ai un joli programme à vous présenter .

Alors je souhaite faire une somme sur une colonne dès que j’ai la répétition d’un code présent dans une autre colonne 76 dans mon exemple.

L’idée est de faire une boucle tant que ce numéro est présent et faire la somme des chiffres présent dans une autre colonne 81 dans mon cas.

Dès que le total vaut 1 on passe à l'autre valeur qui se répète.

Ci-dessous le cas simple ou on check juste si la somme est égale à 1 on passe au suivant. Je sèche déjà sur cette macro!!

Résultat que je souhaite obtenir pour le code : BMOU2077744 avoir 3 *0.33333 = 1 => check ok

CAIU3161248 avoir 2*0.5 = 1 => check ok

J’ai du mal pour faire deux boucles imbriquées et faire un test en même temps. .

Le programme en exemple en pj.

Merci d’avance pour votre aide.

Bonne journée aux membres du forum.

bonjour,

une solution avec une formule

solution VBA

Sub aargh()
s = 0
For i = 15 To Cells(Rows.Count, "bx").End(xlUp).Row
s = s + Cells(i, "cc")
 If Cells(i, "bx") <> Cells(i + 1, "bx") Then
If Round(s, 5) >= 1 Then
 MsgBox "check ok for " & Cells(i, "bx")
 s = 0
Else
 MsgBox "check nok for " & Cells(i, "bx")
 s = 0
End If
End If
Next i

End Sub

Merci, je vais regarder ta solution et je te reviens.

Bonne journée,

Cordialement.

Bonjour,

en vba , je n'ai pas fais ça mais en TCD oui

P.

Salut patrick1957, h2so4.

Merci pour vos réponses.

@patrick1957 : super idée avec un tcd, mais je voulais plus faire un code vba, en revanche je vais réutiliser ton idée du tcd pour un autre projet.

@h2so4 : super code ça exécute ce que je voulais. Franchement je suis comblé .

Hop sujet résolu. Merci aux membres de excel-pratique.com.