liste deroulante

[bernardrustrel]

Bonjour à tous
je suis en quête d'une solution en VBA afin d'actualiser une cellule en fonction du choix effectué au travers d'une liste déroulante.
dans le fichier joint, je voudrais à partir de la sélection faite en A1 obtenir en B1 le contenu de la cellule adjacente.
ex: j'affiche "3" en A1 et "trois" devrait s'afficher en B1

Merci à vous.
Cordialement.
Bernard

 

[kingfadhel]

Re : liste deroulante

Bonjour,
Solution via Formule :

en B1 : =INDEX(A3:B7;EQUIV(A1;A3:A7;0);2)

 

[kingfadhel]

Re : liste deroulante

Re,

Solution via VBA

à coller le code sur la Feuille 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
Range("b1").FormulaR1C1 = _
        "=INDEX(R[2]C[-1]:R[6]C,MATCH(RC[-1],R[2]C[-1]:R[6]C[-1],0),2)"
End If
End Sub

 

[bernardrustrel]

Re : liste deroulante

Je vous remercie pour votrte aide.
Celà correspond au besoin. mais pourrions nous passer de la formule?
Merci encore

 

[DoubleZero]

Re : liste deroulante

Bonjour, bernardrustrel, kingfadhel, le Forum,

Comme ceci ?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
    Cells.Find(What:=Target, After:=Target, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Offset(, 1).Activate
        Range("b1") = Selection: Range("b1").Select
End If
End Sub

A bientôt 🙂

P. S. : Bonjour, Jean-Marcel 😀

 

[bernardrustrel]

Re : liste deroulante

merci beaucoup
je m’empresse d'adapter ce code à mes besoins.
Cordialement
Bernard