Bonjour,

Actuellement j'essaie de faire cette macro :

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
Sub test()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
Dim c As Integer
 
For Each c In Range("F:F")
'en sachant que la valeur maximale de la cellule doit être 60
'donc
 
If c >= 61 And c <= 120 Then
'le découpage va se faire en 2
 
'1) inserer une ligne juste en dessous
'2) copier/coller toute la ligne c sur la ligne qui a été inserer
'3) si on a par exemple on a la valeur 70, ça sera 60 en première ligne, puis 10 en deuxième ligne
 
If c >= 121 Then
'le découpage va se faire en 3
 
If c >= 181 Then
'le découpage va se faire en 4
 
'et ainsi de suite
 
 
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Première question : comment faire ça ? (le fait que si on a par exemple 70, alors il met 60 en première ligne, et le reste (10) en deuxième ligne)

Deuxième question : peut-on faire plus simple que ce que j'ai fait ?


Merci par avance