Problème de recherche avec critère venant d'une combobox [Résolu]

[chyanon]

Bonjour,

J'ai un petit souci sur une fonction recherchev qui a pour critère la saisie en cours d'une Combobox.

Pour résumer:

Sur feuille "AME", j'ai un listing d'appareils. (Colonne A: La REF de l'appareils; Colonne B à F: Marque, type .etc)
J'ai créé un USERFORM de saisie des appareils à enregistrer.
Le Combobox3 sert à sélectionner l'appareil
Et j'ai plusieurs Textbox protégés en écriture pour pouvoir lire les informations de mon appareil avant de l'enregistrer.
Pour l'instant, j'ai réussi a remplir ma Combobox avec toutes les références de la colonne A (sheets"AME" ), quand je sélectionne une valeur dans la Combobox
j'ai immédiatement les informations de mon appareils dans les Texbox en consultation.
Jusque là, tout va bien, et je suis même très contant.

Mon problème:

Quand je veux saisir un appareil qui n'appartient pas à la Combobox, ma macro plante (Erreur d'exécution 91) !
Ma macro doit chercher dans la feuille mais ne trouve rien.
J'aimerai occasionnellement pouvoir saisir un nouvel appareil même si il n'est pas référencé dans la feuille AME.
Comment puis-je résoudre ce problème?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ComboBox3_Change() 
 
Dim a1 As Integer 
Dim cherche1 As String 
Sheets("AME" ).Select 
cherche1 = ComboBox3.Value 
 
a1 = Sheets("AME" ).Cells.Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row 
TextBox9 = Range("A" & a1).Offset(0, 1).Value 
TextBox10 = Range("A" & a1).Offset(0, 2).Value 
TextBox11 = Range("A" & a1).Offset(0, 3).Value 
TextBox12 = Range("A" & a1).Offset(0, 4).Value 
TextBox13 = Range("A" & a1).Offset(0, 5).Value 
 
End Sub

Merci d'avance à tous ceux qui auront le courage de me lire.

[Pierre Fauconnier]

Bonjour et bienvenue.

Passe par un objet typé Range

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim cherche1 As String 
dim Cellule as range
 
Sheets("AME" ).Select 
cherche1 = ComboBox3.Value 
 
set cellule =  Sheets("AME" ).Cells.Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext)
if not cellule is nothing then
    TextBox9 = cellule.Offset(0, 1).Value
    ...
End If

[chyanon]

Merci !!!!
C'est super sympa !

Ma macro ne plante plus !

Par contre, quand je sors de la combobox apres avoir saisie une valeur qui n'appartient pas à la liste j'ai un message qui me dit:
"Attention: Valeur de propriété non valide"
Y a-t-il moyen de l'accepter même si elle ne va rien chercher dans la feuille AME ?

Je pose la question par curiosité car la réponse convient à mon application!

Ca fait 12 ans que j'utilise Excel dans mon cadre professionnel et ça fait seulement 10 jours que je m'interesse au VBA !

Merci encore !

[Pierre Fauconnier]

Dans le cas où on ne remplit pas la combobox, VBA cherche à attribuer à une variable typée string la "valeur" Null. Or, on ne peut affecter Null qu'à une variable typée Variant, d'où la levée d'une erreur.

Tu peux donc tester la valeur de Combobox3

Code :

1
2
3
4
5
if not isnull(combobox3.value) then
    cherche1= ...
    set cellule=...
    ...
End if

si tu ne veux pas de message d'erreur ou d'alerte, sinon, tu peux utiliser un else

Code :

1
2
3
4
5
6
7
if not isnull(combobox3.value) then
    cherche1= ...
    set cellule=...
    ...
    else
    msgbox "Vous n'avez pas saisi de valeur", vbexclamation,"Erreur de saisie"
End if

[chyanon]

Merci

J' ai adapté le message a mon besoin et c'est nickel !!!

C'est mon premier FORUM et je peux dire que je risque d'y prendre goût !
Ca fait trois jours que je cherche une solution et en 30 min j'ai une reponse.

Excellent!
Bonne soirée