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" 😉