Selectionner contenu un liste deroulante par le numero'List item' VBA ou Visual Basic

[ramdan]

Dans la feuille Excel ( Cells (1,1) ou Range ("A1")

Voici les infos contenues dans les listes déroulantes :
1 = Voiture
2 = Moto
3 = Transports


J’ai un problème avec les listes déroulantes sous Excel.

Comment on fait à partir de VBA sélectionner le N°2 (Moto) dans la liste déroulante automatiquement.

je souhaite sélectioner seulement par le numéro (exemple 1 ou 2 ou 3) et non pas par le texte

ActiveSheet.Range("A1").List(2).Select=True
Ne fonction pas !!

Merci de votre aidel

 

[Banzai64]

Re : Selectionner contenu un liste deroulante par le numero'List item' VBA ou Visual

Bonjour

Un essai à adapter

Un site à visiter

Formation Excel VBA JB

 

[Pierrot93]

Re : Selectionner contenu un liste deroulante par le numero'List item' VBA ou Visual

Bonjour,

pas sûr d'avoir tout compris, mais regarde le code ci-dessous :

ComboBox1.ListIndex = 0

A noter l'index du 1er élément est 0...

bonne journée
@+

 

[ramdan]

Re : Selectionner contenu un liste deroulante par le numero'List item' VBA ou Visual

Non cela fonction pas !!



Car le pilote excel via visuale basic voir les codes :

Dim appxls As Application
Dim book As Workbook
Dim excelfile As String

'Ouverture de l'application et du classeur

Set appxls = New Excel.Application ' .Application

appxls.Visible = True
excelfile = "c:\FileExcel\AF.xls" ' OpenFichierExcel.FileName
Set book = appxls.Workbooks.Open(excelfile, , True)

appxls.ActiveSheet.Range("A1").List(2).Select=True ' Ne fonction pas !!!!!!!!!!!
'Pour quitter l'application
'book.Close (True, , )
'appxls.Quit()

Pour info : dans fichier excel il y a pas de ComboBox.