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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  menu déroulant vba => excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

menu déroulant vba => excel

n°1094874
mbl
Posté le 24-05-2005 à 13:38:12  profilanswer
 

Bon voila, j'ai besoin de créer un menu déroulant dans des cellules et donc je me suis dit je vais faire ca sous excel et ensuite faire le copier/coller de la macro. Le seul probleme c'est que le résultat ne tourne pas.
En clair la macro créer par excel ne marche pas....
 
Bon alors la tout simple, j'ai aussi enregistré le remplissage des cases.
Donc je mets les chiffres de 1 a 7 dans les cases A1 à A7 et dans A8 je crée un menu déroulant qui prend comme argument les colonnes précédentes.
Ok ca marche impec !  
Ensuite je tente de faire la meme chose avec l'enregistrement de la macro et la pu rien :/  
erreur d'execution 1004 => erreur définie par l'application ou par l'objet
 
code :


    ActiveCell.FormulaR1C1 = "1"
    Range("A2" ).Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A3" ).Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A4" ).Select
    ActiveCell.FormulaR1C1 = "4"
    Range("A5" ).Select
    ActiveCell.FormulaR1C1 = "5"
    Range("A6" ).Select
    ActiveCell.FormulaR1C1 = "6"
    Range("A7" ).Select
    ActiveCell.FormulaR1C1 = "7"
    Range("A8" ).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=L1C1:L7C1"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub


 
Voila merci pour les aideurs et les aideurs des aideurs !
 

mood
Publicité
Posté le 24-05-2005 à 13:38:12  profilanswer
 

n°1094880
rours
Posté le 24-05-2005 à 13:42:17  profilanswer
 

j 'ai pas compris ce qui marchais et ce qui ne marchais pas :(, pourrais tu re expliquer?

n°1094904
mbl
Posté le 24-05-2005 à 13:53:11  profilanswer
 

J'explique trop bien :)
Disons que lorsque tu crées le menu déroulant sous excel (selection de cellules => Données => Validation => Liste => Séléction source) ca marche et quand grace a l'enregistrement de cette opération tu tentes de lancé la macro retourné, ca sort l'erreur ci-dessus...
 \o/ EXCEL \o/

n°1094923
rours
Posté le 24-05-2005 à 14:02:59  profilanswer
 

haa oki
 
bon premiere chose,  il faut savoir que l'on peu pas aller bien loin avec les macro "automatique".
bon je test ton truc parce que j'ai jamais fais des truc comme ça :)
 
mais c est pas mechant erreur normalement.

n°1094939
mbl
Posté le 24-05-2005 à 14:11:06  profilanswer
 

Clair que les macro automatique c'est pas trop ca mais ca depanne pas mal pour des trucs qui sont pas trop traités sur le net(genre les menu déroulants en vb sous excel).
Enfin bon merci :)
C'est une des dernieres étapes de mon truc donc j'aimerais que ca marche :p

n°1094945
rours
Posté le 24-05-2005 à 14:15:12  profilanswer
 

hm    bah le probleme c'est que je ne comprend pas trop la partie de code qui provoque l erreur,  il faudrait peut etre faire une autre methode si personne d'autre ne te repond,  à quoi va te servir cette liste?  car il y a d'autre moyen d'avoir une liste deroulante

n°1094988
mbl
Posté le 24-05-2005 à 14:32:13  profilanswer
 

Euh bah juste a mettre deux valeurs dans la case :)  
Vraiment le truc tout bete. Disons que c'est pour éviter que les gens qui utiliserons le programme marquent des trucs fantaisistes :)  
Donc le menu déroulant (qui doit forcemment etre une cellule de la feuille prédéfinis) doit avoir deux choix dans le menu.

n°1095019
rours
Posté le 24-05-2005 à 14:45:17  profilanswer
 

:'( franchement je ne sais pas trop,   moi excel ne me sert que à garder des donnée dans des tableaux, je fais tout en vba avec des userform etc ...     et vu que tu a l'air de vouloir absolument que ton menu soit doit une cellule ...
 
