Classement de sélection multiple

Bonjour,
Je te remercie de ton aide, cependant je ne comprend pas pourquoi cela ne marche pas sur mon document d'origine lorsque je transfert la macro. Je change les noms des feuilles pour celle correspondante, mais cela ne fonctionne pas.
Voici le document d'origine avec la macro modifier pour celui-ci:
https://www.cjoint.com/c/ECFqSJ3mqBX

J'ai fait aussi mes recherches et je ne comprend pas ce code:
" Set pl = pl.SpecialCells(xlCellTypeConstants) "
Peut tu m'éclairer stp.

Dylan

Bonjour,

je ne comprend pas ce code: " Set pl = pl.SpecialCells(xlCellTypeConstants) "
Equivalent à 'rechercher et sélectionner / Atteindre... / Cellules... / Constantes', c'est à dire sélectionner les cellules saisies avec une constante (pas les formules, ni les cellules vides).
Pour ne boucler que sur les cellules 'utiles' et non sur les 25000.
C'est pour pouvoir faire ça que je commençais par nettoyer tes cellules " ".
D'ailleurs dans tes formules si() met plutôt ...;"") au lieu de ...;" ") pour avoir une chaine vide et non un espace qu'on ne voit pas et qui est piégeant.

Et ceci t'explique pourquoi ça ne fonctionne pas sur ton fichier. Tu n'as pas de cellules vides ni vraiment avec " ", mais que des formules... D'où l'importance de mettre des fichiers le plus proche possible de la réalité.

Ton fichier est lourd et apparemment tu vas dans vba, je ne met que le code :

Sub traiter()
    Dim datas, c As Range, result() As String
    Dim lig As Long, col As Long
    ReDim result(1 To 1)

    With Sheets("Concatenage")
        datas = .Range([B3], .Cells.Find("*", , , , , xlPrevious)).Value
    End With
    For col = 1 To UBound(datas, 2)
        For lig = 1 To UBound(datas, 1)
            If datas(lig, col) <> " " Then
                result(UBound(result)) = datas(lig, col)
                ReDim Preserve result(1 To UBound(result) + 4)
            End If
        Next lig
    Next col
    With Sheets("Résultat")
        .[B:B].ClearContents
        .[B3].Resize(UBound(result)) = Application.Transpose(result)
        .Select
    End With
End Sub

eric

Bonjour,
Voila le raccourci sur mon fichier.
Je suis désole, je débute sur se site.
https://www.cjoint.com/c/ECEnwWLENpq

Merci

Mais tu aurais dû continuer dans ta discussion précédente https://forums.commentcamarche.net/forum/affich-31755191-regrouper-des-cellules-eparpillees au lieu d'en créer une autre ... On finira par s'y perdre !

Bonjour,
Vos informations marchent à merveille, et je vous en remercie. Merci Eric, je fonctionne avec ton code, merci pour ton explication, et merci au autres, j'ai essayé vos conseils et ils fonctionnent aussi.
Mais je n'est toujours par atteint mon objectif (qui est vraiment compliquer).
Existe t'il un moyens de multiplier les codes 4 fois, ainsi que de "dé-concaténer" un code?

Chaque amélioration doit pouvoir être appliquée sur la feuille entière.
Explication dans le fichier ci-dessous:

https://www.cjoint.com/c/EDck6FB5wqt

Les questions se trouvent dans la page "Objectif" qui est le résultat final de se document, non terminer et remplis à la main.

Je vous remercie d'avance.

Dylan

Bonjour,

Ca a l'air d'être sans lien avec la question en cours.
Si celle-ci est terminée merci de mettre en résolu et de démarrer un nouveau topic.
Penses aux futurs lecteurs qui recherchent une réponse. Déjà que ce n'est pas simple parfois de suivre le fil, imagine si plusieurs problèmes sont mélangés.

eric