XL pour MAC Combiner le texte de plusieurs cellules dans une cellule

[herve30]

Bonjour,
J'ai dans la colonne A des valeurs alphanumériques .
Certaines cellules sont vides.
Je souhaite concatener dans B1
Je joint un fichier pour exemple
Merci d'avance
Cordialement

 

[JHA]

Bonjour à tous,

Je ne connais pas ta version d'excel, ci-joint un début de piste avec une colonne supplémentaire masquée et la fonction joindre.texte()

JHA

 

[Phil69970]

Bonjour @herve30 , @JHA

Ma version en VBA toutes versions excel

*Merci de ton retour

@Phil69970

 

[herve30]

Bonjour JHA et @Phil69970,
Merci pour vos réponses

J'utilise Excel 2016
JHA, Je n'arrive pas à faire fonctionner la formule ...
Peux tu me donner quelques explications ?
Voir en PJ le classeur obtenu
Cordialement

 

[Phil69970]

Bonjour à tous

@herve30

Pas de nouvelle de ma version elle ne te va pas ?

@Phil69970

 

[JHA]

Bonjour à tous,

Cette fonction n'est accessible qu'à partir de excel 2019
Je te joins une fonction personnalisée qui fait le même travail.

Il serait bien de répondre à Phil69970 avec sa version VBA

JHA

 

[job75]

Bonjour herve30, JHA, Phil69970,

JOINDRE.TEXTE existe depuis Excel 2016 :

https://excel-malin.com/a-la-une/excel-2016-les-nouveautes/#Excel_2016_6_nouvelles_fonctions

mais je ne sais pas pour MAC.

Pour ma part voici une solution sans colonne auxiliaire mais avec cette formule matricielle en B3 :

=SI(A3="";JOINDRE.TEXTE(", ";VRAI;DECALER(A3;1;;EQUIV(VRAI;ESTVIDE(DECALER(A3;1;;10000));0)));"")

à valider par Ctrl+Maj+Entrée.

A+

 

[JHA]

Bonjour @job75

Bizarre, ci-joint le texte de microsoft à l'adresse suivante:

JOINDRE.TEXTE (JOINDRE.TEXTE, fonction) - Support Microsoft

La fonction JOINDRE.TEXTE combine le texte à partir de plusieurs plages et/ou chaînes, et inclut un séparateur que vous spécifiez entre chaque valeur de texte à combiner. Si le séparateur est une chaîne de texte vide, cette fonction concatène effectivement les plages.

support.microsoft.com

JOINDRE.TEXTE (JOINDRE.TEXTE, fonction)​

Excel pour Microsoft 365 Excel pour Microsoft 365 pour Mac Excel pour le web Excel 2021 Excel 2021 pour Mac Excel 2019 Excel 2019 pour Mac Moins

Je ne vois pas Excel 2016

JHA

 

[herve30]

Je n'y arrive pas ....
Avec la formule de JHA impossible de saisir =ESTVIDE(A3) car A3 est "vide" mais contient une formule !
J'ai essayé d'autres formules mais en vain !

La solution de job75 affiche un message d'erreur #NOM?
J'utilise bien Ctrl+Maj+Entrée. pour valider mais impossible de valider la formule.

Je vais essayer à présent la version en VBA pour toutes les versions excel de Phil69970
en espérant pouvoir l'adapter à mon classeur car le VBA n'est pas trop mon fort

En vous remerciant
Je reviens vers vous dès que possible

 

[job75]

@herve30 si JOINDRE.TEXTE n'existe pas chez vous il faut du VBA.

J'ai compris que vous préférez concaténer en colonne A alors voyez le fichier joint et cette macro :

Private Sub CommandButton1_Click()
Dim tablo, ub&, i&, x$, j&
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With UsedRange.Columns(1)
    If CommandButton1.Caption = "RAZ" Then
        .AutoFilter Field:=1, Criteria1:=vbRed, Operator:=xlFilterFontColor 'filtre couleur
        With .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
            .Value = ""
            .Font.ColorIndex = xlAutomatic
        End With
        .AutoFilter 'ôte le filtre
    Else
        tablo = .Value 'matrice, plus rapide
        ub = UBound(tablo)
        For i = 2 To ub
            If tablo(i, 1) = "" Then
                x = ""
                For j = i + 1 To ub
                    If tablo(j, 1) = "" Then Exit For
                    x = x & ", " & tablo(j, 1) 'concatène
                Next j
                tablo(i, 1) = Mid(x, 3)
            End If
        Next i
        .SpecialCells(xlCellTypeBlanks).Font.Color = vbRed
        .Value = tablo
        .SpecialCells(xlCellTypeBlanks).Font.ColorIndex = xlAutomatic
    End If
End With
CommandButton1.Caption = IIf(CommandButton1.Caption = "RAZ", "Concaténer", "RAZ")

Il y a un seul bouton avec 2 fonctions.

 

[herve30]

Merci job75
Je ne pourrai pas mettre en place le code ce soir,
je m'en occupe demain matin et je vous tiens au courant
Bonne soirée
Cordialement

 

[job75]

Pour tester j'ai recopié la plage A2:A29 sur 56 000 lignes, chez moi les durées d'exécution sont :

- Concaténer => 1,4 seconde

- RAZ => 0,2 seconde, le filtre couleur est donc très rapide.

 

[herve30]

Bonjour job75 ,
Petit message d 'erreur :

Cordialement

 

[Phil69970]

@herve30

Vu que tu réponds à tout le monde sauf à moi et que tu me zappes allègrement car j'ai toujours pas de retour.

Bon courage pour la suite et tes autres demandes ....

@Phil69970

 

[herve30]

Bonjour Phil69970,
J'essaie de résoudre mon problème en utilisant les solutions de tous les participants dont la tienne !
Mais en vain. Je suis vraiment pas doué ...
Je continue cet après midi en espérant pouvoir adapter une de ces proposition
Merci encore à vous tous pour votre travail.
Cordialement