bjr;
svp j'aimerai appliquer ce code sur une feuille protegee
merci
j'ai mis un textbox sur ma feuille nommé : raison_sociale
Private Sub raison_sociale_Change()
If raison_sociale.Value <> "" Then
ActiveSheet.Range("A3:k3").AutoFilter Field:=3, Criteria1:="=*" & raison_sociale.Value & "*"
Else
ActiveSheet.Range("A3:k3").AutoFilter Field:=3
End If
End Sub
svp j'aimerai appliquer ce code sur une feuille protegee
merci
j'ai mis un textbox sur ma feuille nommé : raison_sociale
Private Sub raison_sociale_Change()
If raison_sociale.Value <> "" Then
ActiveSheet.Range("A3:k3").AutoFilter Field:=3, Criteria1:="=*" & raison_sociale.Value & "*"
Else
ActiveSheet.Range("A3:k3").AutoFilter Field:=3
End If
End Sub