Récupérer une donnée entre deux caractères

[ben01]

Bonjour tout le monde


Voila mon problème:

Dans une cellule j'ai toutes ces données:

11/01/11 OD 1 8298 Régul. TVA pièce 8298 EUR 12,87 BIi
ou
28/02/11 OD 1 81417 Régul. TVA pièce 81417 EUR GIi 7,62

Je veux récupérer 2 données la date (ça c'est facile avec la formule GAUCHE() ) et le montant compris entre EUR et BIi ou après les 3 lettres (cela correspond a un débit ou un crédit). Je compte utiliser deux formules car ces montants je dois les "ranger" dans la colonne débit ou crédit selon les cas.

Pour ça je voulais utiliser cette formule:
=STXT(A12;CHERCHE("EUR";A12;1)+4;CHERCHE("BIi";A12;1)-CHERCHE("EUR";A12;1)-5)
ça fonctionne mais les 3 lettres (BIi ou GIi dans l'exemple) peut être n'importe quel autre caractère mais toujours 3 lettres.
Je ne sais pas comment on peut faire pour lui faire comprendre que ça peut être n'importe quel lettre de l'alphabet?

Merci d'avance
Ben

 

[JBOBO]

Re : Récupérer une donnée entre deux caractères

Bonjour,

Un essai sans certitude, à tester

 

[dra72]

Re : Récupérer une donnée entre deux caractères

Bonjour,

Je remarque dans tes exemples que dans les nombres que doit retourner la fonction, il y a une virgule (et seulement à cet endroit) avec 2 décimales.
Est-ce toujours le cas?
Ex: Si ce nombre est 12,00, comment est-il écrit? (12,00 ou simplement 12).
On pourrait localiser ce nombre à l'aide de cette virgule.

Je pense que le plus simple dans ton cas serait de créer une fonction personnalisée en VBA.

A+

 

[kjin]

Re : Récupérer une donnée entre deux caractères

Bonsoir,
en B12

=CNUM(STXT(A12;CHERCHE("EUR";A12;1)+4;CHERCHE(" ";A12;CHERCHE("EUR";A12;1)+4)-(CHERCHE("EUR";A12;1)+4)))

ou fonction perso en B12 = EXTR(A12)

Function EXTR(a$)
x = InStr(1, a, "EUR") + 4
y = InStrRev(a, " ", -1)
EXTR = CDbl(Mid(a, x, y - x))
End Function

A+
kjin

 

[TempusFugit]

Re : Récupérer une donnée entre deux caractères

Bonjour


Tu as envisagé l'utilisation de Données/Convertir ?

 

[ben01]

Re : Récupérer une donnée entre deux caractères

Bonjour et merci beaucoup tt le monde pour votre aide!

TempusFugit le problème avec données/convertir c'est que ça découpe la cellule quand il y a un espace. Et le nombre d'espace n'est pas fixe. De plus quelque fois le montant est écrie comme ça: 4 050.60

dra72: oui il y a toujours une virgule! Je vais voir si je peux m'aider d'elle! On m'a conseiller d'utiliser VBA mais je t'avoue que je n'y connais rien! C'est peut être le moment de m'y mettre!

JBOBO, ça marche pas.Ce que je comprend pas c'est si je refais exactement la même chose que toi avec les même exemples ça marche pas! est ce que c'est ma version d'excel qui ne vas pas? (excel 2007)

kjin ta formule arrive a me sortir les débits inférieure à 1 000. Car si le débit est de 1 000 il ne met que 1.

Encore merci pour votre aide!
ben

 

[TempusFugit]

Re : Récupérer une donnée entre deux caractères

Pourtant cela semble marcher

Sub Macro1()
Range("A1") = "11/01/11 OD 1 8298 Régul. TVA pièce 8298 EUR 12,87 BIi"
Range("A1").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9), _
        Array(7, 9), Array(8, 9), Array(9, 9), Array(10, 1), Array(11, 9)), _
        TrailingMinusNumbers:=True
End Sub

 

[pierrejean]

Re : Récupérer une donnée entre deux caractères

Bonjour à tous

Avec 2 fonctions personnalisées
NB: Attention ne donnent que la 1ere date trouvée en commencant par le debut et que le 1er nombre trouvé en commencant par la fin

 

[ben01]

Re : Récupérer une donnée entre deux caractères

Merci TempusFugit et PierreJean.
Merci pour vos solutions.
Le problème est que si on a, par exemple, 4 557,60. la solution de TempusFugit ne prend que le 4 et la solution de PierreJean 557,60.
Je pensais le faire avec cette logique:
Détecter "EUR" puis Détecter 3lettres
dans une cellule mettre ce qu'il y a entre EUR et les 3lettres et dans une autre cellules mettre ce qu'il y a après les 3lettres
Mais je j'ai pas comment on peut faire pour détecter 3 lettres! (ex: Alm; DSz; qsD...)
Encore Merci
Ben

 

[pierrejean]

Re : Récupérer une donnée entre deux caractères

Re

Arf je viens de m'apercevoir que je n'avais pas sauvegardé ma derniere version
La voici

 

[kjin]

Re : Récupérer une donnée entre deux caractères

Bonjour, salut Pierrejean 🙂,

...De plus quelque fois le montant est écrie comme ça: 4 050.60
kjin ta formule arrive a me sortir les débits inférieure à 1 000...

C'est une précision

Function EXTR(a$)
x = InStr(1, a, "EUR") + 4
For y = x To Len(a)
    If InStr(1, "0123456789, ", Mid(a, y, 1)) Then n = n & Mid(a, y, 1)
Next
EXTR = CDbl(n)
End Function

A+
kjin

 

[Tibo]

Re : Récupérer une donnée entre deux caractères

Bonjour à tous,

Une tentative formule (mais il doit y avoir plus simple) :

=SI(ESTNUM(DROITE(DROITE(A2;NBCAR(A2)-TROUVE("EUR";A2)-3))*1);STXT(DROITE(A2;NBCAR(A2)-TROUVE("EUR";A2)-3);TROUVE(" ";DROITE(A2;NBCAR(A2)-TROUVE("EUR";A2)-3))+1;99);GAUCHE(DROITE(A2;NBCAR(A2)-TROUVE("EUR";A2)-3);TROUVE(" ";B2)-1))

@+

 

[ben01]

Re : Récupérer une donnée entre deux caractères

Merci pierrejean!
C'est bon!
Je pense que je vais pouvoir différencier les débit ou crédit avec un SI. (si les 3 dernier caractères sont des lettres je le mets dans une colonne "x" si non dans une colonne "y")
Merci pour le temps que vous avez consacré à mon problème!

 

[ben01]

Re : Récupérer une donnée entre deux caractères

kjin ta solution fonctionne aussi! merci
Tibo j'ai pas encore regarder ta solution mais je vais le faire!
Merci beaucoup pour tout!
ben

 

[ben01]

Re : Récupérer une donnée entre deux caractères

Merci tt le monde
j'ai donc utilisé la solution de pierrejean.
J'ai rajouté une condition pour savoir si c'est un crédit ou un débit en regardant les 5 dernier caractères.
Je ne sais pas si m'a macro est très académique mais ça fonctionne grâce a votre aide!
Encore Merci
Ben

Sub control()
Dim i As Long
For i = 1 To 1000
Cells(i, 2) = Right(Cells(i, 1), 5)
If Cells(i, 2).Value Like " [A-Z;a-z][A-Z;a-z][A-Z;a-z] " Then
Cells(i, 3) = nombre(Cells(i, 1))
Else
Cells(i, 4) = nombre(Cells(i, 1))
End If
Next i
End Sub