Discussion :

[lowno]

Salut à tous !

Je viens encore vers vous pour un problème de "transposition"

J'ai une colonne "A" avec, dans chaque cellules (jusqu'a A53) de cette dit colonne, des référénces de produits.

Je cherche par macro à transposer toutes ces cellules (du moins le "contenu") dans une seule, et que chaque références soit séparés par un point-virgule.

Une fois transposé, je souhaite "reporter" la nouvelle cellule dans un UserForm.

Donc :

- Transposer les cellules d'une colonne à une ligne, çà pas de pb ...
- Reporter dans un userform, pas de pb non plus ...

Mais :

- Transposer avec point-virgule à la suite .... là je sèche.


Voilà mon petit pb

Merci à tous

[Philippe Tulliez]

Bonjour,
S'agit-il de transposer ou de concaténer ?
Si c'est de la concaténation, deux solutions possibles soit par une boucle avec une variable qui contient le résultat de la concaténation soit la fonction JOIN s'il s'agit d'un tableau

[lowno]

Je me suis mal exprimé.

Pour Exemple...

Dans la colonne A j'ai une référence par cellule:

000555668
555999887
444444888
444556665
777778888

Et je cherche à obtenir dans une cellule à côté :

000555668;555999887;444444888;444556665;777778888

Après quelques recherches j'ai utilisé une fonction que j'ai trouvé sur le net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function ConcatPlageCelNonVides(plage As Range, Optional séparateur As String = ", ") As String
    Dim rep As String, c As Range
    For Each c In plage
        If c.Value <> "" Then
            rep = rep & c.Value & séparateur
        End If
    Next c
    ConcatPlageCelNonVides = Left(rep, Len(rep) - Len(séparateur))
End Function

Merci de t'être penché sur mon cas

[Marc-L]

Bonjour, bonjour,

boucle inutile, direct grâce à Join(Application.Transpose([A1:A5]), ";") …