Soyez le premier à donner votre avis sur cette source.
Vue 4 551 fois - Téléchargée 150 fois
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
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.