Microsoft 365 Fonction personnalisée

[WTF]

Hello le forum,

Je cherche à créer une fonction personnalisée qui serait :

- concatener les cellules de la plage - exemple (D3:G3)
- Si les cellules de la plage - exemple (D11:G11) sont égales à 1
- ajouter un espace entre chaque donnée

Par exemple :

Résultat		S	E	A	D	D	L	U	T
S A L U T		1		1			1	1	1
E A D L			1	1		1	1

Merci de votre aide

 

[sylvanu]

Bonjour WTF,
En PJ un exemple simple simple avec :

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

 

[WTF]

Top, Merci sylvanu

 

[job75]

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 :

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

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

A+

 

[WTF]

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 :

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

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

A+

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.

 

[WTF]

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

 

[sylvanu]

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.

 

[WTF]

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

 

[job75]

Bonjour WTF, sylvanu,

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

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

A+