Macro pour generer des arrondis

[fcocotte]

Bonjour,

J'ai une macro pour calculer des arrondis : les données viennent d' un tableau croisé

Sub KE()
    ActiveCell.FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"
    Range("H5").Select
    Selection.AutoFill Destination:=Range("H5:H15"), Type:=xlFillDefault
    Range("H5:H15").Select
    Range("H16").Select
    
End Sub

Je souhaite la modifier car mon tableau croisé évolu et le numbre de lignes changent
Le donnée du tableaux sont en colonne D5 à D..... et je souhaite mes arrondis en colonne H5 à H....
Quelqu'un peut il me donner un coup de main pour modifier le code

Merci

 

[Dranreb]

Re : Macro pour generer des arrondis

Bonjour,

Comme ceci par exemple:

Sub KE()
Range(Range("H5"),Range("H65536").End(xlUp)).FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"
End Sub

 

[fcocotte]

Re : Macro pour generer des arrondis

Merci

J'ai testé ça marche mais pas dans le bon sans : part de H5 et remonte vers H1 au lieu de descendre...

 

[youky(BJ)]

Re : Macro pour generer des arrondis

Bonjour,
Peut être en remplacant une seule petite lettre . . . .D au lieu H pour avoir la dernière ligne
Bruno

Sub KE()
Range(Range("H5"),Range("D65536").End(xlUp)).FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"
End Sub

 

[Dranreb]

Re : Macro pour generer des arrondis

Oh ! Pardon de nos étourderies !
Finalement j'écrirais peut être :

Sub KE()
Dim Rg as range
Set Rg=Range(Range("D5"),Range("D65536").End(xlUp))
Range("H5").Resize(Rg.Rows.Count).FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"
End Sub

 

[fcocotte]

Re : Macro pour generer des arrondis

Merci

Je vais tester
J'avais ça comme solution ( ça marche):
Sub KE2()
Range("H5").FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"
Range("H5").AutoFill Destination:=Range("H5:H" & Range("D65536").End(xlUp).Row), Type:=xlFillDefault
End Sub

Bonne soirée

 

[youky(BJ)]

Re : Macro pour generer des arrondis

C'est décidement la journée des boulettes . . .
une autre version
Bruno

Range("H5:H" & [D65536].End(xlUp).Row).FormulaR1C1 = "=ROUND(RC[-4]/1000,0)"

 

[fcocotte]

Re : Macro pour generer des arrondis

Bonjour,

Au fait merci!!
Ca marche super bien

Bon WE