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
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
A voir également:
- Macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro souris ✓ - Forum Windows
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
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 :
Placer la valeur du Combobox (liste déroulante) dans la feuille, en cliquant sur un bouton de commande :
Pour chercher une valeur dans ta base de données (ça peux servir), tu peux, entres autres, utiliser la méthode .find :
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
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.
Un grand merci.
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
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.