Concaténer le texte d'une sélection dans une seule cellule

  • Initiateur de la discussion Initiateur de la discussion Fab117
  • 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 !

Fab117

XLDnaute Impliqué
Salut,
Je souhaiterais faire une macro, qui concatenerait le contenu de plusieurs cellules dans une seule cellule.
Chaque contenu de cellule serait séparé par une virgule.
Dans l'exemple ci joint, les cellules d'interets sont de "C4" à "C12"
Et ce que devrait produire la macro est dans la cellule "A18".

Quelqu'un saurait-il comment définir dans 3 variables (via une InputBox)
La cellule de dépard de la selection
La cellule de fin de la selection
Et la cellule où mettre le résultat

Ensuite, quelqu'un connait-t-il la formule pour qu'il concatène dans une nouvelle variable le contenu de la sélection ?

Merci par avance.

Fab
 

Pièces jointes

Re : Concaténer le texte d'une sélection dans une seule cellule

Bonsoir,

voici un exmple de code:

Code:
Sub concac()
texte = ""
For Each cellule In Range([C4], [C4].End(xlDown))
    If texte = "" Then
        texte = cellule.Value
    Else: texte = texte & "," & cellule.Value
    End If
Next
[A18].Value = texte
End Sub
 
Re : Concaténer le texte d'une sélection dans une seule cellule

Bonjour,
salut skoobi

une méthode avec un userform, et 2 refédit

regarde le fichier joint
Tu sélectionnes ta zone, celle-ci s'inscrit dans le 1 er RefEdit
puis clique dans le 2 ème, et sélectionne la cellule de destination

Le code :

Code:
Private Sub CommandButton1_Click()
Dim cel As Range
    For Each cel In Range(Me.RefEdit1.Value)
        temp = temp & ", " & cel
    Next cel
    With Range(Me.RefEdit2.Value)
        .Value = Right(temp, Len(temp) - 2)
        .WrapText = True
    End With
Unload Me
End Sub
 

Pièces jointes

Re : Concaténer le texte d'une sélection dans une seule cellule

Salut,
Tout d'abord merci à tous pour votre aide, c'est super cool.


Bonjour,
salut skoobi

une méthode avec un userform, et 2 refédit

regarde le fichier joint
Tu sélectionnes ta zone, celle-ci s'inscrit dans le 1 er RefEdit
puis clique dans le 2 ème, et sélectionne la cellule de destination

Le code :

Code:
Private Sub CommandButton1_Click()
Dim cel As Range
    For Each cel In Range(Me.RefEdit1.Value)
        temp = temp & ", " & cel
    Next cel
    With Range(Me.RefEdit2.Value)
        .Value = Right(temp, Len(temp) - 2)
        .WrapText = True
    End With
Unload Me
End Sub


L'approche avec le UserForm me plait beaucoup (je n'avais encore jamais utilisé le contrôle RefEdit).
Chez moi (Excel 2002 SP3 en Anglais), ça fonctionne parfaitement.
Toutefois, ce code n'est pas pour moi, mais pour un ami et chez lui (je ne sais pas encore quelle version il a), ça ne fonctionne pas, il a un message d'erreur (erreur de compilation).
Est-ce que ça pourrait être dû à sa version d'Excel ou à la langue (v française) ?

Fab
 
Re : Concaténer le texte d'une sélection dans une seule cellule

Bonjour,
A quel endroit l'erreur de compilation?
Quel est le message exact?

As-til rajouté le contrôle RefEdit?
Dans l'éditeur VBE
Clic droit sur la boîte à outils, Contrôles supplémentaires
Et rajouter "RefEdit.Ctrl"
 
Re : Concaténer le texte d'une sélection dans une seule cellule

Resalut,
Hé bien malheureusement ça ne fonctionne pas.
Mon ami a Excel 2003 en Français.
Le contrôle RefEdit est bien activé
Il affiche "erreur de compilation" "projet ou bibliothèque introuvable". Quand il ouvre l'éditeur VBA il surligne le premier "cel" dans l'Userform1.

Voilà.

Fab
 
Re : Concaténer le texte d'une sélection dans une seule cellule

Bonjour,
Pour cela, il va dans le VBE, il clique sur Outils/Référence
Il doit avoir un MANQUANT écrit en majuscule avec une référence quelconque
Il décoche la case correspondante, puis OK, ça devrait le faire
Bonne soirée
 
- 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

Retour