Ceci est un convertisseur permettant de passer une plage de cellules sélectionnées des untés monétaires FRANCS et EUROS tout en modifiant le format monétaire des cellules.
Source / Exemple :
Sub convertion()
Dim code As String
On Error GoTo finerreur
code = Application.InputBox(Prompt:="Saisir le nombre le code opération" & Chr(10) & "Francs -> Euros : E" & Chr(10) & "Euros -> Francs : F", Title:="Choix de convertion", Type:=2)
'SelectionPlage
Set plage = Application.InputBox("Sélectionnez les cellules à convertir :", "Convertion", Type:=8)
Select Case code
'exécution en fonction du code opération
Case Is = "E" 'EUROS
For Each cel In plage
cel.Select
ActiveCell.Value = ActiveCell.Value / 6.55957
'format de la cellule
Selection.NumberFormat = "_-* #,##0.00 [$?-1]_-;-* #,##0.00 [$?-1]_-;_-* ""-""?? [$?-1]_-;_-@_-"
Next cel
MsgBox "Traitement terminé.", vbInformation, "Convertion" 'information de fin
Case Is = "F" 'FRANCS
For Each cel In plage
cel.Select
ActiveCell.Value = ActiveCell.Value * 6.55957
'format de la cellule
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Next cel
MsgBox "Traitement terminé.", vbInformation, "Convertion" 'information de fin
Case Else
MsgBox ("La saisie du code opération n'est pas valide !"), vbCritical
End Select
GoTo Fin
finerreur:
MsgBox "Vous devez saisir un code opération."
Fin:
End Sub
Conclusion :
Ce module fonctionne en deux temps:
SELECTIONS
- sélection d'un code opération pour le type de convertion et le format de cellule à affecter.
- sélection d'une plage de cellules à convertir.
TRAITEMEMENT
N.B.: Il se pourrait que les formats de cellules varient selon les vertions Excel !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.