Bonjour , j'ai cette fonction à améliorer :
Sur la valeur trouvée il faudrait appliquer les formats de police et fond de cellule.
Merci pour votre aide
Sur la valeur trouvée il faudrait appliquer les formats de police et fond de cellule.
Code:
Function ChercheTrain(sVal As String)
Dim Rng As Range, CelF As Range
Set Rng = Range("H:H,P:P,X:X,AF:AF")
Application.Volatile
'On Error Resume Next
Set CelF = Rng.Find(What:=sVal, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
' si une valeur est trouvée
If Not CelF Is Nothing Then
ChercheTrain = CelF.Offset(0, -6).Value
' Mettre la valeur ainsi que ses formats police et fond de cellule
If CelF.Offset(0, -5).Value = "" Then ChercheTrain = ""
End If
End Function
Merci pour votre aide