pb avec les validations de données

Essaye de passer par du VBA :

1 Dans un module standard de ton classeur (pour créer une liste de validation,
code à adapter ):

''''''''''''''''''''''''''
Sub ListePerso()
'ce code doit être exécuté dans Excel
Range("A2").Select
With Selection.Validation
.Delete
.Add xlValidateList, xlValidAlertStop, xlBetween,
Formula1:="tata;titi;toto;tutu"
.IgnoreBlank = True
.InCellDropdown = True
End With
SendKeys "%DV~": DoEvents 'nécessaires pour "valider" la liste...
End Sub
'''''''''''''''''''''''''''

2 Pour créer ou effacer la liste de validation en A2 selon la valeur en A1 (dans
le module de la feuille où tu veux que ça s'applique) :

'''''''''''''''''''''''''''
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
If Range("A1").Value = "x" Then
ListePerso
Else
Range("A2").Select
Selection.Validation.Delete
End If
End Sub
'''''''''''''''''''''''''''

--
Gaenonius

Bonsoir bonsoir,

Petit pb avec les validations de données : je souhaite faire la manip
suivante :
si A1 = x alors A2 me présente une liste déroulante liste1
si A1 est différent de x alors je tape ce que je veux dans A2.

mon pb est que quand c'est validé je ne peux plus rentrer autre chose que la
liste de validation !

Si qqn peut m'aider...

Bonne année !!

ChP.