[VBA|E-03] Fonction recherche à partir d'un combobox

Bonjour,

Malgré quelques recherches, je ne trouve pas la réponse à mon propblème (si simple v_v)

J’ai créé un userform afin d’atteindre une cellule à partir de la valeur présente dans le combobox…

Voici ma partir de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub UserForm_Initialize()   'initialisation de mon userform   Dim nb_ max, i As Variant   nb_ max = 100   For i = 4 To nb_rh_max + 4 - 1 UserForm1.ComboBox1.AddItem Workbooks("truc.xls").Sheets("machin").Cells(i, 1).Value Next i     End Sub   Private Sub CommandButton1_Click()   'macro de recherche / atteindre (mon problème :p)   Selection.Find(What:=UserForm7.ComboBox1.Value).Select     UserForm1.Hide     End Sub     Private Sub CommandButton2_Click()   'ça, on s’en fou un peu UserForm7.Hide   End Sub

---

Le problème est que je n’utilise pas la bonne fonction où alors que je n’ai pas défini de plage…

La solution est certainement anodine mais je suis toujours un vrai noob v_v

Merci de votre aide et bonne journée

Résolu et tout seul en plus...

J'ai juste créer un topic pour rien :yaisse2:

La solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click()   'macro de recherche / atteindre 'ajout d'un Range et recherche par TextBox     Sheets("machin").Range("A15:A3206").Select Selection.Find(What:=UserForm1.TextBox1.Value).Select       UserForm1.Hide     End Sub

---

++

DVano

Je vois 2 problèmes:

Citation:

---

Envoyé par DVano

Code:

---

1 2 3 4 5 6 7

Dim nb_ max, i As Variant nb_ max = 100 For i = 4 To nb_rh_max + 4 - 1 UserForm1.ComboBox1.AddItem Workbooks("truc.xls").Sheets("machin").Cells(i, 1).Value Next i

---

---

Ton nb_rh_max, je ne le vois déclaré et rempli nulle part... :roll:
De plus, ce qui ne gêne pas au niveau du fonctionnement, mais que certains définiraient comme une erreur fondamentalement grave, c'est que tu as déclaré i comme étant un Variant. or là vu comment tu t'en sers, tu ferais mieux de le déclarer comme étant un Integer. Pareil pour nb_max qui a été déclaré implicitement comme étant un Variant et que tu devrais aussi déclarer comme étant un Integer: je te rappelle que tu dois préciser le type de chacune de tes variables une à une, et non pas avec un seul type pour une ligne. Ca marche pas comme en C/C++ la déclaration de variables en VB/VBA. ;)

Deuxièmement:

Citation:

---

Envoyé par DVano

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() 'macro de recherche / atteindre (mon problème :p) Selection.Find(What:=UserForm7.ComboBox1.Value).Select UserForm1.Hide End Sub

---

---

Pas besoin de commentaire... :P

Ce sont juste des problème de copié/collé ;)

Merci pour la remarque :king: