[VBA-Excel] Contenu de ListBox dépendant de la valeur d'une cellule

Contenu de ListBox dépendant de la valeur d'une cellule [VBA-Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 06-03-2007 à 17:31:13    

Bonjour à tous
 
J'ai un petit programme qui devrait afficher une ListBox dans une première cellule, puis selon le choix de l'utilisateur dans la première ListBox, lui en proposer une autre dans une deuxième cellule. Je dois encore faire ca avec une troisième cellule mais voila, je bloque déjà sur la deuxième.
 
Voila le code que j'ai tenté de mettre en place, il est issu de l'enregistreur de macro et je ne m'attendais pas à ce qu'excel m'affiche "Erreur 1004 - Erreur définie par l'application ou par l'objet".
 

Code :
  1. Sub DetermAppliClic()
  2. If Sheets(1).Cells(15, 2).Value = "valeur1" Then
  3.     ThisWorkbook.Sheets(1).Cells(15, 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$C$28:$C$32"
  4. 'la même chose avec valeur2, valeur3,etc... avec des références de listes à afficher différentes, bien entendu
  5. End Sub


 
 
Si quelqu'un sait d'où ca peut venir, je lui serais très reconnaissant de me faire partager ses connaissances :)
 
Merci d'avance et bonne soirée à tous
 
DaBoos

Reply

Marsh Posté le 06-03-2007 à 17:31:13   

Reply

Marsh Posté le 06-03-2007 à 17:40:14    

essaye avec ca
ya surement des lignes inutiles mais ca marche
par contre je suis pas sur que c'est ce que tu veux
 
Sub Macro1()
If Sheets(1).Cells(15, 2).Value = "valeur1" Then
Cells(16, 2).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$C$28:$C$32"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True

End With
End If
End Sub
 
en rouge pas obligatoire
 
PS oubli pas ton end if --> par contre ca ne provoque pas d'erreur 1004 --> ca ne se lance meme pas


Message édité par ingenieurcesi le 06-03-2007 à 23:01:05
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed