XL 2016 formule concatener sans 0

fanch55

XLDnaute Barbatruc

• 6 Mai 2023

• #2

Bonjour,
Formule à mettre en B19:

VB:

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

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 6 Mai 2023

• #3

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

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Occasionnel

• 6 Mai 2023

• #4

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

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 6 Mai 2023

• #5

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 6 Mai 2023

• #6

Bonjour à tous,

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

VB:

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

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Occasionnel

• 6 Mai 2023

• #7

cmdavid à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• CONCATENER TEST-1.xlsx

  9.9 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 6 Mai 2023

• #8

Bonjour à tous,

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

Code:

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

A+

 

Pièces jointes

• CONCATENER TEST.xlsx

  9.5 KB · Affichages: 7

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 6 Mai 2023

• #9

Merci JHA et ALS35 pour votre aide,
Cordialement,

 

Vote positif 0 Vote négatif

C

cmdavid

XLDnaute Occasionnel

• 6 Mai 2023

• #10

Merci aussi a job75, cala fonctionne aussi
Cordialement,

 

Vote positif 0 Vote négatif