extraire des chiffres

[phil59110]

bonsoir a tous et a toutes

voila je voudrais si vous le voulez bien extraire des chiffres en celule b5 et les ranger en celule c5 d5 e5 f5 g5 sans les petit tirets
je vous joint un petit fichier pour l'exemple

merci beaucoup!!!

 

[vbacrumble]

Re : extraire des chiffres

Bonsoir



Utilise Données/Convertir

Séparateur: tiret

Plus de détails dans ce post (suivre le lien indiqué)
Lien supprimé

A+

 

[Tibo]

Re : extraire des chiffres

Bonsoir,

On peut utiliser le menu Données - Convertir avec comme séparateur décimal -

Détail : ça supprime la donnée source.

Une solution formule (avec une formule unique pour les 5 nombres), en C5 :

=STXT(SUBSTITUE(SUBSTITUE("-"&$B5&"-";"-";"µ";COLONNE()-2);"-";"¤";COLONNE()-2);
TROUVE("µ";SUBSTITUE(SUBSTITUE("-"&$B5&"-";"-";"µ";COLONNE()-2);"-";"¤";
COLONNE()-2))+1;TROUVE("¤";SUBSTITUE(SUBSTITUE("-"&$B5&"-";"-";"µ";
COLONNE()-2);"-";"¤";COLONNE()-2))-TROUVE("µ";SUBSTITUE(SUBSTITUE("-"&$B5&"-";
"-";"µ";COLONNE()-2);"-";"¤";COLONNE()-2))-1)*1

Formule à recopier vers la droite.

On peut simplifier si on accepte de traiter les extrémités avec d'autres formules.

@+

 

[phil59110]

Re : extraire des chiffres

bonsoir et merci de me repondre aussi vite
ben c'est vrai vbacrumble je pourais le faire avec données/convertir mais le proceder ne me plait pas beaucoup parce que a chaque fois il faut le refaire et comme je dois le faire 8 ou 9 fois par jour ?

par contre je vais testé ta formule Tibo si j'arrive a la recopier comme il faut?

merci beaucoup!!

 

[CBernardT]

Re : extraire des chiffres

Bonsoir à tous,

Une version VBA avec la conversion automatisée des données de la colonne B en fonction du nombre de ligne.

Cordialement

Bernard

 

[vbacrumble]

Re : extraire des chiffres

Re


Pourtant c'est bien utilse Données/Convertir


Regarde le code ci-dessous

Sub extration()
Dim NBC As Long
Dim i As Long
NBC = Len(Replace(ActiveCell, "-", "")) - 1
For i = 1 To NBC
ActiveCell.Offset(0, 1).EntireColumn.Insert
Next
ActiveCell.TextToColumns Range("A1"), xlDelimited, xlDoubleQuote, , , , , , True, "-"
End Sub

Saisis en A1: 2-3-4-5
en B1: test

Sélectionne A1 puis lance la macro.

A+

 

[phil59110]

Re : extraire des chiffres

re bonsoir Vbacrumble et Cbernardt

je vais tester ces macro et je vous dit quoi!!

merci beaucoup vous éte vraiment sympa!!!!!

 

[phil59110]

Re : extraire des chiffres

voila j'ai tester les deux macros et la formule tout fonctionne super bien!!!
un grand merci a vous et une bonne soirée!!!!!!