Demander choix

A l'aide d'une formule excel j'imagine ?

Dans une première cellule (mettons A10)
=SI(A6="bordeaux"; "Nord ou Sud ?";"")

Ensuite l'utilisateur donne sa réponse dans la cellule B11 par exemple
et en A7 :
=SI(B11="Nord";"Toto";"Tata")

J'espère avoir bien compris le problème... l'énoncé était un peu court :o)

"Francky" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:16a701c4a6ee$29f4e8c0$a401280a@phx.gbl...

Hello,

Je veux faire un test du style
si la cellule a6 = bordeaux afficher poser question "nord
ou sud ?"
Si nord "toto" en a7
Si sud "tata" en a7
Merci de votre aide

En VB svp

-----Message d'origine-----
A l'aide d'une formule excel j'imagine ?

Dans une première cellule (mettons A10)
=SI(A6="bordeaux"; "Nord ou Sud ?";"")

Ensuite l'utilisateur donne sa réponse dans la cellule
B11 par exemple

et en A7 :
=SI(B11="Nord";"Toto";"Tata")

J'espère avoir bien compris le problème... l'énoncé était
un peu court :o)

"Francky" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:16a701c4a6ee$29f4e8c0$a401280a@phx.gbl...

Hello,

Je veux faire un test du style
si la cellule a6 = bordeaux afficher poser
question "nord

ou sud ?"
Si nord "toto" en a7
Si sud "tata" en a7
Merci de votre aide

.

Salut,

essaie ça :

Sub Zone()

If [A6] = "Bordeaux" Then
zone = InputBox("Nord ou Sud ??")

Select case zone
Case "Nord"
[A7] = "Toto"
Case "Sud"
[A7] = "Tata"
End Select

End If

End Sub

Ca marche ?

CAP2

DAns le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$6" And zz <> "Bordeaux" Then Exit Sub
If zz <> "Bordeaux" Then Exit Sub
x = InputBox("Nord ou Sud ?")
If x = "Nord" Then
[A7] = "toto"
ElseIf x = "Sud" Then
[A7] = "tata"
Else: [A7] = "": End If
End Sub

AV