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

  • Initiateur de la discussion Initiateur de la discussion herve30
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

herve30

XLDnaute Nouveau
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
 

Pièces jointes

Pièces jointes

Bonjour @job75

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

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
 
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
 
@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 :
VB:
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.
 

Pièces jointes

Dernière édition:
Bonjour job75 ,
Petit message d 'erreur :
Capture d’écran 2022-04-09 à 11.01.26.png

Cordialement
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
133
Réponses
3
Affichages
87
Réponses
7
Affichages
260
Retour