Liste déroulante intégrée dans une formule

[litelsousa]

Bonjour,

Il est possible de remplir une cellule selon une liste avec
=RECHERCHEV(B18;'N° d''affaire'!A1:E664;3;FAUX)

Mais est-il possible d'intégrer cette liste dans la même cellule que cette formule?

Sur le fichier joint, j'aimerais avoir la liste déroulant qui est en B18 dans la cellule A18

Et le résultat me donnerais
CONCERNE : 4431 Affaire 7

Merci pour votre aide

 

[vgendron]

Bonjour

si je comprend bien. la réponse est :
à ma connaissance, NON, tu ne peux pas avoir dans une meme cellule à la fois une formule ET une liste de validation.
il te faut donc une cellule qui permet de sélectionner le numéro (tu peux la rendre "invisible": ==> cellule jaune)
et ensuite, tu peux concatener les résultats dans une seule cellule

voir PJ
NB: j'ai modifié créé des zones nommées

 

[job75]

Bonjour litelsousa, vgendron,

Avec VBA on fait ce qu'on veut, voyez le fichier joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(CStr([A18])) Then Exit Sub
Dim i As Variant, affaire$
With Feuil5 'CodeName
    i = Application.Match([A18], .[A:A], 0)
    If IsError(i) Then affaire = "n/a" Else affaire = .Cells(i, 3)
End With
[A18] = "CONCERNE : " & [A18] & " " & affaire
End Sub

A+

 

[litelsousa]

Eh bien merci,
C'est exactement ce que je voulais faire.

Bonne journée

 

[litelsousa]

Juste une petite question,

Quand on utilise un VBA, il est impossible de rajouter une lige ou une colonne?

 

[job75]

Bonjour litelsousa, vgendron, le forum,

Quand on utilise un VBA, il est impossible de rajouter une lige ou une colonne?

Fichier (2) avec cellule et plage nommées :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(CStr([Choix])) Then Exit Sub
Dim i As Variant, affaire$
i = Application.Match([Choix], [Num_affaire], 0)
If IsError(i) Then affaire = "n/a" Else affaire = [Num_affaire].Cells(i, 3)
[Choix] = "CONCERNE : " & [Choix] & " " & affaire
End Sub

Bonne journée.

 

[job75]

Re,

Fichier (2 bis) avec la fonction VLookup (RECHERCHEV) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(CStr([Choix])) Then Exit Sub
Dim affaire As Variant
affaire = Application.VLookup([Choix], [Num_affaire].Resize(, 3), 3, 0)
If IsError(affaire) Then affaire = "n/a"
[Choix] = "CONCERNE : " & [Choix] & " " & affaire
End Sub

A+

 

[litelsousa]

Nickel, Merci bien