XL 2016 Eviter d'écrire ceci B6&" "&B7&" "&B8&" "&B9&" "&B10&" "&B11&" "&B12&" "&B13&" "&B14&" "&B15&" "&B16&" "&B17&" "&B18&" "&B19&" "&B20&" "&B21&" "&B22&"

N

nounou1902

XLDnaute Nouveau

• 13 Septembre 2021

• #2

voici un ordre d'idée

 

Pièces jointes

• 2021-09-13 (2).png

  161.9 KB · Affichages: 30

Vote positif 0 Vote négatif

N

NecroXls

XLDnaute Nouveau

• 13 Septembre 2021

• #3

Bonjour

essaye la fonction "JOINDRE.TEXTE" qui permet de concaténer des plages avec un séparateur

=JOINDRE.TEXTE(" ";TRUE";B6:B25) si tu ne veux pas concaténer les cellules vide sinon il faut mettre FAUX dans le 2eme paramètre

 

Vote positif 0 Vote négatif

N

nounou1902

XLDnaute Nouveau

• 13 Septembre 2021

• #4

Il semblerait que mon fichier Excel ne dispose pas de cette formule :/

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 13 Septembre 2021

• #5

Bonjour à tous,

Essai cette fonction personnalisée code à mettre dans un module

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

Ce code m'a été élaboré par un membre du forum, merci Mr Dranreb .

JHA

 

Dernière édition: 13 Septembre 2021

Vote positif 0 Vote négatif

Solution

N

nounou1902

XLDnaute Nouveau

• 13 Septembre 2021

• #6

Ah oui en effet une fois le module créer j'ai pu utiliser la fonction que tu m'a partager merci bien !!!!

 

Vote positif 0 Vote négatif