Convertir des unités, par exemple des pouces en centimètres, Excel VBA

Convertir des unités, par exemple des pouces en centimètres, Excel VBA

Voici un code détaillé en VBA (Visual Basic for Applications) pour convertir des unités, comme des pouces en centimètres, dans Excel. Ce code permet de convertir les unités en fonction de la conversion souhaitée. 

Objectif 

Convertir une valeur donnée en pouces en centimètres (ou dans d’autres unités), selon le besoin de l’utilisateur. 

Code VBA pour la conversion (en pouces vers centimètres) 

1. Ouvrir l’éditeur VBA : 

• Ouvrez votre fichier Excel. 
• Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA. 
• Dans le menu, allez sur Insertion puis Module pour insérer un nouveau module. 

2. Ajouter le code : 

Voici un exemple de code VBA pour la conversion d’unités (pouces en centimètres). 

Sub ConvertirUnites() 
    ' Déclarer les variables 
    Dim valeur As Double 
    Dim resultat As Double 
    Dim choix As String 
    ' Demander à l'utilisateur de saisir la valeur à convertir 
    valeur = InputBox("Entrez la valeur à convertir en pouces :") 
    ' Vérifier si l'utilisateur a entré un nombre valide 
    If IsNumeric(valeur) Then 
        ' Demander à l'utilisateur de choisir l'unité de conversion 
        choix = InputBox("Entrez l'unité cible pour la conversion : (cm pour Centimètres, m pour Mètres, km pour Kilomètres)") 
        ' Effectuer la conversion selon le choix 
        Select Case LCase(choix) 
            Case "cm" 
                ' Convertir les pouces en centimètres (1 pouce = 2.54 cm) 
                resultat = valeur * 2.54 
                MsgBox valeur & " pouces équivalent à " & resultat & " centimètres." 
            Case "m" 
                ' Convertir les pouces en mètres (1 pouce = 0.0254 m) 
                resultat = valeur * 0.0254 
                MsgBox valeur & " pouces équivalent à " & resultat & " mètres." 
            Case "km" 
                ' Convertir les pouces en kilomètres (1 pouce = 0.0000254 km) 
                resultat = valeur * 0.0000254 
                MsgBox valeur & " pouces équivalent à " & resultat & " kilomètres." 
            Case Else 
                ' Si l'utilisateur ne choisit pas une unité valide 
                MsgBox "Unité non valide, choisissez entre 'cm', 'm' ou 'km'." 
        End Select 
    Else 
        ' Si l'utilisateur n'entre pas un nombre valide 
        MsgBox "Veuillez entrer une valeur numérique valide." 
    End If 
End Sub

Explications du code 

1. Déclaration des variables : 

• valeur : contient la valeur à convertir (en pouces). 
• resultat : contient le résultat de la conversion. 
• choix : stocke l’unité cible que l’utilisateur veut obtenir (centimètres, mètres ou kilomètres). 

2. Demande de l’entrée de l’utilisateur : 

• Le InputBox permet de demander à l’utilisateur la valeur qu’il veut convertir (en pouces). 
• Une autre boîte de saisie (InputBox) permet à l’utilisateur de choisir l’unité cible pour la conversion (centimètres, mètres ou kilomètres). 

3. Conversion avec Select Case : 

• Si l’utilisateur choisit « cm », la conversion est effectuée en multipliant la valeur en pouces par 2.54 (car 1 pouce = 2.54 cm). 
• Si l’utilisateur choisit « m », la conversion est effectuée en multipliant la valeur en pouces par 0.0254 (car 1 pouce = 0.0254 m). 
• Si l’utilisateur choisit « km », la conversion est effectuée en multipliant la valeur en pouces par 0.0000254 (car 1 pouce = 0.0000254 km). 

4. Affichage des résultats : 

• Le MsgBox est utilisé pour afficher le résultat de la conversion dans une boîte de dialogue. 

Comment utiliser ce code : 

1. Copiez le code VBA dans un module comme expliqué ci-dessus. 
2. Appuyez sur F5 pour exécuter le script. 
3. Le programme vous demandera de saisir la valeur en pouces à convertir, puis de choisir l’unité cible (cm, m ou km). 
4. Le résultat sera affiché dans une boîte de message. 

Exemple : 

Si vous entrez la valeur 10 pour les pouces et que vous choisissez « cm » comme unité de conversion, le message affiché sera : 

10 pouces équivalent à 25 centimètres. 

Améliorations possibles : 

• Ajouter d’autres conversions pour des unités supplémentaires (par exemple, convertir en pieds, yards, etc.). 
• Permettre de saisir la valeur dans une cellule d’Excel et automatiser la conversion en fonction des données dans le tableau.