XL 2013 scinder une cellule en deux

[nicroq]

bonjour et merci pour votre aide

voila j'ai en colonne A des valeurs en g ou ml et je souhaiterai en VBA un code qui permette de scinder en deux celules la valeur de la colonne A.

Par exemple : en colonne A j'ai "0,43 g" et je voudrais en colonne B "0,43" et en colonne C "g"

merci

 

[JHA]

Bonjour à tous,

Par formule:
A1="0,43 g"
Formule en B1: =GAUCHE(A1;CHERCHE(" ";A1))*1
Formule en C1: =STXT(A1;CHERCHE(" ";A1);99)

JHA

 

[laurent950]

Bonsoir

en VBA :

Sub scinde()
'Range("A1") = "0,43 g"
Tab1 = Split(Range("A1"), " ")
Range("b1") = Tab1(0)
Range("c1") = Tab1(1)
End Sub

 

[nicroq]

merci bcq pour votre reponse rapide

 

[nicroq]

cependant quand je fais cela ca me copie pas en nombre dans la cellulke d a coté? est ce possible d eviter ce probleme? qd je clique sur la cellule cela me demande de convertir en nombre...

 

[nicroq]

en multipliant par 1 cela fonctionne
bonne soirée
encxore merci