concatener+si

[eaquued]

Bonjour le Forum,
Je me permets une nouvelle fois de solliciter votre aide.Je cherche à concaténer des valeurs, jusque là, c'est simple.
Je souhaite concatener des valeurs différentes de zéro de manière automatique.
Par exemple: 0 1 2 0 0 4 0 9 deviendrait 1 2 4 9
Après de longues heures de recherche(j'exagère un peu, là!!!
), je n'ai pas trouver de solution qui me convienne.Avez-vous une idée?
Merci d'avance.

 

[Tenormadness]

Salut

vooici qui pourrait t'aider

Function ExtractionNombreDansChaine(pstrOrigine As String) As Long
Dim lintLen As Integer, lIdx As Integer, lstrFinal
lstrFinal = ''
For lIdx = 1 To Len(pstrOrigine)
Select Case Mid(pstrOrigine, lIdx, 1)
Case '1' To '9'
lstrFinal = lstrFinal & Mid(pstrOrigine, lIdx, 1)
Case Else
End Select
Next lIdx
ExtractionChaine = CLng(lstrFinal)
End Function

 

[2passage]

Bonjour,

C'est possible (et un poil plus simple, peut etre) en formule :


=substitue(A1&B1&C1....;'0';'')

A+

 

[eaquued]

Re,
Merci à vous 2.Cela marche super!!!
Bonne fin de journée.