Concatener plusieurs cellules

Paritec

XLDnaute Barbatruc

• 14 Janvier 2013

• #2

Re : Concatener plusieurs cellules

Re Simrail le forum
bah tu fais une petite boucle sur tes cellules ou une petite fonction personnalisée tu veux quoi pour séparer les textes?? un point virgule un espace un tiret bas??
a+
papou😱

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 14 Janvier 2013

• #3

Re : Concatener plusieurs cellules

Bonjour, salut Paritec,

Consultes ce fil, il date de ce matin !
https://www.excel-downloads.com/threads/simplification-de-formule.199145/

 

Vote positif 0 Vote négatif

S

simraill

XLDnaute Occasionnel

• 14 Janvier 2013

• #4

Re : Concatener plusieurs cellules

Merci,
j'avais effectivement fait une petite macro dans le genre mais en beaucoup moins propre 🙂
bizarre que mon ami google ne me l'ai pas retourné dans mes recherches.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Janvier 2013

• #5

Re : Concatener plusieurs cellules

Re simrail le forum
un fichier que tu n'as pas su fournir (trop dur de faire un exemple) avec ton résultat
a+
Papou😱

 

Pièces jointes

• Simrail V1.xls

  25 KB · Affichages: 47

Vote positif 0 Vote négatif

P

prorudess

Guest

• 14 Janvier 2013

• #6

Re : Concatener plusieurs cellules

Bonjour à tous,

Ma contribution ...

Bonne journée

 

Pièces jointes

• Concatenation.xls

  46 KB · Affichages: 55
• Concatenation.xls

  46 KB · Affichages: 52
• Concatenation.xls

  46 KB · Affichages: 55

Vote positif 0 Vote négatif

S

simraill

XLDnaute Occasionnel

• 14 Janvier 2013

• #7

Re : Concatener plusieurs cellules

Merci papou,
désolé de ne pas avoir mis de fichier exemple mais je ne pensais pas qu'un petit problème de ce genre necessité forcément un exemple, je ne pense pas qu'il soit très difficile de comprendre ma demande juste en lisant mon poste.

Sinon au niveau de ton code, a quoi sert-il de mettre l'option explicit, si tu ne met pas le type de ta variable? Ca reviens au même que de ne pas la déclarer.

@prorudess : merci à tio aussi, la textbox pour mettre le séparateur est vraiment sympas 😉!

Au final j'ai repris la fonction donnée dans le lien de hoerwind, en ajoutant un if :

Code:

Function MaPlageConcatener(plg As Range) As String
    i = 0
    For Each c In plg
        i = i + 1
        If i = 1 Then
            MaPlageConcatener = MaPlageConcatener & c
        Else
            MaPlageConcatener = MaPlageConcatener & ";" & c
        End If
    Next c
End Function

Le i et le if servant à ne pas mettre le ";" au début de la chaine.

Merci à tous 😉
Simraill

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 14 Janvier 2013

• #8

Re : Concatener plusieurs cellules

Re,

Une autre possibilité par formule, le résultat dans la dernière cellule.

 

Pièces jointes

• ConcatenerFormules.xls

  16 KB · Affichages: 44
• ConcatenerFormules.xls

  16 KB · Affichages: 51
• ConcatenerFormules.xls

  16 KB · Affichages: 42

Vote positif 0 Vote négatif