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
