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

Concatener en inserant un carractere entre les cellules

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

Océane

XLDnaute Impliqué
Bonjour
Comme dans l'exemple joint, je voudrais créer une liste de contact prête a recopier dans ma messagerie.
Pour cela la formule concatener fonctionne, mais il faudrait que je puisse ajouter un ; entre chaque adresse...
Cela est -il possible sans macro?
Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Concatener en inserant un carractere entre les cellules

Bonjour à tous,

Une autre solution avec une fonction personnalisée CONCAT (qu'on trouvera aussi dans l'utilitaire de macros complémentaires "Morefunc" sous le même nom), son code est:
Code: 
Function Concat(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
    Concat = Left(rep, Len(rep) - Len(séparateur))
End Function

et en application dans le fichier attaché...

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Concatener en inserant un carractere entre les cellules

Bonjour Océane, camarchepas,

Voici deux fonctions macros :

Code: 
Function CONCATV(plage As Variant) As String
plage = Application.Transpose(plage)
CONCATV = Join(plage, ";")
End Function

Function CONCATH(plage As Variant) As String
plage = Application.Transpose(plage)
plage = Application.Transpose(plage)
CONCATH = Join(plage, ";")
End Function
Fichier joint.

Edit : salut hbenalia

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Concatener en inserant un carractere entre les cellules

Re, salut David 🙂

Quelques modifications qui permettent :

- d'utiliser des plages illimitées

- de ne pas tenir compte des cellules vides.

Code: 
Function CONCATV(plage As Variant) As String
Set plage = Intersect(plage, ActiveSheet.UsedRange)
plage = Application.Transpose(plage)
CONCATV = Replace(Application.Trim(Join(plage)), " ", ";")
End Function

Function CONCATH(plage As Variant) As String
Set plage = Intersect(plage, ActiveSheet.UsedRange)
plage = Application.Transpose(plage)
plage = Application.Transpose(plage)
CONCATH = Replace(Application.Trim(Join(plage)), " ", ";")
End Function
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Concatener en inserant un carractere entre les cellules

Bonjour à tous
Merci les spécialistes en macro, mais je ne suis pas très à l'aise, dans ce style, alors je choisir la solution : formule.
J'ai établi une règle dans l'exemple ci-joint, est-il possible de réaliser la même chose directement avec l'assistant ?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Concatener en inserant un carractere entre les cellules

Re Océane,

Tant pis si vous n'aimez pas les macros...

Laurent Longre a créé une fonction MCONCAT dans Morefunc (voyez sur le web).

Elle concatène les éléments d'une matrice.

Cette fonction fait à peu près la même chose :

Code: 
Function MATCONCAT$(plage, separateur$)
Dim tablo(), t, n&
Set plage = Intersect(plage, ActiveSheet.UsedRange)
ReDim tablo(Application.CountA(plage) - 1)
plage = plage 'matrice, plus rapide
For Each t In plage
  If Not IsEmpty(t) Then tablo(n) = t: n = n + 1
Next
MATCONCAT = Join(tablo, separateur)
End Function
Fichier (3).

PS : je n'ai jamais entendu parler de l'Assistant concaténer 😕

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Concatener en inserant un carractere entre les cellules

Ce n’est pas que je déteste les macro, au contraire je trouve çà magique quand on ne peux pas faire autrement; c'est tout simplement que je ne les maitrises pas...
Effectivement il n'y a pas d'assistant "concatener"; je voulais parler de l'assistant en général pour établir une formule.



Toujours est-il que la fonction MATCONCAT correspond exactement à mon besoin. Merci encore
 
Vote positif 0 Vote négatif
Re : Concatener en inserant un carractere entre les cellules

Re,

Notez que j'ai modifié la macro du post #8, une ligne était inutile.

Voyez aussi MCONCAT, on peut télécharger Morefunc gratuitement.

Mais pas sûr que ce soit possible sur Excel 2007/2010.

A+
 
Vote positif 0 Vote négatif
Re : Concatener en inserant un carractere entre les cellules

En prenant modèle sur la formule en C3, de l'exemple joint, je voudrai en C11 créer la même chose avec les données de la plage A11:B13...
Comment faire, je dois avoir un Pb d syntaxe...
 

Pièces jointes

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

A
  • Question Question
Microsoft 365 Vérifier si un texte existe dans une cellule contenant une liste
Réponses
9
Affichages
594
arzac
A
  • Résolu(e)
Microsoft 365 Formule entre 2 feuilles
Réponses
7
Affichages
318
TooFatBoy
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
J
  • Résolu(e)
Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel
Réponses
8
Affichages
533
JMC
J
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
601
Phil69970
G
  • Question Question
XL 2013 N'autoriser QUE les informations strictement nécessaires de façon "conviviale" !
Réponses
5
Affichages
322
TooFatBoy
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
781
vgendron
L
  • Question Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
424
lilie17
L
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
543
vgendron
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
704
Phil69970
F
  • Question Question
XL 2016 Générer un rapport pdf depuis excel
2
Réponses
22
Affichages
3 K
fraux
F
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
573
fanch55
L
  • Question Question
Microsoft 365 TCD et référence de cellules
Réponses
7
Affichages
653
alexga78
A
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
799
DJunqueira
D
C
  • Question Question
Microsoft 365 Problème Code VBA
Réponses
9
Affichages
561
fanch55
M
  • Question Question
Microsoft 365 Indice de révision de chaque ligne automatiquement
Réponses
2
Affichages
486
MLIZIN
M
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
706
djidji59430
I
  • Question Question
XL 2016 Colorer cellules entre 2 dates et étendre la mise en forme et ajout de texte
Réponses
1
Affichages
660
Irina1009
I
  • Question Question
XL 2016 Transfert de données d'un tableau en différenciant les libellés
Réponses
8
Affichages
683
Magnio
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…