Macro

Fermé
jules - 17 avril 2011 à 20:07
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 18 avril 2011 à 10:40
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
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
18 avril 2011 à 08:55
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
0
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.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
18 avril 2011 à 10:40
Je ne ferais pas ce devoir à ta place. Je veux bien t'aider à résoudre quelques unes de tes interrogations, mais c'est tout... Par contre, je travaille sous excel 2003 et donc je ne peux pas lire ton fichier .xlsm. Enregistre le en format 97-2003.
0