14 résultats trouvés

par dadub
1 mai 2019, 21:19
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

Bonjour à tous les participants de cette discussion.

Je voulais vous remercier, le code fonctionne parfaitement.

Bonne fête du travail.

David
par dadub
29 avril 2019, 22:19
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

Merci beaucoup Jean-Eric, J'ai testé ta solution qui me semble également très bien (merci Isabelle et James pour votre courage et votre patience). Je vais tester ça demain avec mon collègue, on verra bien. En tout cas, mille mercis à nouveau, je n'hésiterai pas à revenir demain pour vous dire ce qu'...
par dadub
29 avril 2019, 22:06
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

On ne sait jamais ... La troisième fois sera peut-être la bonne ... Et qui sait ... le fichier sera peut-être même téléchargé ...!!! Merci beaucoup James, en effet, c'est le résultat attendu. Cette méthode utilise une formule, c'est vraiment sympa, mais je vais essayer de terminer la classe, on ver...
par dadub
29 avril 2019, 22:02
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

i20100 a écrit :
29 avril 2019, 21:58
re,

fait un essai en remplaçant le point par une virgule
Re,

Même erreur.

Dommâge, sans la conversion en double, j'ai le bon résultat, mais il manque juste quelque chiffres.
par dadub
29 avril 2019, 21:56
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

re, à tester, Sub test() Dim i As Long, t, t1, t2, t3 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row t = Split(Cells(i, 1), ",") t1 = t(0) & "." & t(1) t2 = t(2) & "." & t(3) Cells(i, "D") = CDbl(t1) Cells(i, "E") = CDbl(t2) Erase t Next i End Sub Re, On y est presque, Merci beaucoup, j'ai une err...
par dadub
29 avril 2019, 21:52
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

@James,

Oui, j'ai besoin de deux extractions svp.

Voici le fichier qui montre l'original et les deux extractions.

Je vous remercie pour voter aide.
par dadub
29 avril 2019, 21:46
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

James007 a écrit :
29 avril 2019, 21:42
i20100 a écrit :
29 avril 2019, 21:41
slt James, c'est à souhaiter :wink:
Effectivement ... mais j'ai l'impression qu'il n'a même pas lu tous les messages ...
J'ai lu un maximum de messages et je vous en remercie tous.

J'ai envoyé un fichier d'exemple, j'espère que cela vous aidera.

Encore merci.
par dadub
29 avril 2019, 21:45
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

Re,

Je le fait immédiatement, désolé encore (voir fichier joint) :

Merci pour tout.
par dadub
29 avril 2019, 21:02
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

Re i20100, Merci beaucoup pour le temps que vous me consacrez. Le résultat obtenu n'est pas celui attendu : Ce que je voudrais svp : 901,7039203 0,074734305 905,6102713 0,078900022 909,5123949 0,075588281 913,4102912 0,076708611 917,3039602 0,074278374 921,1934018 0,077809648 925,078616 0,078150497 ...
par dadub
29 avril 2019, 20:15
Forum : Excel - VBA
Sujet : Extraction d'une partie d'une chaine
Réponses : 33
Vues : 162

Re: Extraction d'une partie d'une chaine

Re, J'ai cette chaine : 901,703920334559,0,0747343047573167,62281,52435 Elle doit en créer deux : 1) 901,703920334559 En F31 2) 0,0747343047 En G31 et ensuite passer à la suivante qui est : 905,610271316841,0,0789000218702767,69471,57930 J'aurais donc deux chaines en F32 et G32 : 905,610271316841 en...