XL 2013 scinder une cellule en deux

J

JHA

XLDnaute Barbatruc

• 3 Janvier 2017

• #2

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Accro

• 3 Janvier 2017

• #3

Bonsoir

en VBA :

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

 

Dernière édition: 3 Janvier 2017

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 3 Janvier 2017

• #4

merci bcq pour votre reponse rapide

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 3 Janvier 2017

• #5

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...

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 3 Janvier 2017

• #6

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

 

Vote positif 0 Vote négatif