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 :

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
Comment lui faire comprendre que si je mets G ou g, c'est égal à la colonne G ??

Merci par avance