JOINDRE.TEXTE sans Office 365 ? Possible ?

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Y
Yek
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 22 février 2017
Version d'Excel : 2013 FR

Message par Yek » 12 mars 2018, 15:11

Bonjour à tous,

Je ne dispose pas de la fonction JOINDRE.TEXTE proposée par Office 365 et j'en aurai grandement besoin.

En effet, je souhaiterai concaténer à la chaine plusieurs cellules :

Colonne A : différents titres de livres dont le nombre varie d'un fichier à l'autre

Colonne B : B1 (texte) : "Il s'agit des livres :"
B2 (texte) : "et"

Le principe serait de mettre en place une chaine de type, pour par exemple 50 livres :
B1 A1 B2 A2 B2 A3 B2 A4 B2 [...] A50
soit "Il s'agit des livres Titre1 et Titre2 et Titre3 et Titre4 et [...] Titre 50"

Y'a-t'il une solution autre que de devoir acheter OFFICE 365 ?

Merci d'avance !
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 3'679
Appréciations reçues : 264
Inscrit le : 26 janvier 2011
Version d'Excel : 2007

Message par Theze » 12 mars 2018, 15:34

Bonjour,

Je ne suis pas sûr de bien comprendre ::~
Tu veux concaténer plusieurs phrases avec des conjonctions de coordination ?
Voici un fonction perso (JOINDRE) que tu peux adapter à tes besoins. Dans mon exemple, la plage contient tous les mots à assembler pour former la phrase "Il s'agit des livres Titre1 et Titre2 et Titre3 et Titre4" où "Il s'agit des livres" se trouve dans la cellule A1 et les autres dans les cellules A2, A3, Ax. Mot1 est seulement utilisé au début (ici, un espace) et ensuite, Mot2 coordonne ("et" avec un espace devant et un derrière) :
Function JOINDRE(Plage As Range, Mot1 As String, Mot2 As String)
    
    Dim Cel As Range
    Dim Chaine As String
    Dim I As Long
    
    For Each Cel In Plage
    
            I = I + 1
            Chaine = Chaine & Cel & IIf(I = 1, Mot1, Mot2)
        
    Next Cel
    
    Chaine = Left(Chaine, Len(Chaine) - Len(Mot2))
    
    JOINDRE = Chaine
    
End Function
Utilisation de la formule : =joindre(A1:A4;" ";" et ")
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message