Bonjour,
Voici la macro de départ que j'ai essayé d'adapter par la suite.
Sub mult_1000()
Dim J As Long
Dim I As Byte
Dim Tabl
Dim DerLig As Long
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Tabl = Range("A1:F" & DerLig)
For J = LBound(Tabl) To UBound(Tabl)
For I = 1 To 5 Step 2
If IsNumeric(Tabl(J, I)) And Not IsEmpty(Tabl(J, I)) Then Tabl(J, I + 1) = Tabl(J, I) * 1000
Next I
Next J
Range("A1:F" & DerLig) = Tabl
End Sub
La macro que j'ai essayé d'adapté à mon cas :
Je ne comprends pas pourquoi en ayant changé la boucle I ainsi le plage de sélection et de destination la macro ne retourne plus rien. Quelqu'un pourrait-il m'éclairer ?!
Sub mult_1000()
Dim J As Long
Dim I As Byte
Dim Tabl
Dim DerLig As Long
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Tabl = Range("B2:G" & DerLig) (Plage de sélection)
For J = LBound(Tabl) To UBound(Tabl)
For I = 2 To 6 Step 2
If IsNumeric(Tabl(J, I)) And Not IsEmpty(Tabl(J, I)) Then Tabl(J, I + 1) = Tabl(J, I) * 1000
Next I
Next J
Range("B2:G" & DerLig) = Tabl (Plage de destination)End Sub