XL 2013 [RESOLU] Concaténer dans Excel !

M92_ · 14 Janvier 2021

Bonjour Forum Excel,

Je souhaiterais, si possible, savoir comment mettre en place la fonction suivante :

IN :
A.1
A.2
A.3
A.4
...

OUT (souhaité!) :
LIKE 'A.1' OR LIKE 'A.2' OR LIKE 'A.3' OR LIKE 'A.4'

Un petit détail : LIKE et OR LIKE sont des chaînes de caractères.

D'avance, merci de votre aide.

Cordialement,
MES3OUD92.

job75 · 14 Janvier 2021

Bonjour Mes3oud92, Rouge, JHA,

Voyez le fichier .xlsm joint et cette fonction VBA, à placer impérativement dans un module standard :

VB:

Function ConcatLike(r As Range) As String
For Each r In r
    If r <> "" Then ConcatLike = ConcatLike & " OR LIKE '" & r & "'"
Next
ConcatLike = Mid(ConcatLike, 5) 'supprime le 1er " OR "
End Function

Formule en C4 =ConcatLike(A4:A7)

A+

Rouge · 14 Janvier 2021

Bonjour,

Un peu léger comme explication.
Voulez-vous une formule excel, une fonction personnalisée en VBA?
Où se trouvent les données A.1, A.2 etc , dans des cellules? sont-ce des variables?
LIKE est en VBA un opérateur qui permet de comparer 2 chaînes de caractères, or vous dites qu'il s'agit déjà d'une chaîne de caractère.

Pour avoir une réponse correcte et adaptée à votre demande, il serait souhaitable de bien clarifier votre demande.

Cdlt

JHA · 14 Janvier 2021

Bonjour à tous,

Je t'avoue n'avoir rien compris sur ta demande.
Il serait mieux de mettre un fichier avec le résultat souhaité.

JHA

M92_ · 14 Janvier 2021

JHA à dit:
Bonjour à tous,

Je t'avoue n'avoir rien compris sur ta demande.
Il serait mieux de mettre un fichier avec le résultat souhaité.

JHA

Bonjour,

Merci beaucoup pour ton retour.
J'ai mis dans ton fichier le résultat souhaité.

Est-ce suffisamment clair désormais ?

En gros, je saisi des valeurs dans la colonne A et je reçois une chaîne de caractères qui met le mot "LIKE" avant la première valeur et le mot "NOT LIKE" avant les valeurs qui restent.

Mes3oud92

M92_ · 14 Janvier 2021

Rouge à dit:
Bonjour,

Un peu léger comme explication.
Voulez-vous une formule excel, une fonction personnalisée en VBA?
Où se trouvent les données A.1, A.2 etc , dans des cellules? sont-ce des variables?
LIKE est en VBA un opérateur qui permet de comparer 2 chaînes de caractères, or vous dites qu'il s'agit déjà d'une chaîne de caractère.

Pour avoir une réponse correcte et adaptée à votre demande, il serait souhaitable de bien clarifier votre demande.

Cdlt

Bonjour,

Merci beaucoup pour ton retour.
Cf. commentaire ci-dessus pour plus de détails.

Cdt,

Mes3oud92

job75 · 14 Janvier 2021

Bonjour Mes3oud92, Rouge, JHA,

Voyez le fichier .xlsm joint et cette fonction VBA, à placer impérativement dans un module standard :

VB:

Function ConcatLike(r As Range) As String
For Each r In r
    If r <> "" Then ConcatLike = ConcatLike & " OR LIKE '" & r & "'"
Next
ConcatLike = Mid(ConcatLike, 5) 'supprime le 1er " OR "
End Function

Formule en C4 =ConcatLike(A4:A7)

A+

Rouge · 14 Janvier 2021

Avec une simple formule
="LIKE '"&$A$10&"' OR LIKE '"&$A$11&"' OR LIKE '"&$A$12&"' OR LIKE '"&$A$13&"'"

Cdlt

job75 · 14 Janvier 2021

Oui Rouge mais s'il y a 100 cellules à concaténer vous aurez mal aux doigts

Rouge · 14 Janvier 2021

Bonjour job75,

Bien sûr, vous avez entièrement raison, mais comme Mes3oud92 ne distille ses informations qu'au compte-gouttes, j'ai adapté ma réponse à la question posée.

Cordialement

M92_ · 14 Janvier 2021

Bonjour Rouge, Job75

@Rouge, peut-être que c'est parce que j'ai du mal à m'exprimer en Français, Navré!
@job75, effectivement, le nombre de lignes/cellules peut varier et donc ne serait pas toujours égal à 4.

Cdlt,
M92.

M92_ · 14 Janvier 2021

job75 à dit:
Bonjour Mes3oud92, Rouge, JHA,

Voyez le fichier .xlsm joint et cette fonction VBA, à placer impérativement dans un module standard :

VB:

Function ConcatLike(r As Range) As String For Each r In r If r <> "" Then ConcatLike = ConcatLike & " OR LIKE '" & r & "'" Next ConcatLike = Mid(ConcatLike, 5) 'supprime le 1er " OR " End Function

Formule en C4 =ConcatLike(A4:A7)

A+

Bonjour Job75,

Ton fichier répond exactement à mon besoin, merci beaucoup!

Par contre, qu'est-ce que tu entends stp par "à placer impérativement dans un module standard" ?
Car j'ai tenté de rajouter des valeurs mais elles n'ont pas été prises en compte lors de la concaténation..

Merci encore.

Cdlt,
M92

job75 · 14 Janvier 2021

Mes3oud92 à dit:
Par contre, qu'est-ce que tu entends stp par "à placer impérativement dans un module standard" ?
Car j'ai tenté de rajouter des valeurs mais elles n'ont pas été prises en compte lors de la concaténation..

Dans mon fichier allez dans VBA et voyez où est placé le code.

Et dans la feuille de calcul, la formule en C4 doit inclure toutes les cellules à concaténer.

M92_ · 14 Janvier 2021

job75 à dit:
Dans mon fichier allez dans VBA et voyez où est placé le code.

Et dans la feuille de calcul, la formule en C4 doit inclure toutes les cellules à concaténer.

Un grand merci, @job75. Je clôture le dossier!

Cdlt,
M92.

XL 2013 [RESOLU] Concaténer dans Excel !

M92_

XLDnaute Junior

job75

Rouge

XLDnaute Impliqué

JHA

XLDnaute Barbatruc

Pièces jointes

M92_

XLDnaute Junior

Pièces jointes

M92_

XLDnaute Junior

job75

XLDnaute Barbatruc

Pièces jointes

Rouge

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Rouge

XLDnaute Impliqué

M92_

XLDnaute Junior

M92_

XLDnaute Junior

job75

XLDnaute Barbatruc

M92_

XLDnaute Junior

Discussions similaires