Extraire une partie d'un libellé

Fermé

F60lebaladinverni Messages postés 126 Date d'inscription samedi 28 janvier 2017 Statut Membre Dernière intervention 7 avril 2023 - 10 sept. 2018 à 09:44
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 10 sept. 2018 à 11:24

Bonjour, je sollicite votre aide pour extraire une partie des données d'une cellule en VBA
Le contenu de la cellule est le suivant :
REMISE CB XXXXXXXXXX BRUT 382,22E - COM 2,57E - NBXXXX/XXXXXX

L'objectif est de réussir à extraire dans une autre cellule le montant de la commission (ici 2,57)
Le format de la cellule est toujours identique avec exactement autant de texte.
J'avais pensé à faire une formule du genre STXT(longueurDeLaCellule)-20;4) mais :
L'aléas qui me bloque : une commission plus élevée que 9.99€

D'avance merci pour votre aide

A voir également:

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
10 sept. 2018 à 11:24

Bonjour le foum,

Peut-être comme ça :

Sub Macro1()
Dim VC As String 'déclare la variable VC (Valeur de la Cellule)
Dim V As Double 'déclare la variable V (Valeur)

VC = Range("A1").Value 'définit la valeur VC (Initiale) 'plage à adapter
VC = Split(VC, " - ")(1) 'redéfinit la valeur VC (texte entre les deux " - ") => "COM 2,57E"
VC = Split(VC, " ")(1) 'redéfinit la valeur VC (texte après l'espace) => "2,57E"
VC = Left(VC, Len(VC) - 1) 'redéfinit la valeur VC sans le E final => "2,57"
V = CDbl(VC) 'définit la valeur V => 2,57
Range("B1").Value = v'renvoie V dans la cellule B1 (à adapter)
End Sub

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Extraire le contenu de plusieurs fichiers

Discussions similaires

Newsletters