EXCEL: Concaténer une plage de cellules [Résolu]

en vba tu pourrais faire ainsi :
Dans un module coller une fonction personnalisée :

Function ConcatPlage(plage As Range, contenant As String, séparateur As String) As String
    Dim rep As String, c As Range
    For Each c In plage
        If InStr(c.Value, contenant) > 0 Then
            rep = rep & c.Value & séparateur
        End If
    Next c
    ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function

Dans une feuille 'inserer / fonction / personnalisée' et choisir ConcatPlage.
Cette fonction attend 3 paramètres :
- plage : la plage à balayer (la désigner à la souris)
- contenant : la chaine devant être contenue dans chaque cellule de plage pour être dans la concaténation.
- séparateur : la chaine séparant chaque cellule concaténée (1 ou plusieurs caractères)

Fait sommairement avec les éléments que tu as donné, nécessite peut-être des adaptations pour ton cas précis.
exemple :
http://www.cijoint.fr/cjlink.php?file=cj200808/cijryw0Xms.xls

eric

tu peux peut être bidouiller comme cela:

pour concatener les cellules A1à A10:
En B1 tu met =A1
En B2= B1&A2
Et apres tu tires ta formule sur tte la colonne B ca devrait concatener toute ta colonne A

J'espère que c'est clair, il doit y avoir une meilleure solution mais pour l'instant je sèche

Salut!

Merci pour ta réponse.
En fait, je veux rechercher une liste de caractères sur une plage de cellules et garder les résultats.

exemple:
Je veux chercher dans la plage de cellules A1:A100 toutes les cellules contenant du texte commençant par "R" et garder tous les résultats. La deuxième partie consiste à afficher les résultats séparés par des espaces dans une seule cellule résultante.

En ce qui concerne la fonction "concatener", ça ne marche pas si tu insères une ligne entre la cellule A1 et la cellule A3...Il ne prendra pas en compte les 4 lignes pour la concaténation. Or j'ai besoin d'insérer des lignes pour insérer des noms.
La fonction que je veux mettre en place me permet d'afficher une solution récapitulative.

Merci d'avance pour ta réponse,
Cdlt,
Bertrand

Bonjour,

Je n'ai pas tout à fait saisi ton histoire de recherche mais pour ce qui est de concatener une plage de cellules avec des espaces entre les chaînes de caractères, tu peux essayer: =CONCATENER(" '";A1;" ";A2;" ";A3;" ") (pour plage de cellules A1:A3

J'espère que ça t'aidera,
Bon courage

Bonjour,

Et comment je peux faire en VBA?

Merci d'avance pour ta réponse,
B.

MERCI à vous deux! je vais essayer de mettre tout ça en application..!
Je vous tiens au courant!
++
B.

Par contre j'ai un pb d'adsl chez moi et je risque d'avoir des difficulté pour me connecter jusqu'à jeudi soir...
eric

Moi j'ai fait comme suit
Col A | Col B
Txt1 | =A
Txt2 | =CONCATENER(A2;B1) Résultat "Txt1Txt2"
Txt3 | =CONCATENER(A3;B2) Résultat "Txt1Txt2Txt3"
etc...

RB

Bonjour,

possible uniquement en vba...
eric