Discussion :

[sam38100]

voilà une série de ligne 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
Private Sub CommandButton1_Click()

    If OptionButton1.Value = True Then
    Range("C2:C5000").Select
        Selection.AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:=Sheets(Feuil1).resp.Value
        Selection.AutoFilter
    End If
    
    If OptionButton2 = True Then
    Range("D2:D5000").Select
        Selection.AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:=Sheets(Feuil1).ass2.Value
        Selection.AutoFilter
    End If
    
    If OptionButton3 = True Then
    Range("E2:E5000").Select
        Selection.AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:=Sheets(Feuil1).client.Value
        Selection.AutoFilter
    End If
    
Worksheets("feuil2").Visible = False
Unload UserForm1

End Sub

la ligne qui est en vert me bloque mon programme et me renvoi le message d'erreur suivant : Imcompatibilité de type

j'ai essayé de régler le problème mais sans succès,
Pourriez- vous m'aider????
merci d'avance

[bidou]

c'est sensé renvoyer quoi Sheets(Feuil1).ass2.Value ?

[alsimbad]

met les guillemets

Code :

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

1
2
 
Sheets("Feuil1")