Bonjour à tous,

J'ai écrit une macro qui marche très bien mais je voudrais la rouler pour chaque cellule que je sélectionne ! Actuellement elle roule pour l'active cell seulement.

Je voudrais une boucle for qui utilise la sélection active pas une sélection déterminé. Exemple non fonctionnel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim plage As Range
      
Set plage = "SelectionActive"
For Each cell In plage
  J'insèrerais ma macro ici
Next cell

Marcro fonctionnelle 
Dim Valeur As Single
    ActiveCell.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.NumberFormat = "0.00"
    Valeur = ActiveCell.Value
    Valeur = (Valeur / 1073741824)
    ActiveCell.Value = Valeur
        With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveCell.Offset(1, 0).Select ' Je n'aurais alors pas besoin de ce champ
End Sub
Merci d'avance