XL 2016 Supprimer cellules vides par formule

[Andreo79]

Chers tous.
Voici un extrait de feuille excel. Je veux tout simplement supprimer toutes les cellules vides par formule. Merci.
Cordialement !

 

[djidji59430]

Bonjour à tous,

Et tu veux obtenir quel resultats ? Une solution .......

avec power query ou avec concat

 

[Andreo79]

Bonjour Djidji59430.
Je vous avoue que je ne connais pas power query.
1. Votre solution regroupe le contenu de toutes les cellules d'une même ligne dans une seule cellule. Résultat inexploitable. Je veux une solution où les cellules vides sont supprimées. Ce qui rapproche les cellules non vides les unes des autres.
2. Le tableau 2 change le contenu des cellules initiale. Est-ce que on peut utiliser cette même technique tout en gardant le contenu des cellules intact ?
Agréable journée !

 

[sylvanu]

Bonjour Andreo, Djidji,
Avec ce que j'ai compris, un essai en PJ.
La macro s'exécute automatiquement lorsqu'on sélectionne la Feuil2.
Pensez à valider les macros si ce n'est déjà fait.

 

[sylvanu]

Re,
Et si on considère qu'une colonne vide ( faite de cellule vide ) doit être supprimée, voir PJ.

 

[piga25]

Bonjour,
Par formule,
Mettre en A1 :

=_xlfn.CONCAT(B1:DQ1;"--")

Sur une autre feuille, copier la colonne A1 puis coller les valeurs
Aller sur Données, Convertir, Délimité, Dans Autres mettre -- , En destination mettre B1
Comme cela plus de cellule vide.

Pour excel 2019 et + :

=TEXTEJOIN("--",VRAI,B1:DQ1)

Pour excel 2016 et + : =CONCATENER(B1;"--";C1;"--";D1;"--";E1;"--";F1 ....... ;DQ1)

 

[Andreo79]

Bonjour piga25. Merci pour tes formules. Je comprends que avec ma version d'excel, il n'y a pas mieux.
Cordialement !

 

[piga25]

Bonjour,
Une solution pour excel 2016 avec une fonction personnalisée (cela implique d'enregistrer le fichier en Xlsm).
La fonction personnalisée à mettre dans un module:

Function MaTexteJoin(delim As String, ignore_empty As Boolean, ParamArray plages()) As String
    Dim cel As Range
    Dim resultat As String

    For Each plage In plages
        For Each cel In plage.Cells
            If Not ignore_empty Or cel.Value <> "" Then
                resultat = resultat & delim & cel.Value
            End If
        Next cel
    Next plage

    ' Supprimer le premier délimiteur
    MaTexteJoin = Mid(resultat, Len(delim) + 1)
End Function