Si pas de commentaire ne pas exécuter

Bonsoir , j'ai une function qui récupère des horaires dans des commentaires .

S'il n'y a pas de commentaires dans les cellules contrôlées j'ai cette erreur : variable objet ou variable de bloc with non définie.

[code][Function DernRentre(sVal As String) As Date

Dim Rng As Range, CelF As Range, Spl() As String

Set Rng = Range("C:C,H:H,M:M,R:R")

Application.Volatile

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

Spl = Split(CelF.Offset(0, -1).Comment.Text, "Rentre: ")' Eclate en tableau de String le texte du commentaire en prenant "Rentre: " comme chaine séparatrice

DernRentre = CVDate(Left$(Spl(UBound(Spl)), 5)) ' Renvoie la conversion en un temps des 5 1ers caractères du dernier élément du tableau

End If

End Function

/code]

Merci pour votre aide

Salut le forum

Teste la présence du commentaire

    If ActiveCell.Comment Is Nothing Then
        MsgBox "pas de commentaire sur la cellule"
    Else
        MsgBox "commentaire présent"
    End If

Mytå

Bonjour , je devrais mettre ce code

If ActiveCell.Comment Is Nothing Then Exit Function

    End If

Je testerais ça ce soir

Re le forum

Sans connaitre ton fichier

Function DernRentre(sVal As String) As Date
  Dim Rng As Range, CelF As Range, Spl() As String
    Set Rng = Range("C:C,H:H,M:M,R:R")
    Application.Volatile
    Set CelF = Rng.Find(What:=sVal, LookIn:=xlValues, LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
    If Not CelF Is Nothing Then
      If CelF.Offset(0, -1).Comment Is Nothing Then Exit Function
        Spl = Split(CelF.Offset(0, -1).Comment.Text, "Rentre: ")
        DernRentre = CDate(Left$(Spl(UBound(Spl)), 5))
    End If
End Function

Mytå

Bonsoir , Myta sans vous je serais toujours en galère : j'essaye d'adapter des codes en essayant de comprendre . Parfois ça fonctionne ,d'autre pas.

Encore Merci