Discussion :

[edgarrd]

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 !

[Kiouane]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edgarrd]

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

[edgarrd]

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

[edgarrd]

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...