Contenu de ListBox dépendant de la valeur d'une cellule [VBA-Excel] - VB/VBA/VBS - Programmation
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
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".
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