Rechercher valeur et renvoi

[Rop]

Bonjour à tous
J'ai besoin d'un peu d'aide. Je désire rechercher du texte dans une plage de cellule (B2:C12) et le renvoyer dans une cellule (A1). Il n'y a qu'une seule cellule de la plage qui va avoir du texte d'une façon aléatoire. Qui à une bonne idée?
Merci d'avance
Pascal

 

[Catrice]

Re : Rechercher valeur et renvoi

Bonsoir,

Pas sur d'avoir compris masi une solution macro dans le fichier joint.

 

[Rop]

Re : Rechercher valeur et renvoi

Bonsoir Catrice
Je ne connais pas la valeur recherchée ni son emplacement dans le tableau. Dans ce tableau, il y a une valeur inscrite d'une façon aléatoire. Il faut que j'inscrive cette valeur dans une cellule précise.
Merci

 

[Denis132]

Re : Rechercher valeur et renvoi

Bonsoir Rop, Catrice,

Une autre façon(un peu longue)dans A1 :

=T(B2)&T(B3)&T(B4)&T(B5)&T(B6)&T(B7)&T(B8)&T(B9)&T(B10)&T(B11)&T(B12)&T(C2)&T(C3)&T(C4)&T(C5)&T(C6)&T(C7)&T(C8)&T(C9)&T(C10)&T(C11)&T(C12)

@+

Denis

 

[Rop]

Re : Rechercher valeur et renvoi

Bonsoir Denis

C’est une solution un peu longue, mais en attendant mieux, je l'adopte.
Ça fonctionne.

Merci à tous

Bonne soirée

 

[abcd]

Re : Rechercher valeur et renvoi

Bonjour,

Plus court mais pas optimal :
=SI(NBVAL(B2:B12)>0;RECHERCHE("zz";B2:B12);"")&SI(NBVAL(C2:C12)>0;RECHERCHE("zz";C2:C12);"")

abcd

Edition :
Avec une fonction de MorefunC :
=MCONCAT(B2:C12)

 

[Catrice]

Re : Rechercher valeur et renvoi

Bonjour à tous,

Je n'avais effectivement pas compris.
ci joint une version macro et une version formule (pas plus simple que celles deja fournies)

 

[kjin]

Re : Rechercher valeur et renvoi

Bonjour,
Avec une simple fonction perso
Dans un module standard

Public Function TEXTO(Plage As Range)
Dim Cel As Range
Application.Volatile
For Each Cel In Plage
    If Not IsNumeric(Cel) Then
    TEXTO = TEXTO & " " & Cel
    End If
Next
End Function

En A1, saisie
=TEXTO(B2:C12)

A+
kjin