Formule recherche dans chaîne caractère

[gourdin]

Bonjour,

Je recherche une formule permettant d'obtenir 1 ou 2 chiffres placés à droite ou à gauche d'un tiret.

Voir exemple en pièce jointe

Merci

 

[Staple1600]

Bonsoir le fil, le forum

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

 

[gourdin]

Merci.

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

 

[Staple1600]

Re,

A transformer en valeur numérique.

 

[gourdin]

OK merci

 

[Staple1600]

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

 

[gourdin]

=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

 

[Staple1600]

Re

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

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

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

 

[gourdin]

Très juste !

 

[Staple1600]

Re

(Voir le message#8)

 

[gourdin]

Merci Staple1600 pour ton aide.

 

[Staple1600]

Re

On peut passer aussi ne pas passer par les formules

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.

 

[job75]

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 :

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

A+

 

[Staple1600]

Bonjour job75

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

Je ne disais par autre chose

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

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