Marco Excel

Re : Marco Excel

Bonsoir mboules,

Essaie avec ce code :

A+

Re : Marco Excel

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

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