rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

VBA Excel : ComboBox

louis, le mercredi 11 juin 2008 à 09:07:23
Bonjour,

Mon problème est simple. Je souhaite créer un nombre précis de ComboBox, d'après un nombre que j'entre dans une feuille. Jusque là ça va. Le truc c'est que j'aimerais numéroter ces ComboBox (c'est-à-dire leur donner des numéros qui se suivent de 1 à n), ce que ma macro actuelle semble faire de manière aléatoire. Merci de votre aide.

Sub CréaComboBox()

Dim NombAn, NombComm As Integer
' NombComm = nombre de commerciaux
' NombAn = nombre d'années étudiées

Worksheets("Hypothèses_Comm").Select
NombComm = Cells(3, 4).Value
NombAn = Cells(4, 4).Value
' Récupère les données dans la feuille "Hypothèses_Comm"

For i = 1 To NombComm
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=263.25, Top:=(64 + 31.75 * (i - 1)), Width:=138.75, Height:= _
18).Select
Next
' Crée une Combobox pour chaque commercial

End Sub
Configuration: Windows XP
Internet Explorer 7.0
Répondre à louis  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
onesdf, le mercredi 11 juin 2008 à 09:24:51
As-tu essayé ceci : 
For i = 1 To NombComm
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=263.25, Top:=(64 + 31.75 * (i - 1)), Width:=138.75, Height:= _
18).Select
Selection.Name = "ListeChoix" & i
Next
' Crée une Combobox pour chaque commercial
   
Répondre à onesdf

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
louis, le mercredi 11 juin 2008 à 09:31:27
Merci beaucoup, ça résoud le problème !
   
Répondre à louis

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 kamal1983, le jeudi 12 juin 2008 à 12:01:40
Bonjour a toutes et a tous,




j'ai une fonction qui fait le lien entre vba et la table"stock" d'access,la voici :


fpubDBConnect
vpubDBRecordset.Open ("SELECT * FROM stock WHERE ID =" & CInt(txtID)), vpubDBConnection, adOpenDynamic, adLockOptimistic
With vpubDBRecordset





End With
vpubDBRecordset.Close



je veux en effet créer une commande vb qui fera le tri pour la table "stock" par ordre decroissant de la valeur du champ 1. est ce que qulqu'un sait comment résoudre ce gros probléme , je ne sais pas si il existe une solution ou pas pour ce probléme, mais moi je compte sur vos talents les amis !

merci pour votre réponse
   
Répondre à kamal1983
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Ms Word Excel Cracker 2.2Ms Word Excel Cracker - Ms Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls...Catégorie: Suite bureautique
Licence: Freeware/gratuit
Télécharger ConnectCode Free Excel Training 1.01ConnectCode Free Excel Training - Office Excel est un incontournable quand on utilise Windows comme l'est Word. Néanmoins son utilisation n'est pas des plus...Catégorie: Bureautique
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « VBA Excel : ComboBox »