je vais tenter vite fait si j'ai le temps

n°1095044
mbl
Posté le 24-05-2005 à 14:55:54  profilanswer
 

Bah c'est pas moi qui veut, c'est le grand mr qui donne l'argent :/

n°1095214
AlainTech
Pas trouvé? Cherche encore!
Posté le 24-05-2005 à 16:23:15  profilanswer
 

Voila ta formule corrigée:

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=$A$1:$A$7"


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
mood
Publicité
Posté le 24-05-2005 à 16:23:15  profilanswer
 

n°1095358
mbl
Posté le 24-05-2005 à 17:50:36  profilanswer
 

Merci msieur ! je l'essayerai demain matin en arrivant ^^

n°1095837
mbl
Posté le 25-05-2005 à 08:13:36  profilanswer
 

rolalala ca marche pas :(  
Parce que en plus il faut compter sur l'incompatibilité des versions ....  
La je suis sous office 97 et visual basic jesaispascombien.
Tres enervant mr microsoft !
 
edit :  
Si je remplace la plage de cellule par une chaine de caractere ca passe impec(seul probleme je peux mettre qu'un seul choix ...)


Message édité par mbl le 25-05-2005 à 08:15:55
n°1097244
AlainTech
Pas trouvé? Cherche encore!
Posté le 25-05-2005 à 20:31:40  profilanswer
 

J'avais aussi fait le test sous Excel 97...
 
Et, bien évidemment, chez moi, ça fonctionne...


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
n°1097518
mbl
Posté le 26-05-2005 à 08:08:49  profilanswer
 

Je sais que pendant un moment ca a marché puis tout a coup sans aucune raison il a refusé de le faire ...
 
 
edit : en plus quand je compile, il trouve pas l'erreur ...


Message édité par mbl le 26-05-2005 à 08:14:42
n°1097565
AlainTech
Pas trouvé? Cherche encore!
Posté le 26-05-2005 à 09:17:15  profilanswer
 

mbl a écrit :

Je sais que pendant un moment ca a marché puis tout a coup sans aucune raison il a refusé de le faire ...


Tiens, un ordinateur qui a des humeurs...??? :heink:  
 
En informatique, quand quelque chose se passe sans raison, il faut chercher la raison :whistle:


Message édité par AlainTech le 26-05-2005 à 09:17:45

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
n°1097666
mbl
Posté le 26-05-2005 à 10:29:24  profilanswer
 

oui c'est sure mais je vois vraiment pas c'est une partie de code indépendant que j'ai pas touché depuis un moment qui marchait et pis un jours comme ca le debuggeur me fait "AH BAH NAN CA MARCHE PAS TON TRUC LA !"(sisi c'est ses mots).
Enfin bon en tant que programmeur hors pair j'ai contourné le probleme ^^
Et le probleme vient vraiment de la formulation des plages de cellules. Parce que la maintenant en mettant :
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="Terminé"
Bah ca tourne correctement...

n°1727493
toto1982
Posté le 02-05-2008 à 09:09:01  profilanswer
 

Bonjour, j ai cree un menu deroulant avec des vlookup qui decoulent du nom choisi ds le menu deroulant.
Mon pb: certaines des valeurs choisies ds le menu deroulant renvoient #N/A, ce qui signifie qu Excel ne trouve pas la valeur. Any idea ?
Merci bcp  


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

  menu déroulant vba => excel

 

Sujets relatifs
ecrire dans un fichier excel existant avec phpPoids de Graph EXCEL dans un .doc Word
menu en flash qui s'anime mal[Excel VBA] Groupe de contrôle sans nom (?!)
Exécuter une macro Ms Project depuis Excelgénérer un fichier excel en php sous apache
renommer automatiquement une case dans un fichier Excelpb de menu déroulant dans Excel
Creer un menu déroulant Excel[Excel] Tomic foireux du vendredi AM :Faire un menu déroulant
Plus de sujets relatifs à : menu déroulant vba => excel


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