B
Bronson
Guest
Bonjour à tous,
J'ai écrit une f perso (voir ci-dessous) qui fonction ok quand je recalcule la sélection, mais qui remet tout à 0 lors du calcul du classeur.
Il me manque un épisode du film, à l'évidence!
Qq a une soluce..
D'avance merci
Function Gest_Dep_Prev(Date_rech, Banque)
Dim Resultat As Range, FormatDates, ATrouver As Long
On Error Resume Next
ATrouver = Date_rech.Value2
FormatDates = Sheets(1).Range("B7:K7").NumberFormatLocal
Sheets(1).Range("B7:K7").NumberFormat = "General"
Set Resultat = Sheets(1).Range("B7:K7").Find(ATrouver)
Sheets(1).Range("B7:K7").NumberFormatLocal = FormatDates
Gest_Dep_Prev = Resultat.Offset(1, 0).Value
End Function
J'ai écrit une f perso (voir ci-dessous) qui fonction ok quand je recalcule la sélection, mais qui remet tout à 0 lors du calcul du classeur.
Il me manque un épisode du film, à l'évidence!
Qq a une soluce..
D'avance merci
Function Gest_Dep_Prev(Date_rech, Banque)
Dim Resultat As Range, FormatDates, ATrouver As Long
On Error Resume Next
ATrouver = Date_rech.Value2
FormatDates = Sheets(1).Range("B7:K7").NumberFormatLocal
Sheets(1).Range("B7:K7").NumberFormat = "General"
Set Resultat = Sheets(1).Range("B7:K7").Find(ATrouver)
Sheets(1).Range("B7:K7").NumberFormatLocal = FormatDates
Gest_Dep_Prev = Resultat.Offset(1, 0).Value
End Function