Formule recherche dans chaîne caractère

Staple1600

XLDnaute Barbatruc

• 27 Avril 2018

• #2

Bonsoir le fil, le forum

En attendant mieux
1)
=DROITE(GAUCHE(B6;CHERCHE("-";B6)-1);2)*1
2)
=SUBSTITUE(DROITE(B6;2);"-";"")*1

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 27 Avril 2018

• #3

Merci.

Mais à quoi sert en fin de formule "*1" ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Avril 2018

• #4

Re,

A transformer en valeur numérique.

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 27 Avril 2018

• #5

OK merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Avril 2018

• #6

Re

Autre formule (qui marche avec l'exemple tel quel)
1)
=SUBSTITUE(GAUCHE(DROITE(B6;5);3);"-";"")*1
2)
=SUBSTITUE(DROITE(DROITE(B6;5);2);"-";"")*1

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 27 Avril 2018

• #7

=SUBSTITUE(GAUCHE(DROITE(B6;5);3);"-";"")*1
ne fonctionne pas si il n'y a qu'un chiffre avant et après le tiret mais il est vrai que dans l'exemple le cas ne se présentait pas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Avril 2018

• #8

Re

D'où la phrase (et son importance) en préambule...

Staple1600 à dit:

Re
Autre formule (qui marche avec l'exemple tel quel)

Cliquez pour agrandir...

Je te laisse faire la formule 2)
1)
=SUBSTITUE(GAUCHE(DROITE(B6;NBCAR(B6)-CHERCHE(") ";B6)-1);2);"-";"")*1

 

Dernière édition: 27 Avril 2018

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 27 Avril 2018

• #9

Très juste !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Avril 2018

• #10

Re

(Voir le message#8)

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 27 Avril 2018

• #11

Merci Staple1600 pour ton aide.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Avril 2018

• #12

Re

On peut passer aussi ne pas passer par les formules

VB:

Sub ParCommoditéOnPeutEnvisagerUneMacro()
Dim t, u
t = Array(Array(1, 9), Array(2, 1)): u = Array(Array(1, 1), Array(2, 1)): Application.DisplayAlerts = 0
    With Selection
        .TextToColumns _
            Destination:=.Offset(, 1).Item(1), DataType:=1, Other:=-1, OtherChar:=")", FieldInfo:=t
        .Offset(, 1).TextToColumns _
            Destination:=.Offset(, 1).Item(1), DataType:=1, Other:=-1, OtherChar:="-", FieldInfo:=u
    End With
End Sub

Tout comme on peut se passer de cette macro, en faisant manuellement le Données/Convertir "Two Pass" dont la macro ci-dessus est la retranscription VBA.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Avril 2018

• #13

Bonjour gourdin, JM,

Sur un problème aussi simple VBA n'est vraiment pas nécessaire.

Une seule formule en C6 à tirer à droite et vers le bas :

Code:

=--STXT($B6;TROUVE("-";$B6)-5+3*COLONNES($C6:C6);2)

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2018

• #14

Bonjour job75

job75 à dit:

Bonjour gourdin, JM,
Sur un problème aussi simple VBA n'est vraiment pas nécessaire.

Cliquez pour agrandir...

Je ne disais par autre chose

Staple1600 à dit:

Tout comme on peut se passer de cette macro, en faisant manuellement le Données/Convertir

Cliquez pour agrandir...

PS: Ceci dit, jolie formule que je m'empresse de mettre dans ma besace "formules"

 

Vote positif 0 Vote négatif