listbox

En A1 :
Données > Validation > Liste > Source : A;B;C;D

Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
x = Array("A", "B", "C", "D")
Application.EnableEvents = False
[A1] = Application.Match([A1], x, 0)
Application.EnableEvents = True
End Sub

AV

Bonjour,

Non testé, mais probablement avec quelque chose comme cela:

sub valeurenchiffre()
select case listbox1.value
case "A"
a = 1
case "B"
b=1
case "C"
c=1
case "D"
d=1
case else
end select
end sub

ou bedon si la variable n'a pas à être nommée a,b,c ou d

sub valeurenchiffre()
valeur = asc(listbox1.value) - 64
end sub




"Pascal" <nospam.pascal@nospam.gagnebin.ch> a écrit dans le message de
news:%23tcXXSVoDHA.744@tk2msftngp13.phx.gbl...

Salut
Sur une feuille, est-il possible que la valeur d'une cellule soit
déterminée

par une listbox, par exemple que j'attribue les valeurs A, B, C et D
visibles dans la listbox, et que A=1, B=2, C=3, D=4 ?
Pascal