Il faut respecter le nom des entêtes c'est pour cela que ça ne fonctionne pas.bonsoir
le problème que le filtre entre deux date ne marche plus
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
Target.Offset(-1, 0) = ">=" & Target.Value2
End If
If Not Intersect(Target, Range("B5")) Is Nothing Then
Target.Offset(-1, 0) = "<=" & Target.Value2
End If
End Sub
Ma phrasej'ai testé ton code il ne renvoie pas le bon résultat
aurait du vous aiguiller : avec cette inversion des colonnes j'ai mal précisé la zone de critèresJ'ai ajouté les champs nécessaires sous le bouton (à replacer)
Bonjour Chris,Bonjour à tous
Ma phrase
aurait du vous aiguiller : avec cette inversion des colonnes j'ai mal précisé la zone de critères
Il suffit de remplacer A3:E4 par C3:G4
Re, merci de m'avoir orienté.RE
Non comme je l'ai dit j'ai ajouté 2 formules en F et G, à masquer par le bouton, pour remplacer A et B non utilisables en l'état
Si tu testes mon code, il fonctionne
Ce qui m'a induit en erreur, c'est le '#NOM
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
Sheets("statistique").Unprotect Password:="Destin0931"
Target.Offset(-1, 0) = ">=" & Target.Value2
End If
If Not Intersect(Target, Range("B5")) Is Nothing Then
Sheets("statistique").Unprotect Password:="Destin0931"
Target.Offset(-1, 0) = "<=" & Target.Value2
Sheets("statistique").Protect Password:="Destin0931"
End If
End Sub
=@Date<=SI($B$4="";9^9)
Bonjour merci mai ça marche plusBonjour
Dans mon cas, remplacer la formule en G4 parVB:=@Date<=SI($B$4="";9^9)
=@Date<=SI($B$4="";9^9;$B$4)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A5")) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(-1, 0) = ">=" & Target.Value2
Else
Target.Offset(-1, 0) = ""
End If
End If
If Not Intersect(Target, Range("B5")) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(-1, 0) = "<=" & Target.Value2
Else
Target.Offset(-1, 0) = ""
End If
End If
End Sub