Discussion :

[DVano]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DVano]

Résolu et tout seul en plus...

J'ai juste créer un topic pour rien

La solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[decondelite]

Je vois 2 problèmes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...
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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[DVano]

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

Merci pour la remarque