XL 2016 Fonction concaténer en masse

L

Lolote83

XLDnaute Barbatruc

• 11 Décembre 2020

• #2

Salut,
Peut être avec cette fonction personnalisée
Voir fichier joint
@+ Lolote83

 

Pièces jointes

• Copie de DJBREISTO - Concaténation plage.xlsm

  14.1 KB · Affichages: 28

Vote positif 0 Vote négatif

D

Djbreisto

XLDnaute Nouveau

• 11 Décembre 2020

• #3

Merci pour cette fonction .
Par contre quand je clic sur la cellule j'ai #nom qui apparaît .

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 11 Décembre 2020

• #4

Re bonjour,
La fonction personnalisée est associé à du code (macro).
Voici le code qu'il te faudra insérer dans un nouveau module de ton classeur.
Pour accéder au VBA, faire ALT+F11 et copier le code ci-dessous dans un nouveau module.
Puis il te faudra enregistrer ton classeur en XLSM
Voici le code

VB:

Function Concat(xPlage As Range)
    For Each xCell In xPlage
        xConcat = xConcat & xCell
    Next xCell
    Concat = xConcat
End Function

@+ Lolote83

 

Vote positif 0 Vote négatif

D

Djbreisto

XLDnaute Nouveau

• 11 Décembre 2020

• #5

ok super merci.
J'aimerais également rajouter qu'il me semble qu'il existe une fonction pré-enregistré dans Excel qui fait cette opération en automatique, mais je ne m'en souviens plus et c'est la fonction que je cherche.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #6

Bonjour,
je suis sous Excel pour Microsoft 365 donc je ne peux pas vérifier.
Essaie avec CONCAT() ou JOINDRE.TEXTE() si et bien sûr si elles sont disponibles sous la version d'Excel 2016.

Cordialement

 

Vote positif 0 Vote négatif

D

Djbreisto

XLDnaute Nouveau

• 11 Décembre 2020

• #7

hello,
Merci de ta réponse malheureusement les foncions CONCAT() ou JOINDRE.TEXTE() n'existe pas ds ma version.

CDT

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #8

Re,
Reste une seule chose, c'est d'installer la macro complémentaire Morefunc et profiter de la fonction MCONCAT(), sinon une fonction personnalisée en VBA fera l'affaire.

Cordialement

 

Vote positif 0 Vote négatif

D

Djbreisto

XLDnaute Nouveau

• 11 Décembre 2020

• #9

merci je vais essayer et je te retiens au jus

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 11 Décembre 2020

• #10

Bonjour à tous, Rachid.

sinon une fonction personnalisée en VBA fera l'affaire

Cliquez pour agrandir...

Il me semble que c'est ce que j'ai fait au post #4
@+ Lolote83

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #11

Re,

Lolote83 à dit:

Il me semble que c'est ce que j'ai fait au post #4

Cliquez pour agrandir...

Oui mon ami j'ai vu, lui il cherchait une fonction native d'Excel, c'est pour cela je lui ai dit que s'il ne trouve pas il n'a qu'à adopter une fonction personnalisée en VBA.


Cordialement

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 11 Décembre 2020

• #12

Re,
Ok merci Rachid pour cette remarque. Je ne l'avais pas compris comme ça.
Je ne savais même pas qu'il existait une fonction native comme tu le précises.
Bonne soirée et au plaisir de se recroiser lors d'un prochain sujet.
Au fait, après l'araignée, puis le visage, voici maintenant un beau avatar. Tu vas changer souvent ?
J'aimais bien l'araignée mais celui ci n'est pas mal non plus.
@+ Lolote83

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #13

Re,

Lolote83 à dit:

Je ne savais même pas qu'il existait une fonction native comme tu le précises.

Cliquez pour agrandir...

à partir d'Excel 2019 on a CONCAT() et JOINDRE.TEXTE(), je pensais qu'elles existaient aussi sous Excel 2016.

Lolote83 à dit:

Au fait, après l'araignée, puis le visage, voici maintenant un beau avatar. Tu vas changer souvent ?

Cliquez pour agrandir...

J'aime bien ce logo que j'avais depuis presque 10 ans, l'araignée je l'adorais également.

 

Vote positif 0 Vote négatif

D

Djbreisto

XLDnaute Nouveau

• 14 Décembre 2020

• #14

Bonjour à vous deux ,

voici la solution avec une macro pour faire a concaténation avec Excel depuis 2016

VB:

Sub selec_cellule()

    For Each Cell In Selection
        If Cell.Text <> "" Then ttt = ttt & " OR " & Cell.Text
    Next

    'Rows("1:1").Select
    'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E5").Select
    ActiveCell.FormulaR1C1 = ttt
    
    
End Sub

J'ai deux lignes en commentaire pour insérer l'information en case A1.

Cdt

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 14 Décembre 2020

• #15

Bonjour,
Le code que je t'ai proposé au post#4 ne fonctionnait pas ???
Par contre, j'ai utilisé ton code et nullement il était indiqué au départ qu'il fallait rajouté le mot "OR" entre chaque cellule testée.
Mais bon si cela te convient.
@+ Lolote83

 

Vote positif 0 Vote négatif