Re : Récupérer les chiffres après la virgule
Bonsoir,
Tu peux aussi tenter un truc du genre:
Private Sub CommandButton1_Click()
Dim VIRGULE As Variant
VIRGULE = ","
Worksheets("Feuil1").Cells(3, 2) = Left(Worksheets("Feuil1").Cells(3, 1), _
(InStrRev(Worksheets("Feuil1").Cells(3, 1), VIRGULE, -1, vbTextCompare)) - 1)
Worksheets("Feuil1").Cells(3, 3) = Mid(Worksheets("Feuil1").Cells(3, 1), _
(InStrRev(Worksheets("Feuil1").Cells(3, 1), VIRGULE, -1, vbTextCompare) + 1), 5)
End Sub
Voir Classeur joint
Bonne soirée
YANN-56