affiché un chiffre venant d'excel sur un txt..

Question

Bonjour,

J'aimerais qu'on m'explique comment je peux faire afficher un chiffre(prix) en fonction de quelque chose qu'on choisit dans une combo ? je ne sais pas si je suis assez clair??
Donc disons que je s&#233;lectionne fromage dans ma combo et que le prix s'affiche dans ma zone texte &#224; c&#244;t&#233;? tout &#231;a venant d'un fichier excel?
Merci d'avance pour votre aide!

Diegoch · Answer

Disons que ta liste de fromage se trouve entre A1 et A4 et que tes prix entre B1 et B4 ; et que tu as un controle combo1 :

Private Sub Form_Load()
    Dim XL As Object
    Set XL = CreateObject("Excel.Application")
    XL.workbooks.open "fromage.xls"
    
    With Combo1
    .Clear                              'efface tout le contenu du controle
        For i = 1 To 4
            .AddItem XL.Range("A" & i).Value
        Next i
    .ListIndex = -1                'le combobox affiche par defaut une ligne vide
    End With
End Sub

Une fois ceci r&#233;alis&#233;, tu n'a plus qu'&#224; rechercher dans ta colonne "A" l'item selectionn&#233; { Combo1.List(Combo1.ListIndex) }, et a faire afficher dans ton controle text1 la valeur qui se trouve dans la colonne B { .offset(0,1) }  //offset(ligne, colonne).

Bon prog .

Affiché un chiffre venant d'excel sur un txt..

1 réponse

Discussions similaires