Ma macro ne fait plus rien
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
Bonjour,
Ton message est-il la suite du fil : https://forum.excel-pratique.com/post362955.html#p362955
Re,
Que se passe-t-il avec le code suivant :
Sub MultiplieParMille()
Dim Tabl As Variant
Dim i As Long
Dim x As Long
x = Range("A65536").End(xlUp).Row
Tabl = Range("A1:A" & x)
For i = 1 To x
If IsNumeric(Tabl(i, 1)) And Not IsEmpty(Tabl(i, 1)) Then
Tabl(i, 1) = Tabl(i, 1) * 1000
End If
Next i
Range("B1:B" & x) = Tabl
End SubLe code suivant fonctionne.
marions1857 a écrit :Le code suivant fonctionne.
Super ...
Quelle est donc l'étape suivante ...???
Et dans le but d'éviter de travailler "hors sol" ... et d'avoir beaucoup de messages "allers-retours" ...
pourrais-tu joindre ton fichier ...???
En fait ce que je voudrais c'est que par exemple les valeurs qui trouvent dans ma colonne B se retrouvent dans ma colonne C mutliplié par 1000, les valeurs qui se trouvent dans ma colonne D se retrouvent dans ma colonne E multiplié par 1000 et pour finir les valeurs qui se trouvent dans ma colonne F se retrouvent dans la colonne G multiplé par 1000.
Waouh merci beaucoup ca fonctionne nickel
Marion,
Content que cela fonctionne ...
Merci pour tes remerciements ...
Bon Courage pour toute la suite ...
Merci