récupValeur

[coulou]

Bonjour à tous voilà j'ai posté pour extraire des chiffres mais je n'ai pas de réponse .C'est vrai qu'il y a pas mal de poste sur le sujet,mes excuses .
Donc j'ai cherché sur le net et j'ai trouvé une fonction qui s'appelle récupValeur je n'arrive pas l'installer ,meme en mocro complémentaire quelqu'un aurait-il une idée de la manière que cela s'installe
Merçi d'avance

 

[jeanpierre]

Re : récupValeur

Bonjour coulou,

Pour pouvoir te renseigner efficacement il faudrait voir cette fonction.

Peux-tu nous la présenter ?

Bonne fin d'après-midi.

Jean-Pierre

 

[coulou]

Re : récupValeur

ok j'envoie si je peux

 

[Modeste]

Re : récupValeur

Bonjour coulou, jeanpierre,

J'ai testé la fonction sous Excel 2000 et 2007 ... elle m'a l'air de fonctionner correctement. Peux-tu préciser quel problème tu rencontres?

 

[Staple1600]

Re : récupValeur

Bonjour à tous

Voici une autre approche

Sub Macro1()
Range("A1:A" & [A65536].End(xlUp).Row).TextToColumns Range("B1"), _
    xlDelimited, _
    xlDoubleQuote, , , , , , True, ":", _
    FieldInfo:=Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
With Range("G2:K12")
.FormulaR1C1 = _
    "=IF(ISNUMBER(FIND(""-"",RC[-5])),MID(RC[-5],1,FIND(""-"",RC[-5])-1)*1,IF(ISNUMBER(FIND(""/"",RC[-5])),MID(RC[-5],1,FIND(""/"",RC[-5])-1),RC[-5]))"
.Value = .Value
End With
Columns("B:F").Delete Shift:=xlToLeft
End Sub

PS: j'ai aussi testé la fonction RecupValeur sous Excel 2000 : fonctionne ss problème