Créer un tracker de portefeuille de crypto-monnaies personnalisé, Excel VBA

Créer un tracker de portefeuille de crypto-monnaies personnalisé, Excel VBA

Voici une explication détaillée sur la manière de créer un tracker de portefeuille de crypto-monnaies personnalisé avec Excel VBA :
Étape 1 : Configurer votre feuille Excel
1. Préparer la feuille Excel :

• Ouvrez un nouveau classeur Excel.
• Dans la colonne A, listez les noms ou symboles des crypto-monnaies que vous souhaitez suivre (par exemple, Bitcoin, Ethereum, etc.).
• Dans la colonne B, entrez le montant de chaque crypto-monnaie que vous détenez.
• Dans la colonne C, le prix actuel de chaque crypto-monnaie sera récupéré via VBA.
• Dans la colonne D, calculez la valeur de vos avoirs (Montant * Prix).

Exemple de structure :

Étape 2 : Accéder aux prix des crypto-monnaies
Vous utiliserez une API externe pour récupérer les derniers prix des crypto-monnaies. L’une des API les plus couramment utilisées est CoinGecko ou CoinMarketCap. Dans cet exemple, nous utiliserons l’API CoinGecko car elle est gratuite et facile à utiliser.
Exemple de point de terminaison de l’API pour CoinGecko :
https://api.coingecko.com/api/v3/simple/price?ids=bitcoin,ethereum&vs_currencies=usd
Cela renverra le prix actuel du Bitcoin et de l’Ethereum en USD.
Étape 3 : Implémenter le code VBA
1. Activer l’onglet Développeur :

• Allez dans l’onglet « Développeur » d’Excel et cliquez sur « Visual Basic » pour ouvrir l’éditeur VBA.

2. Ajouter un module :

• Dans l’éditeur VBA, allez dans Insertion > Module pour créer un nouveau module.

3. Code VBA pour récupérer les prix des crypto-monnaies :

Sub GetCryptoPrices()
    Dim http As Object
    Dim JSON As Object
    Dim url As String
    Dim cryptoName As String
    Dim cell As Range
    Dim cryptoData As Object
    Dim price As Double
    Dim portfolioValue As Double
    ' Créer l'objet HTTP
    Set http = CreateObject("MSXML2.XMLHTTP")
    ' URL pour obtenir les données des crypto-monnaies (API CoinGecko)
    url = "https://api.coingecko.com/api/v3/simple/price?ids=bitcoin,ethereum&vs_currencies=usd"
    ' Ouvrir la requête HTTP
    http.Open "GET", url, False
    http.Send
    ' Analyser la réponse JSON
    Set JSON = JsonConverter.ParseJson(http.responseText)
    ' Boucle à travers la liste des crypto-monnaies
    For Each cell In ThisWorkbook.Sheets("Sheet1").Range("A2:A10") ' Ajuster la plage selon vos besoins
        cryptoName = LCase(cell.Value) ' Obtenez le nom de la crypto (en minuscules)
        ' Vérifier si l'API contient les données pour la crypto-monnaie
        If Not JSON.Exists(cryptoName) Then
            MsgBox "Cryptomonnaie " & cell.Value & " non trouvée!", vbExclamation
        Else
            ' Obtenir le prix à partir de la réponse JSON
            price = JSON(cryptoName)("usd")
            ' Mettre à jour le prix dans la colonne C
            cell.Offset(0, 2).Value = price
            ' Calculer et mettre à jour la valeur du portefeuille dans la colonne D
            portfolioValue = cell.Offset(0, 1).Value * price
            cell.Offset(0, 3).Value = portfolioValue
        End If
    Next cell
End Sub

4. Module JsonConverter : Vous devez télécharger et ajouter un parseur JSON à votre projet VBA. Vous pouvez obtenir le parseur VBA-JSON ici:  VBA-JSON GitHub Repository 

• Téléchargez le fichier JsonConverter.bas depuis le dépôt et importez-le dans votre projet via Fichier > Importer un fichier.

5. Explication du code :

• La sous-routine GetCryptoPrices effectue une requête GET à l’API CoinGecko pour récupérer les prix des crypto-monnaies en USD.
• Elle parcourt chaque crypto-monnaie dans la colonne A et met à jour la colonne C avec le prix actuel.
• Elle calcule la valeur totale de votre portefeuille en multipliant le montant de la crypto (colonne B) par le prix (colonne C) et affiche le résultat dans la colonne D.

Étape 4 : Exécuter le code
1. Exécution du code VBA :

• Fermez l’éditeur VBA et retournez à Excel.
• Appuyez sur Alt + F8, sélectionnez la macro GetCryptoPrices et cliquez sur Exécuter.

2. Sortie :

• Le code remplira la colonne C avec les prix actuels des crypto-monnaies et mettra à jour la valeur du portefeuille dans la colonne D.

Résumé :
Ce tracker récupère les prix en temps réel des crypto-monnaies via CoinGecko et calcule la valeur de votre portefeuille en fonction des données de votre portefeuille. Vous pouvez personnaliser cela en ajoutant plus de crypto-monnaies, en utilisant différentes API ou en ajoutant des fonctionnalités comme le suivi des prix historiques.