Marco Excel

[mboules]

Bonsoir à tous j'ai une colonne A ou il y des nombres et j'aimerai que sur la colone B je les divise par 100. En manuel c'est super je met la formule sur la cellule B1 a1/100 et de double clique sur celle ci pour que toutes les celulles de la colone A soit prise mais je voudrais automatiser cela par une macro la voici :

Range("H2").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-1]/100)"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H19000")
Range("H2:H19000").Select
Range("H1").Select

par contre le hic c'est qu'elle fait ca jusqu'a 19000 si j'en ai moins et bien j'ai des 0 et j'aurai aimé trouver une formule qui sonde si j'ai toujours des données sur la colone A

Bonne soiré
Mb

 

[Fred0o]

Re : Marco Excel

Bonsoir mboules,

Essaie avec ce code :

Range("H2").Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-1]/100)"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H" & range("G65000").End(xlup).row)
Range("H2:H19000").Select
Range("H1").Select

A+

 

[mboules]

Re : Marco Excel

10000000000 Mercis Fred0o
en plein dans le mille
Que dire de plus BRAVO
mb

 

[CBernardT]

Re : Marco Excel

Bonsoir mboules, FredOo,

Deux pour le prix d'une .....

Par formule en colonne G et H

Sub DiviserParCentFormule()
Dim Derlig As Integer
' Dernière ligne de la colonne G où se trouve les nombres
Derlig = Range("G65536").End(xlUp).Row
' Création de la formule
Range("H2").FormulaR1C1 = "=SUM(RC[-1]/100)"
' Incrémentation jusqu'à la fin de la colonne G
Range("H2").AutoFill Destination:=Range("H2:H" & Derlig)
End Sub

Par tableau dynamique en colonne A et B :

Sub DiviserParCentTD()
Dim Derlig As Integer, i As Integer, Tablo
' Dernière ligne de la colonne G où se trouve les nombres
Derlig = Range("A65536").End(xlUp).Row
' Mise en tablo des nombres
Tablo = Range("A2:B" & Derlig)
For i = 1 To UBound(Tablo, 1)
Tablo(i, 2) = Tablo(i, 1) / 100
Next i
' Report des nombres et des valeurs calculées
Range("A2:B" & Derlig) = Tablo
End Sub