 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : [VBA] Convertisseur Franc<->EURO sous Excel | |
| Sdel71 | 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 |
| Vue Rapide de la discussion |
|---|
