'%3e%3cpath%20d='M8%200C12.4183%200%2016%203.58172%2016%208C16%2012.4183%2012.4183%2016%208%2016C3.58172%2016%200%2012.4183%200%208C0%203.58172%203.58172%200%208%200ZM11.6162%204.38379C11.2257%203.99337%2010.5927%203.99338%2010.2021%204.38379L8%206.58594L5.79785%204.38379C5.40732%203.99334%204.77429%203.99329%204.38379%204.38379C3.99331%204.77429%203.99335%205.40733%204.38379%205.79785L6.58594%208L4.38379%2010.2021C3.99348%2010.5927%203.99341%2011.2257%204.38379%2011.6162C4.77426%2012.0066%205.40734%2012.0065%205.79785%2011.6162L8%209.41406L10.2021%2011.6162C10.5927%2012.0066%2011.2257%2012.0067%2011.6162%2011.6162C12.0067%2011.2257%2012.0066%2010.5927%2011.6162%2010.2021L9.41406%208L11.6162%205.79785C12.0066%205.40735%2012.0066%204.77429%2011.6162%204.38379Z'%20fill='%23080E17'%20fill-opacity='0.46'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_3761_713'%3e%3crect%20width='16'%20height='16'%20fill='white'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20fill-rule='evenodd'%20clip-rule='evenodd'%20d='M21.4999%2010.9993C21.4999%205.20009%2016.7986%200.498901%2010.9993%200.498901C5.19994%200.498901%200.498657%205.20009%200.498657%2010.9993C0.498657%2016.2404%204.33858%2020.5844%209.35855%2021.3722V14.0346H6.69238V10.9993H9.35855V8.68594C9.35855%206.05427%2010.9262%204.60062%2013.3248%204.60062C14.4736%204.60062%2015.6753%204.80571%2015.6753%204.80571V7.38979H14.3512C13.0468%207.38979%2012.64%208.19921%2012.64%209.0296V10.9993H15.5523L15.0867%2014.0346H12.64V21.3722C17.66%2020.5844%2021.4999%2016.2404%2021.4999%2010.9993Z'%20fill='%231568EA'/%3e%3c/g%3e%3c/svg%3e)
'%3e%3cpath%20d='M2.42045%2022.1876H6.31818V12.7217L0.75%208.54553V20.5171C0.75%2021.4414%201.49892%2022.1876%202.42045%2022.1876Z'%20fill='%234285F4'/%3e%3cpath%20d='M19.682%2022.1876H23.5797C24.5041%2022.1876%2025.2502%2021.4387%2025.2502%2020.5171V8.54553L19.682%2012.7217'%20fill='%2334A853'/%3e%3cpath%20d='M19.682%205.48293V12.7216L25.2502%208.54543V6.31816C25.2502%204.25236%2022.8921%203.07469%2021.2411%204.31361'%20fill='%23FBBC04'/%3e%3cpath%20d='M6.31824%2012.7217V5.48303L13.0001%2010.4944L19.6819%205.48303V12.7217L13.0001%2017.733'%20fill='%23EA4335'/%3e%3cpath%20d='M0.75%206.31816V8.54543L6.31818%2012.7216V5.48293L4.75909%204.31361C3.10534%203.07469%200.75%204.25236%200.75%206.31816Z'%20fill='%23C5221F'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2954_7305'%3e%3crect%20width='24.5'%20height='18.375'%20fill='white'%20transform='translate(0.75%203.8125)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e){kind=icon}
Lorsque vous travaillez avec des nombres dans Excel, il est parfois nécessaire de les afficher à la fois en chiffres et en lettres pour des documents officiels ou par souci de clarté. Cependant, Excel ne propose pas de fonctionnalité intégrée pour le faire, en particulier pour les roupies indiennes. Vous pourriez donc vous retrouver à utiliser des formules complexes, des outils externes ou à le faire manuellement.
Dans ce guide, nous allons vous apprendre une méthode simple, étape par étape, pour convertir des nombres en lettres pour les roupies indiennes à l'aide d'Excel.
2 méthodes simples pour convertir des nombres en lettres en roupies indiennes dans Excel :
Bien sûr, avant toute chose, vous devez d'abord effectuer un téléchargement de Microsoft Excel approprié !
Méthode 1 : Convertir des nombres en lettres en roupies indiennes avec du code VBA
Avant de convertir des nombres en lettres en roupies indiennes à l'aide du code VBA, vous devrez peut-être ajouter l'onglet Développeur à votre ruban pour ouvrir la fonction VBA.
Voici les étapes pour activer l'onglet Développeur dans Excel :
Étape 1 : Ouvrez la feuille de calcul Excel contenant les nombres que vous souhaitez convertir.
Étape 2 : Cliquez sur Fichier et choisissez Options dans la liste.
Étape 3 : Dans les Options d'Excel, choisissez Personnaliser le ruban.
Étape 4 : Choisissez Tous les onglets dans l'option Choisir les commandes dans les catégories suivantes.
Étape 5 : Trouvez Développeur dans la liste et cliquez sur Ajouter.
Étape 6 : Cliquez sur OK.
Voici maintenant les étapes pour convertir des nombres en lettres en roupies indiennes à l'aide du code VBA :
Étape 1 : Ouvrez la feuille de calcul Excel contenant les nombres que vous souhaitez convertir.
Étape 2 : Cliquez sur l'onglet Développeur. Si vous ne voyez pas cet onglet, suivez l'étape ci-dessus pour l'activer.
Étape 3 : Cliquez sur Visual Basic ou utilisez le raccourci clavier Alt + F11.
Étape 4 : Cliquez sur Insertion et choisissez Module.
Étape 5 : Collez le code VBA fourni en référence.
Public Function RupeeFormat(SNum As String) 'Update by Extendoffice Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit exceed Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|
Étape 5 : Enregistrez (Ctrl + S) et fermez l'éditeur VBA. Choisissez Classeur Excel prenant en charge les macros lors de l'enregistrement.
Étape 6 : Saisissez la formule =RupeeFormat(cellule_à_afficher) dans la cellule où vous souhaitez afficher le texte, puis appuyez sur Entrée.
Étape 7 : Le résultat s'affichera. Faites glisser vers le bas pour appliquer la formule à d'autres cellules.
Les nombres de la plage sélectionnée seront convertis en lettres en roupies indiennes.
Méthode 2 : Convertir des nombres en lettres en roupies indiennes dans Excel (méthode courante)
Découvrez la méthode courante pour convertir des nombres en lettres en roupies indiennes dans Excel, une étape pratique lorsque vous préparez des factures pour la comptabilité.
Étape 1 : Ouvrez la feuille de calcul Excel contenant les nombres que vous souhaitez convertir.
Étape 2 : Faites un clic droit sur le nom de la feuille et sélectionnez Visualiser le code pour ouvrir l'application VBA. C'est également utile pour l'analyse de données dans Excel.
Étape 3 : Cliquez sur Insertion et choisissez Module.
Étape 4 : Collez le code VBA fourni en référence.
Public Function RupeeFormat(SNum As String) 'Update By Nirmal Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(Str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit exceed Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|
Étape 5 : Choisissez Classeur Excel prenant en charge les macros dans Type d'enregistrement. Fermez la fenêtre de l'éditeur VBA.
Étape 6 : Insérez la formule =RupeeFormat(cellule_à_afficher) dans la cellule sélectionnée pour afficher le résultat.
Étape 7 : Faites glisser vers le bas pour appliquer la formule aux autres cellules une fois les résultats apparus dans la cellule sélectionnée.
Les nombres de la plage sélectionnée seront convertis en lettres en roupies indiennes.
Meilleure alternative gratuite à Microsoft Office - WPS Office
En plus de Microsoft Office, je vous propose une autre application : WPS Office. Alors, qu'est-ce que WPS ?
WPS Office est une suite bureautique gratuite, compatible avec Microsoft Office. Elle comprend un traitement de texte, un tableur, un logiciel de présentation et un lecteur PDF, ce qui vous permet d'ouvrir, de modifier et d'enregistrer facilement vos fichiers. Elle est également simple d'utilisation, même pour les utilisateurs débutants avec ce type de logiciel.
De plus, WPS Office est une suite bureautique puissante offrant un large éventail de fonctionnalités. C'est une excellente alternative à NeoOffice, en particulier pour les étudiants et les entreprises ayant un budget limité.
Jetez un coup d'œil à quelques-unes des fonctionnalités de WPS :
● Utilisation gratuite de Word, Excel et PPT. Puissante boîte à outils PDF
● Vaste boutique de modèles
● Fonctionnalités riches : assistants de rédaction de CV, formulaires intelligents, enregistrement d'écran, réparation de fichiers et d'autres petits outils intégrés au produit
● Le produit est très léger, avec seulement 200 Mo, et occupe très peu de mémoire sur votre ordinateur.
● La version Mac de WPS Office est très performante. Microsoft Office néglige l'expérience des utilisateurs Mac, ce que WPS Office parvient à combler.
● Prise en charge des documents en ligne (WPS AirPage) et de l'édition collaborative à plusieurs
● WPS Office prend également en charge les systèmes Linux, Android et iOS. Pour utiliser les produits WPS Office sur différents systèmes, il vous suffit de vous connecter au même compte pour synchroniser tous vos fichiers.
Vous pensez que WPS Office est le meilleur choix pour vous et souhaitez le télécharger ? Rendez-vous sur le site officiel : https://www.wps.com pour le télécharger dès maintenant.
Comment télécharger WPS Office
Étape 1 : Visitez le site Web de WPS Office : wps.com.
Étape 2 : Cliquez sur le bouton « Téléchargement gratuit ».
Étape 3 : Sélectionnez l'emplacement où vous souhaitez enregistrer WPS Office -> Enregistrer.
Étape 4 : Double-cliquez sur le fichier WPS Office dans vos téléchargements, cliquez sur « Exécuter » et suivez les instructions à l'écran pour l'installer.
Étape 5 : Une fois l'installation terminée, vous pouvez profiter de toute la puissance de WPS Office.
FAQ :
Q1 : Comment convertir une devise en texte dans Excel avec VBA ?
Vous pouvez utiliser VBA (Visual Basic pour Applications) pour convertir une devise en texte dans Excel. Pour ce faire, vous devrez écrire une macro VBA personnalisée. Vous pouvez trouver des exemples et des extraits de code en ligne ou consulter la documentation VBA d'Excel pour vous guider.
Q2 : Comment convertir des montants de devises en toutes lettres dans Excel ?
Pour convertir une devise en lettres dans Excel, on utilise généralement une combinaison de fonctions et de formatage personnalisé. Vous trouverez en ligne divers tutoriels et guides expliquant comment y parvenir.
Q3 : Comment formater des nombres en roupies indiennes dans Excel ?
Pour formater des nombres en roupies indiennes dans Excel, vous pouvez utiliser les options de formatage monétaire intégrées. Sélectionnez la cellule ou la plage à formater, accédez à l'onglet « Nombre » dans la boîte de dialogue Format de cellule et choisissez la catégorie « Monétaire ». De là, vous pouvez sélectionner « ₹ Anglais (Inde) » comme symbole monétaire.
Q4 : Comment convertir automatiquement des nombres en texte dans Excel ?
Il existe plusieurs façons de convertir automatiquement des nombres en texte dans Excel. Vous pouvez utiliser des fonctions telles que TEXTE, CONCATENER ou un formatage personnalisé. Vous pouvez également utiliser des macros VBA pour une automatisation plus avancée.
Q5 : Comment convertir des dollars américains en roupies indiennes dans Excel ?
Pour convertir des dollars américains en roupies indiennes dans Excel, vous pouvez combiner les fonctions d'Excel avec des services Web ou des sources de données externes fournissant les taux de change. Le format « Monétaire » d'Excel permet également d'afficher les montants en roupies indiennes une fois les taux de change obtenus.
Q6. Vous souhaitez utiliser Excel Online pour vous faciliter la tâche ?
Si vous préférez travailler dans le cloud, Excel Online offre les mêmes fonctionnalités puissantes pour vous aider à gérer et nettoyer vos données de n'importe où. Avec Excel Online, vous pouvez utiliser les mêmes fonctions pour supprimer des caractères à gauche ou à droite de vos données, ce qui en fait une excellente option pour ceux qui ont besoin de flexibilité ou qui n'ont pas accès à une version de bureau d'Excel.
Résumé :
Apprenez à convertir facilement des montants numériques en lettres en roupies indiennes dans Excel, à l'aide de code VBA ou d'une méthode courante. Tout d'abord, activez l'onglet Développeur dans Excel, ajoutez le code VBA fourni et utilisez la formule =RupeeFormat(cellule_à_afficher).
Vous pouvez également faire un clic droit sur le nom de la feuille pour accéder à VBA, insérer un module, coller le code et utiliser cette même formule. Ces méthodes conviviales sont également compatibles avec WPS Office, une alternative gratuite à Microsoft Office, qui fait du formatage de documents précis et professionnel un véritable jeu d'enfant.
'%3e%3cpath%20d='M19.9911%204.11386V6.471H18.5894C18.0775%206.471%2017.7322%206.57814%2017.5536%206.79243C17.3751%207.00671%2017.2858%207.32814%2017.2858%207.75671V9.44421H19.9019L19.5536%2012.0871H17.2858V18.8639H14.5536V12.0871H12.2769V9.44421H14.5536V7.49779C14.5536%206.39064%2014.8632%205.53201%2015.4822%204.92189C16.1013%204.31177%2016.9257%204.00671%2017.9554%204.00671C18.8304%204.00671%2019.509%204.04243%2019.9911%204.11386Z'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8199'%3e%3crect%20width='16'%20height='16'%20fill='white'%20transform='translate(8%204.00671)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20d='M17.5237%2010.7813L23.4811%204H22.0699L16.8949%209.88693L12.7648%204H8L14.2469%2012.9029L8%2020.0133H9.4112L14.8725%2013.7952L19.2352%2020.0133H24M9.92053%205.04213H12.0885L22.0688%2019.0224H19.9003'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8200'%3e%3crect%20width='16'%20height='16.0134'%20fill='white'%20transform='translate(8%204)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
