Microsoft 365 Fonction personnalisée

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Août 2020

• #2

Bonjour WTF,
En PJ un exemple simple simple avec :

VB:

Function WTF(Lettres As Range, Nombres As Range)
L = Lettres
N = Nombres
WTF = ""
For i = 1 To UBound(N, 2)
    If N(1, i) = 1 Then WTF = WTF & L(1, i)
Next i
End Function

 

Pièces jointes

• Classeur1.xlsm

  13.8 KB · Affichages: 15

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 26 Août 2020

• #3

Top, Merci sylvanu

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2020

• #4

Bonjour WTF, sylvanu,

Sur les dernières versions d'Excel il existe la fonction JOINDRE.TEXTE.

Voyez le fichier joint et la formule matricielle en A3 :

Code:

=JOINDRE.TEXTE(" ";VRAI;REPT(C$2:J$2;C3:J3=1))

A valider par Ctrl+Maj+Entrée et tirer vers le bas.

A+

 

Pièces jointes

• Joindre texte(1).xlsx

  10.5 KB · Affichages: 1

Vote positif 0 Vote négatif

Solution

WTF

XLDnaute Impliqué

• 27 Août 2020

• #5

job75 à dit:

Bonjour WTF, sylvanu,

Sur les dernières versions d'Excel il existe la fonction JOINDRE.TEXTE.

Voyez le fichier joint et la formule matricielle en A3 :

Code:

=JOINDRE.TEXTE(" ";VRAI;REPT(C$2:J$2;C3:J3=1))

A valider par Ctrl+Maj+Entrée et tirer vers le bas.

A+

Cliquez pour agrandir...

Top merci Job. Je ne connaissais ni la fonction joindre texte que j'ai compris, ni REPT que pour le coup je ne maitrise pas encore.

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 27 Août 2020

• #6

Bonjour Sylvanu et Job75,
Vos 2 solutions fonctionnent très bien. J'ai juste un point : j'ai un espace qui se met pour la 1ère occurrence (par exemple : _S_A_L_U_T)

Avez vous une idée pour supprimer le 1er et avoir S_A_L_U_T

Merci bcp

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Août 2020

• #7

Bonjour WTF,Job,
Donnez un petit fichier car avec la macro post #2 il n'y a pas d'espace avant le premier caractère.

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 27 Août 2020

• #8

Bonjour Sylvanu,
En PJ un fichier.
Il n'y a en effet pas d'espace sur le 1er ni entre les autres

 

Pièces jointes

• TEST_COMPIL.xlsm

  14.6 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Août 2020

• #9

Bonjour WTF, sylvanu,

WTF vous disiez avoir compris JOINDRE.TEXTE mais il semble que ce ne soit pas le cas :

Code:

=JOINDRE.TEXTE("_";VRAI;REPT(B$1:I$1;B2:I2=1))

A+

 

Pièces jointes

• TEST_COMPIL(1).xlsx

  10.7 KB · Affichages: 2

Vote positif 0 Vote négatif