Comment créer une Macro VBA de conversion Francs/Euro

Symptômes


Comment créer une Macro de conversion Francs/Euro dans Excel en VBA ?

Résolution

L'exemple suivant permet de convertir en Euro toutes les cellules
sélectionnées qui contiennent des chiffres. Les cellules vides, qui
contiennent une formule, ou qui posséderaient un format Euro ne sont pas
converties.

#########################################################################
' Code Visual Basic (commentaires français)

Sub ConvertFrancEuro()
Dim C As Range

'Désactive la mise à jour de l'écran
Application.ScreenUpdating = False

'Parcourt l'ensemble des cellules sélectionnées
For Each C In Selection.Cells

With C

'Si la cellule sélectionné contient un chiffre,
'n'est pas au format _uro et n'est pas vide

If IsNumeric(.Formula) And (InStr(1, .NumberFormat, "_") = 0) And
.Value <> "" Then

'Converti la valeur en Euro
.Value = CDbl(.Value) / 6.55957

'Applique un Format Euro
.NumberFormat = "#,##0.00"" _"""

End If

End With

Next C

'Active la mise à jour de l'écran
Application.ScreenUpdating = True

End Sub

#########################################################################

Pour exécuter cette macro, passer par le menu Outils/Macro/Macro.
Sélectionner ConvertFrancEuro dans la liste des macros disponibles puis
cliquer sur exécuter, ou personnaliser vos barres d'outils pour ajouter
une icône qui déclenchera votre macro.

L'exemple suivant permet de créer une fonction qui sera utilisable dans
les feuilles de calculs d'Excel via l'assistant fonction (Fx).

#########################################################################
' Code Visual Basic français
Public Function FrenchEuroConvert(FRF As Double) As Double
FrenchEuroConvert = FRF / 6.55957
End Function

#########################################################################


Microsoft exclut toute garantie, expresse ou implicite, notamment
garantie de qualité marchande et d'adéquation à un usage particulier,
relative aux exemples de programmation fournis à titre d'illustration
dans cet article. Cet article suppose que vous connaissez le langage de
programmation en question et les outils utilisés dans la création et le
déboguage des procédures. Les techniciens du support technique de
Microsoft peuvent vous aider à comprendre la fonctionnalité d'une
procédure particulière, mais ils ne modifieront pas ces exemples afin de
fournir des fonctionnalités supplémentaires ou des procédures de
construction adaptées à vos besoins spécifiques. Si votre expérience de
programmation est limitée, vous pouvez contacter la ligne de consultation
Microsoft payante au Numero indique a la page http://support.microsoft.com/contactus/. Pour plus d'informations sur les
options de Support technique proposées par Microsoft, visitez le site Web
à l'adresse suivante :
http://support.microsoft.com/default.aspx?scid=fh;[LN];CNTACTMS

Références

Pour plus de renseignements, veuillez-vous référer à :

F162320XL97: Excel Articles Available by E-Mail: VBA

F146197XL: How to Find Technical Information About Microsoft Excel

F157416XL97: How to Assign a Macro to an ActiveX Worksheet Control

F156942XL97: How to Create an Add-in File in Microsoft Excel 97

F159619XL97: Sample Macros for Customizing Menus and Submenus

F161215XL97: How to Programmatically Create a Collection

F120198XL: How to Select Cells/Ranges Using Visual Basic Procedures

F141691XL: Visual Basic Example Using If and Case Statements

F146055XL: Using Visual Basic to Create a Chart Using a Dynamic Range

F141762XL: Using Looping Structures in Visual Basic for Applications

F130372XL AppNote: Sample Code for Controlling Dialog Boxes (WE1162)

143345 XL: Visual Basic Macro to Determine Which Button Was Selected

MOTS-CLES :
La liste de(s) mot(s) suivant(s) permet une recherche plus efficace de
cette fiche technique : Euro VBA xl






kbkeyword kbmacro kbusage
Propriétés

ID d'article : 469602 - Dernière mise à jour : 9 avr. 2013 - Révision : 1

Microsoft Excel 2000 Standard, Microsoft Excel 97 Standard, Microsoft Office 97 Service Pack 2

Commentaires