Extraire une partie d'un libellé
F60lebaladinverni
Messages postés
128
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Extraire une partie d'un libellé
- Extraire une video youtube - Guide
- Extraire le son d'une vidéo - Guide
- Libellé gmail - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Extraire texte d'une image - Guide
1 réponse
Bonjour le foum,
Peut-être comme ça :
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
