Comment obtenir uniquement la partie numérique d’une chaîne, Excel VBA

Comment obtenir uniquement la partie numérique d’une chaîne dans Excel
Si vous souhaitez extraire uniquement la partie numérique ou uniquement la partie texte d’une chaîne, vous pouvez créer une fonction personnalisée dans VBA.
Vous pouvez ensuite utiliser cette fonction VBA dans la feuille de calcul (tout comme les fonctions Excel normales) et elle n’extrairea que la partie numérique ou textuelle de la chaîne.
Vous trouverez ci-dessous le code VBA qui créera une fonction pour extraire la partie numérique d’une chaîne :
‘Ce code VBA créera une fonction pour obtenir la partie numérique d’une chaîne

Function GetNumeric(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i

Vous avez besoin de placer du code dans un module, puis vous pouvez utiliser la fonction = GetNumeric dans la feuille de calcul.
Cette fonction ne prendra qu’un seul argument, qui est la référence de cellule de la cellule à partir de laquelle vous souhaitez obtenir la partie numérique.
De même, ci-dessous se trouve la fonction qui vous permettra d’obtenir uniquement la partie texte d’une chaîne dans Excel :
‘Ce code VBA créera une fonction pour obtenir la partie texte d’une chaîne

Function GetText(CellRef As String)
Dim StringLength As Integer
StringLength = Len (CellRef)
For i = 1 To StringLength
If Not (IsNumeric(Mid(CellRef, i, 1))) Then Resuit = Resuit & Mid(CellRef, i,
1)
Ne x t i
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x