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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA EXCEL création liste de validation de données

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA EXCEL création liste de validation de données

n°927878
gadjio8
Posté le 20-12-2004 à 10:54:43  profilanswer
 

Voilà j'ai un problème pour créer une validation de données en VBA sous EXCEL.
 
En gros je dois mettre une liste déroulante sur différentes cellules. Dans cette liste déroulante, il doit y avoir des données qui se trouvent dans une zone cachée (sur la meme feuille). Je dois donc mettre en place la validation de données. Cependant comme ma liste est susceptible de changer je dois faire cette validation en VBA et de manière automatique.
 
J'ai donc recherché dans l'aide d'EXCEL et sur internet et voilà ce que j'ai trouvé :
 
 
With Range("A1" ).Validation
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Formula1:="=" & Range("A433:A445" ).Address
End With
 
A1 est la cellule dans laquelle je veux mettre la liste déroulante et A433:A434 est la zone contenant les données de ma liste.
 
Quand je mets cela EXCEL me jette en me disant :
Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet
 
Est-ce que quelqu'un a une solution ?
Merci

mood
Publicité
Posté le 20-12-2004 à 10:54:43  profilanswer
 

n°927967
Profil sup​primé
Posté le 20-12-2004 à 12:17:47  answer
 

c'est parce que tu tente de recréer une validation là où elle existe déja , met ce bout de code avant de créer ta validation :)
 
 
Range("A1" ).Validation.Delete

n°929077
gadjio8
Posté le 21-12-2004 à 12:22:49  profilanswer
 

Voila ce que j'ai mis et il me met toujours la meme erreur
 
Range("A1" ).Validation.Delete
Range("A1" ).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & Range("A433:A434" ).Address
 
 
Meme chose pour
With Range("A1" ).Validation  
.Delete
.Add Type:=xlValidateList, _  
AlertStyle:=xlValidAlertStop, _  
Formula1:="=" & Range("A433:A445" ).Address  
End With  
L'erreur provient de la partie .add et la suite car le .delete passe correctement
 
Si quelqu'un a une autre idée...
Est-ce une erreur de synthaxe ?
 
Merci de vos aides

n°929225
Profil sup​primé
Posté le 21-12-2004 à 15:09:11  answer
 

Range("A1" ).Validation.Delete  
Range("A1" ).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & Range("A433:A434" ).Address

 
j'ai recopié exactement ce que tu as mis et ca marche plusieurs fois d'affilé sans aucun probléme  [:mrbrelle]

n°930673
gadjio8
Posté le 23-12-2004 à 08:56:36  profilanswer
 

lol
ben dans ce cas je vais voir pourquoi ça ne fonctionne pas ;)
merci de m'avoir aidé :d


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

  VBA EXCEL création liste de validation de données

 

Sujets relatifs
validation xhtlm -> javascript[VBA] Outlook: option pour ne pas sauvegarder un email envoyé
[VBA Excel] [Résolu] Problème de librairies de fonctions vbaexcel cellule colonne vbs boucle
effacer un ligne d'une table access en vbaQuestion sur traitement de données ACCESS
MyODBC, acces a une base de données distanteProblème de renvoi d'une requète ms query dans Excel
Comment avoir accès à Excel avec les fonctions MsgBox? 
Plus de sujets relatifs à : VBA EXCEL création liste de validation de données


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