XL 2016 Supprimer cellules vides par formule

djidji59430

XLDnaute Barbatruc

• 27 Octobre 2024

• #2

Bonjour à tous,

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

avec power query ou avec concat

 

Pièces jointes

• Classeur3.xlsx

  43.3 KB · Affichages: 6

Dernière édition: 27 Octobre 2024

Vote positif 0 Vote négatif

A

Andreo79

XLDnaute Nouveau

• 28 Octobre 2024

• #3

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 !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Octobre 2024

• #4

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.

 

Pièces jointes

• Classeur3 (1).xlsm

  32.1 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Octobre 2024

• #5

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

 

Pièces jointes

• Classeur3 (V2).xlsm

  34 KB · Affichages: 1

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 28 Octobre 2024

• #6

Bonjour,
Par formule,
Mettre en A1 :

VB:

=_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 + :

Code:

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

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

 

Dernière édition: 28 Octobre 2024

Vote positif 0 Vote négatif

A

Andreo79

XLDnaute Nouveau

• 29 Octobre 2024

• #7

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

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 29 Octobre 2024

• #8

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:

VB:

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

 

Pièces jointes

• Classeur3 (6).xlsm

  34 KB · Affichages: 1

Vote positif 0 Vote négatif