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