VBA-E : Copier des valeurs et les additionner si une cellule est non vide

Amis codeurs bonsoir !

Je vous sollicite aujourd'hui pour une question particulière. Mon fichier se présente sous la forme:

Cellule A1 : 100
Cellule A2: (Vide)
Cellule A3: (Vide)
Cellule A4: (Vide)
Cellule A5: 300
Cellule A6: 500
Cellule A7: (Vide)

Cellule B1: 5
Cellule B5: 2

Vous l'aurez sans doute compris, je souhaite:
- Copier la valeurs en A1, le nombre de fois qu'elle est indiqué dans B1, que la A2 soit copier autant de fois qu'en B2 et simplement coller à la suite.
- Additionner la valeur en A1 avec une autre valeur qui serait en A tout en respectant le nombre indiqué en B

Le résultat finale de l'exemple ci-dessus devrait donner:

Cellule A1 : 100
Cellule A2: 100
Cellule A3: 100
Cellule A4: 100
Cellule A5: 400 (Simplement il me reste 1 jour avec 100 mais on a un nouveau chiffre 300 d'une durée de 2 jours donc pour le premier 400)
Cellule A6: 800 (Ici la valeurs 100 a atteint son quotas de 5 jours donc on retombe a 300 (dont il reste 1 jours aussi) et on l'ajoute au 500 donc 800)
Cellule A7: (Vide)

Merci d'avance pour votre aide !

Bonjour,

Je pense avoir saisi ton problème.

Tu peux tester ce code et l'adapter par la suite si tu as d'autres contraintes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub Rempl()     Derligne = Range("A65000").End(xlUp).Row   For i = 1 To Derligne If Not IsEmpty(Cells(i, 2)) Then Cells(i, 3).Value = Cells(i, 1).Value End If Next   For i = 1 To Derligne   x = Cells(i, 2).Value - 1   If Not IsEmpty(Cells(i, 1)) Then   For j = 1 To x Cells(i + j, 1).Value = Cells(i + j, 1).Value + Cells(i, 3).Value Next End If   If x = 1 Then   i = i + x   Else   i = i + x - 1 End If   Next

---

Bonjour Kiouane,

Je teste ce code et te tiens informé.

Merci pour ta sollicitude

EDIT: je viens de le tester, ça m'aide grandement. Je vais tenter d'y apporter des modifications pour que ça colle parfaitement.

Excellent week-end à toi

J'ai un nouveau problème avec ton code.
On dirait que Excel limite la copie...Par exemple, une valeur doit être copier x fois, donc ta variable j = 1 to x devrait être juste maiis au bout de 672 fois exactement ça s'arrête... as tu une idée pk ?

merci

EDIT: j'ai remarqué que ç me déduit 470 fois à chaque fois, par exemple si une valeur doit être copié 940 fois eh bien elle le sera 470 fis...