Extraire une partie d'un libellé
Fermé
F60lebaladinverni
Messages postés
128
Date d'inscription
samedi 28 janvier 2017
Statut
Membre
Dernière intervention
16 juin 2024
-
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
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
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
- Gmail libellé automatique - Guide
- Extraire son d'une video - Guide
- Extraire une partie de video - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
1 réponse
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
10 sept. 2018 à 11:24
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