XL 2013 [RESOLU] Concaténer dans Excel !

[M92_]

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.

 

[Rouge]

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]

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_]

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_]

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]

Bonjour Mes3oud92, Rouge, JHA,

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

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]

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

Cdlt

 

[job75]

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

 

[Rouge]

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_]

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_]

Bonjour Mes3oud92, Rouge, JHA,

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

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]

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_]

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.