Bonjour,
Suite à mon message précédent, j'aimerais améliorer ma macro pour qu'elle soit la plus intuitive possible, afin que n'importe qui de mes collègues puisse l'utiliser
Voilà mes modifs :
Comment lui faire comprendre que si je mets G ou g, c'est égal à la colonne G ??
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 Sub z_Découpage_si_plus_de_60_chèques() Worksheets(2).Activate Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim a, b, c, d As Range d = InputBox("Dans quelle colonne se trouvent la quantité de chèques ? (ex.: colonne G = G ou g)") For Each c In Range(d) If c >= 61 Then a = c.Row b = c.Value Rows(a).Copy Rows(a).Insert shift:=xlDown c.Offset(-1) = 60 c = b - 60 End If Next c Range("A1").Select Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub
Merci par avance
Partager