XL 2016 formule concatener sans 0

[cmdavid]

Bonjour à tous,
je cherche a retirer les 0 de la formule concatener pour obtenir uniquement les valeurs excitantes, ou une autre formule pour obtenir ce que je cherche, voir fichier joint.
Merci pour votre aide
Cordialement,

 

[fanch55]

Bonjour,
Formule à mettre en B19:

=JOINDRE.TEXTE("+";VRAI;D6:D16)

 

[cmdavid]

Bonjour fanch55,
si je met votre formule dans B19, j'obtient "#NOM?" dans mon fichier

 

[ALS35]

Bonjour à tous,
La fonction JOINDRE.TEXTE n'est disponible qu'à partir d'Excel 2019.
Sinon une idée en changeant les formules en F6 G6
en F6 : =SI(D6="";"";D6)
en G6 : =SI(F7="";"";$G$4)
et à recopier vers le bas
Cordialement

 

[cmdavid]

Bonjour ALS35,
ok, j'ai modifier les formules comme indiqué, mais cela ne retire pas les + et les 0

 

[JHA]

Bonjour à tous,

Avec la fonction personnalisée "TEXTJOIN" (merci à @Dranreb) à mettre dans un module de la feuille.

Function TEXTJOIN(Delimiter As String, IgnoreEmpty As Boolean, ParamArray Parm() As Variant)
Dim E, C As Range, V, T() As String, N&
For Each E In Parm
  If TypeName(E) = "Range" Then
     For Each C In E.Cells
        V = C.Value: GoSub 1
        Next C
     ElseIf IsArray(E) Then
        For Each V In E: GoSub 1: Next V
     Else
        V = E: GoSub 1
        End If: Next E
TEXTJOIN = Join(T, Delimiter)
Exit Function
1: If V = "" And IgnoreEmpty Then Return
N = N + 1
ReDim Preserve T(1 To N): T(N) = V
Return
End Function

JHA

 

[ALS35]

Bonjour ALS35,
ok, j'ai modifier les formules comme indiqué, mais cela ne retire pas les + et les 0

Pourtant le résultat en B17 n'est-il pas conforme à ce que tu souhaites ?

 

[job75]

Bonjour à tous,

Voyez le fichier joint avec en F6 à tirer vers le bas :

=F5&REPT(REPT("+";ESTTEXTE(F5))&D6;ESTNUM(D6))

A+

 

[cmdavid]

Merci JHA et ALS35 pour votre aide,
Cordialement,

 

[cmdavid]

Merci aussi a job75, cala fonctionne aussi
Cordialement,