Formule pour décomposer une céllule

Bonjour!

Je vous joins mon classeur avec l'explication en feuille 1, merci à tous pour la contribution.

Cordialement.

Voilà une proposition utilisant une fonction personnalisée.

Bonjour,

Superbe la fonction

Peut-être mettre un CNUM pour remettre les cellules en numériques

Bonjour,

Bonjour D39X,

une solution avec une fonction personnalisée qui tient compte de chiffres après la virgule qui peuvent être différents de zéro, code ci-dessous à introduire dans un nouveau module

Function splitcomma(ts, p)
    s = ts & " "
    q = 1
    For i = 1 To p
        q = InStr(q, s, ",")
        q = q + 1
    Next i
    b = InStr(q, s, " ")
    For a = q - 2 To 1 Step -1
        If Mid(s, a, 1) = "," Then Exit For
    Next a
    If a > 0 Then
        q1 = InStr(a, s, " ")
        ns = Mid(s, q1 + 1, b - q1 - 1)
    Else
        ns = Mid(s, 1, b - 1)
    End If
    splitcomma = Replace(Replace(ns, ",", "."), " ", ",")
End Function

fonction à appeler

=splitcomma($A1,1) où A1 est l'adresse contenant la chaine de nombre et où le 1 est l'occurrence du nombre à extraire.

Pour ceux que ça intéresse, voilà le code

Public Function SplitChaine(ByVal texteInitial As String, ByVal position As Integer) As String
Dim decomposition As Variant
decomposition = Split(texteInitial, ",00") 'à personnaliser au besoin

If position < 1 Or position > UBound(decomposition, 1) Then Exit Function

SplitChaine = decomposition(position - 1) & ",00" 'à personnaliser au besoin
End Function

Bonjour!

Merci H2so4 et d3d9x pour votre réactivité et l'exactitude de vos réponse apparemment cela marche je reviens vers le forum si besoin.

Cordialement

Bonjour à tous.

Je reviens avec mon problème et vers vous d3d9x, si j'ai bien compris la fonction sépare les caractères en se basant sur ",00" et si après la virgule il n'y pas que des Zéros exemple ",60" ou ",02".

Merci d'avance.

Bonjour!

Je reviens avant que ce ne soit trop tard, j'ai essayer la fonction de h2So4 et cela marche à la perfection.

Merci à tous