Discussion :

[meryem85]

Bonjour,

j'essaie de créer un formulaire sur excel qui permet de faire une recherche.
voila le code que j'ai mis derriére le bouton de validation:

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
Private Sub CommandButton1_Click()
Dim a As Variant
Dim b As Variant
Dim n As Integer
Dim x As Integer
Dim trouvé As Boolean
 
ActiveSheet.Rows.Hidden = False
For n = 1 To 4
  If Controls("ComboBox" & n) <> "" Then
    For x = 3 To Application.ActiveSheet.Range(Cells(65536, CInt(Controls("ComboBox" & n).Tag)).Address).End(xlUp).Row
      a = CStr(Cells(x, CInt(Controls("ComboBox" & n).Tag)))
      b = Controls("ComboBox" & n).Value
 
    If Not a Like "*" & b & "*" Then
    ActiveSheet.Rows(x).Hidden = True
    Else
    trouvé = True
    End If
    Next x
  End If
Next n
If Not trouvé Then MsgBox ("Pas trouvé")
End Sub

j'ai une liste déroulante qui permet de choisir les valeurs souhaitées.

le probléme c'est que excel me dit que j'ai une incompatibilité de type sur la ligne suivante:

Code :

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

For x = 3 To Application.ActiveSheet.Range(Cells(65536, CInt(Controls("ComboBox" & n).Tag)).Address).End(xlUp).Row

merci de me dire si c'est possible c'est quoi l'erreur dans ce code.

Merci pour votre aide

[ucfoutu]

Bonjour,

Je me dis qu'un simple :

Code :

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

MsgBox Cells(65536, CInt(Controls("ComboBox" & n).Tag)).Address)

devrait te permettre de localiser ton erreur ....
J'ai tort ?

[meryem85]

Bonjour,

merci pour ta reponse. J'ai reussi à trouver l'erreur c'est la propriété

Code :

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

.tag

qui ne marche pas avec les combobox ça marche que avec les textbox.

vous n'auriez pas un propriété qui permet de faire la même chose mais avec des combobox.

merci pour votre aide