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:
j'ai une liste déroulante qui permet de choisir les valeurs souhaitées.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 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
le probléme c'est que excel me dit que j'ai une incompatibilité de type sur la ligne suivante:
merci de me dire si c'est possible c'est quoi l'erreur dans ce code.Code:For x = 3 To Application.ActiveSheet.Range(Cells(65536, CInt(Controls("ComboBox" & n).Tag)).Address).End(xlUp).Row
Merci pour votre aide