Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transposer sur une seule cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hulk
  • 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 !

S'inscrire

Hulk

XLDnaute Barbatruc
Hello Forum 🙂

J'ai en colonne A2:Ax une liste comme ceci :

Pomme
Poire
Pêche
Nectarine
Banane
Ananas

Je souhaiterais la transposer sur une seule cellule (par ex. D1) comme ceci :

Pomme-Poire-Pêche-Nectarine-Banane-Ananas-

Pour l'instant je fais ceci..
Code: 
Private Sub CommandButton1_Click()

    Dim lign As Range
    
    For Each lign In Range([A2], [A65000].End(xlUp))
    
        If Range("A" & lign.Row).Value <> "" Then
        
            Range("D1").Value = Range("A" & lign.Row).Value & "-"
        
        End If
    
    Next lign

End Sub
Mais il n'affiche que la dernière valeur de la liste -> Ananas-

Quelqu'un pour un p'tit coup de main ?

Merci d'avance pour vos propositions !

Bonne fin de journée à tous 😎
 

Pièces jointes

Trier par date Trier par votes
Re : Transposer sur une seule cellule

Hello Hulk 🙂

Peut-être en modifiant juste cette ligne ? :

Code: 
Range("D1").Value = Range("D1") & "-" & Range("A" & lign.Row).Value

@ +

mth
 
Vote positif 0 Vote négatif
Re : Transposer sur une seule cellule

salut

Si... tu veux simplifier, tu peux faire
Code: 
Private Sub CommandButton1_Click()
  Dim C As Range
  [D1] = ""
  For Each C In Range([A2], [A65000].End(xlUp)).SpecialCells(xlCellTypeConstants)
    [D1] = [D1] & C & "-"
  Next
  '[D1] = Left([D1], Len([D1]) - 1) 'pour enlever le dernier tiret
End Sub
 
Vote positif 0 Vote négatif
Re : Transposer sur une seule cellule

Bonjour,

Set champ = Range([A2], [A65000].End(xlUp))
[d1] = Join(Application.Transpose(champ), "-")

Sous forme de fonction:

Function transpo(champ As Range)
transpo = Join(Application.Transpose(champ), "-")
End Function

=Transpo(A1:A5)


jb
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Transposer sur une seule cellule

Mth, Si, Boisgontier, Forum,

Désolé de ne pas avoir répondu avant.

Merci pour vos réponses, elles sont toutes nickel.

Très bonne journée à vous !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
598
safranien
S
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
  • Résolu(e)
XL 2013 RollOver sur cell sans boucle peut on modifier le lien avec une liste(array en VBA)
7 8 9
Réponses
122
Affichages
8 K
PMG
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
X
  • Résolu(e)
Microsoft 365 VBA code qui efface un commentaire écrit dans une cellule, suivant le résultat d'une autre
2
Réponses
18
Affichages
2 K
xxexcel
X
P
  • Résolu(e)
XL 2019 ajouter lien fichier dans une colonne
Réponses
3
Affichages
532
sylvanu
S
  • Résolu(e)
Microsoft 365 Trouver la première cellule vide sur une range prédéfinie
2 3
Réponses
31
Affichages
3 K
SPGoder
S
  • Résolu(e)
Microsoft 365 Code VBA qui renvoie une matrice à partir d'un liste à cocher au lieu d'une cellule
Réponses
5
Affichages
1 K
yal
Y
C
  • Résolu(e)
XL 2010 supprimer une ligne sur d'autre feuilles en prenant référence sur une feuille journal
Réponses
3
Affichages
669
ccia
C
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
Hasco
O
  • Résolu(e)
XL 2010 activer une feuille selon la valeur d'une cellule
Réponses
13
Affichages
2 K
ozerte
O
D
  • Résolu(e)
Microsoft 365 Documenter la cellule sélectionnée à partir d'un useform
Réponses
3
Affichages
1 K
Dravol
D
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
E
  • Question Question
Microsoft 365 Ecrire une date en fonction d'une recherche (vba)
Réponses
2
Affichages
1 K
Eisu
E
K
  • Résolu(e)
Microsoft 365 Question sur VBA EXCEL
Réponses
6
Affichages
1 K
kondabalo
K
  • Question Question
Transposer une listbox d'un Userform dans une seule cellule
Réponses
2
Affichages
717
piga25
E
  • Résolu(e)
Microsoft 365 Concaténer plusieurs cellules précises en une ligne
Réponses
1
Affichages
1 K
Elegancya
E
S
  • Question Question
XL 2016 VBA Recopie de valeurs de cellules d'une feuille vers une autre à la suite
Réponses
5
Affichages
2 K
safranien
S
S
  • Question Question
Microsoft 365 Liste dérourante excel à recréer avec une valeur affectée par défaut
Réponses
1
Affichages
999
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…