Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1160 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1524615
daboos
Posté le 06-03-2007 à 17:31:13  profilanswer
 

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

mood
Publicité
Posté le 06-03-2007 à 17:31:13  profilanswer
 

n°1524643
ingenieurc​esi
Posté le 06-03-2007 à 17:40:14  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
VBA access requete SQL et fonction()[Excel] Calcul matriciel
VBA access fermer word [résolu]Copier le contenu d'un DIV dans un INPUT
comment garder une valeur généré?[JS] Remplir un champ avec la valeur d'un select
[Excel] recherche toutes les lignes qui ont la même valeur.creer et/ou modifier materiaux + l'appliquer + VBA + CATIA
[sql*loader] valeur par defaut 
Plus de sujets relatifs à : [VBA-Excel] Contenu de ListBox dépendant de la valeur d'une cellule


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR