Macro

Question

Bonjour, 

J'ai un gros gros problème. J'ai un devoir à rendre pour demain en excel et je n'arrive pas à mettre en relation ma base de donnée avec les choix que l'on peut faire dans mes listes déroulantes.
Merci de vos réponses

pijaku · Answer

Bonjour,
Trop tard pour le devoir? Désolé...
Au cas ou :
Remplir une combobox (liste déroulante) à partir de ta feuille :
Private Sub UserForm_Initialize()
Dim Lig As Integer
For Lig = 1 To Cells(65536, 1).End(xlUp).Row
    ComboBox1.AddItem = Cells(Lig, 1)
Next Lig
End Sub 
Placer la valeur du Combobox (liste déroulante) dans la feuille, en cliquant sur un bouton de commande :
Private Sub CommandButton1_Click()
Cells(11, 5) = ComboBox1
End Sub
Pour chercher une valeur dans ta base de données (ça peux servir), tu peux, entres autres, utiliser la méthode .find :
Sub cherche()
Dim Trouve As Range
Dim Valeur_cherchee As String
Valeur_cherchee = ActiveCell.Value 'ou ComboBox18.Value
    Set Trouve = ActiveSheet.Columns(1).Cells.Find(what:=Valeur_cherchee)
        If Trouve Is Nothing Then
            MsgBox "Pas trouvé"
        Else
            MsgBox Trouve.Address
        End If
Set Trouve = Nothing
End Sub

jules · Answer

Merci pour ta réponse Pijaku, cependant, comme je suis débutant en excel je n'ai pas vraiment compris ce que tu m'as dit de faire. Je te mets en lien mon projet. http://cjoint.com/?3DskiFAu4sF. Il faudrait donc qu'une fois tous les critères choisis, un résultat s'affiche pour donner au client le numéro de référence du véhicule qui est en stock et qui correspond à ses critères de recherche. Si tu pouvais donc me donner la marche à suivre, ça me sauverait du zéro.
Un grand merci.

Macro

2 réponses

Votre réponse

Discussions similaires

Newsletters