...

[edit]--Message édité par sdel71--[/edit]

truc bete, pour ceux que ca interressent... 2 macros convertir Franc <--> Euro  
 
Attention cependant : Si on applique cela sur une formule... ca devient une valeur... !!! danger -> résultat erronés voir résultat total divisé par 6.55957 si on applique cela sans prendre garde....
 
 
 
Sub Eur2Frf()
    Set PlageCellules = Selection
    If PlageCellules.Areas.Count = 1 Then
        For i = 1 To PlageCellules.Count
            PlageCellules(i) = PlageCellules(i) * 6.55957
            PlageCellules(i).NumberFormat = "# ##0.000 \F"
        Next i
    Else
        For Each PlageSimple In PlageCellules.Areas
            For i = 1 To PlageSimple.Count
                PlageSimple(i) = PlageSimple(i) * 6.55957
                PlageSimple(i).NumberFormat = "# ##0.000 \F"
            Next i
        Next
    End If
End Sub
 
 
Sub Frf2Eur()
    Set PlageCellules = Selection
    If PlageCellules.Areas.Count = 1 Then
        For i = 1 To PlageCellules.Count
            PlageCellules(i) = PlageCellules(i) / 6.55957
            PlageCellules(i).NumberFormat = "# ##0.00 \€"
        Next i
    Else
        For Each PlageSimple In PlageCellules.Areas
            For i = 1 To PlageSimple.Count
                PlageSimple(i) = PlageSimple(i) / 6.55957
                PlageSimple(i).NumberFormat = "# ##0.00 \€"
            Next i
        Next
    End If
End Sub