Manipulation de chaine de caratére(Position et découpage de chaine)

Victor21

XLDnaute Barbatruc

• 20 Décembre 2011

• #2

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonjour.

j'ai plusuers chaines de caractères soit composé de 3,2 ou 1 chiffre

Cliquez pour agrandir...

Vous voulez sans doute parler de nombres ?

Joignez donc un fichier avec quelques exemples (données de base, contraintes, résultats attendus).

Edit : Bonjour, Jean-Claude

 

Dernière édition: 20 Décembre 2011

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Décembre 2011

• #3

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonjour à tous,

Peux-tu mettre tes valeurs dans un fichier XL ?

Tes données en A et le résultat souhaité en B

A + à tous

 

Vote positif 0 Vote négatif

T

Tatiana29

XLDnaute Occasionnel

• 20 Décembre 2011

• #4

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Voici un exemple,je me suis lancé dans une macro pour traiter le problème mais je pense qu'il est possible avec une formule mais j'aime la difficulté!

 

Pièces jointes

• exemplee.xlsx

  9.1 KB · Affichages: 70
• exemplee.xlsx

  9.1 KB · Affichages: 85
• exemplee.xlsx

  9.1 KB · Affichages: 73

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 20 Décembre 2011

• #5

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonjour

Ton affichage est-il toujours sous le format # ### ##0.00
Ou les zéros après le point ne sont pas afficher ?

Autrement dit
Cet affichage est possible ?
16.1 30.76 1052

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 20 Décembre 2011

• #6

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Essaie en lien avec résultat désiré

 

Pièces jointes

• exemplee.xls

  37 KB · Affichages: 82
• exemplee.xls

  37 KB · Affichages: 84
• exemplee.xls

  37 KB · Affichages: 75

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Décembre 2011

• #7

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonjour à tous,
Salut Patrick,
Salut Habitude,

Jolie fonction...

Puis-je me permettre pour avoir une valeur calculable ?

Private Sub CommandButton1_Click()
For Each cell In Range("A:A").SpecialCells(xlCellTypeConstants): cell.Offset(, 1) = Format(ct(cell.Value) * 1, "# ##0.00"): Next cell
End Sub

Cliquez pour agrandir...

A++
A + à tous

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 20 Décembre 2011

• #8

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

bonjour,

Une petite formule à s'arracher les cheveux. Si nombres en A1, alors en En B1 :

Code:

=CNUM(SIERREUR(DROITE(A1;(NBCAR(A1)-(CHERCHE("+";SI(ET(NON(ESTERREUR(CHERCHE(".";A1;CHERCHE(".";A1)+1)));ESTERREUR(CHERCHE(".";A1;CHERCHE(".";A1;CHERCHE(".";A1)+1)+1)));SUBSTITUE(A1;".";"+";1);SI(ET(ESTERREUR(CHERCHE(".";A1;CHERCHE(".";A1)+1));ESTERREUR(CHERCHE(".";A1;CHERCHE(".";A1;CHERCHE(".";A1)+1)+1)));A1;SUBSTITUE(A1;".";"+";2)));1)+3)));A1))

Pourrait pas la redecomposer, j'ai oublié de conserver les étapes intermédiaires. A tenter de comprendre avec la fonction "audit de formule. En gros je cherche l'avant dernier ".", et le remplace par un "+". Ensuite je cherche la position de ce "+" et j'extrait le dernier nombre à partir de la position de ce "+". Désolé.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Décembre 2011

• #9

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonjour Tatiana, Bonjour Victor, Bonjour JCGL, Bonjour Habitude, Bonjour JBOBO,

une autre version en formule

Code:

=SI(NBCAR(A1)-NBCAR(SUBSTITUE(A1;".";""))=1;A1;STXT(A1;CHERCHE(" ";A1;CHERCHE("$";SUBSTITUE(A1;".";"$";NBCAR(A1)-NBCAR(SUBSTITUE(A1;".";""))-1)));1000))

Edit : Juste pour ajouter que l'idée est exactement la même que celle de JBOBO

 

Dernière édition: 20 Décembre 2011

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 20 Décembre 2011

• #10

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonjour

Une autre possibilité, avec une formule matricielle :

Code:

STXT(A1;1+GRANDE.VALEUR(SI(STXT(".  "&A1;LIGNE(INDIRECT("1:"&NBCAR(A1)+1));1)=".";LIGNE(INDIRECT("1:"&NBCAR(A1)+1)));2);100)

Pour autant, je ne suis pas sûr que cela donne la bonne réponse dans tous les cas.

La méthode : On recherche la position de l'avant dernier "." dans ". "&A1 et on affiche tous les caractères pris un peu plus loin sur la droite.

@ plus

 

Pièces jointes

• exemplee.xlsx

  9.3 KB · Affichages: 60
• exemplee.xlsx

  9.3 KB · Affichages: 61
• exemplee.xlsx

  9.3 KB · Affichages: 64

Dernière édition: 20 Décembre 2011

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2011

• #11

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonsoir à tous


Je pensais l'avoir mais j'échoue proche du but

Code:

Function tatiana(r As Range)
tatiana = Replace(IIf(InStr(r.Text, Chr(32)) = 0, r.Text, StrReverse(Split(StrReverse(r.Text))(0) & Split(StrReverse(r.Text))(1))), ".", ",") * 1
End Function

PS: JNP: un petit pattern de derrière les fagots , tu as cela ?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Décembre 2011

• #12

Re : Manipulation de chaine de caratére(Position et découpage de chaine)

Bonsoir le fil ,

Staple1600 à dit:

PS: JNP: un petit pattern de derrière les fagots , tu as cela ?

Cliquez pour agrandir...

Petit n'est pas le terme, mais j'ai pas réussi à le simplifier plus ...
Mais pour le fun

Code:

Function Tatiana(ATrouver As String) As String
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "((?!\.\d\d )(\d{1,3} \d{3}\.\d{0,2}$))|(\d{1,3}\.\d{0,2}$)"
        If .test(ATrouver) Then
    Tatiana = .Execute(ATrouver)(0)
    End If
End With
End Function

fonctionne sur les cas de figure précités ...
Bonne soirée

 

Vote positif 0 Vote négatif