Re : Problème de macro
Bonjour et merci mais cela ne fopnctionne pas voici ce que j'ai :
Private Sub Workbook_Open()
Dim CA As String
CA = InputBox("Entrer votre nom ou annuler", "Identification")
Echeance = InputBox("Entrer la date d'écheance maxi (jj/mm/aa):", "Date d'écheance")
If CA = "" Then
Call Initialise
Else
[F5] = CA
Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F4").Value & "*"
Selection.AutoFilter Field:=12, Criteria1:="<=" & Format(Echeance, "0")
Selection.AutoFilter Field:=15, Criteria1:="="
Selection.AutoFilter Field:=6, Criteria1:="*" & Range("F5").Value & "*"
Selection.AutoFilter Field:=15, Criteria1:="="
Range("F5").Select
Columns("B
").EntireColumn.Hidden = True
Columns("G:G").EntireColumn.Hidden = True
Columns("O:R").EntireColumn.Hidden = True
Columns("T:T").EntireColumn.Hidden = True
Rows("1:6").EntireRow.Hidden = True
Rows("2411:2545").EntireRow.Hidden = True
End If
End Sub