Erreur code VBA

bonjour

voici

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'recuperer tableau
If Target.Column < 2 Or Target.Column > 8 Or Target.Row < 19 Or Target.Row > 24 Then Exit Sub
If Target.Value = 0 Then Exit Sub
'MsgBox Left(Target.Value, 2)

'recuperer la date de la cellule du double-clic
ladate = DateValue(Replace(ActiveSheet.Range("B7"), "Date : ", "")) + Left(Target.Value, 2) - 1

'parametrer le tableau
Dim letableau As ListObject
Set letableau = Worksheets("PLANIFICATION").ListObjects("tab_Event")



If Len(Target.Value) = 7 Then


Else

letableau.DataBodyRange().Find(ladate).Offset(0, 3).ClearContents

End If

End Sub

erreur dans mon code en jaune, qui sert a supprimer

merci pour votre retour

Bonjour,

Vous n'êtes pas nouveau sur le forum. Pensez à utiliser les balises de code en cliquant sur l'icône (</>) disponible dans la barre de menu lorsque vous postez un code dans votre demande.

Pour votre demande, la date vous la cherchez où dans votre feuille planification ? en colonne 3 du tableau structuré ?

Re

Fil clos sans commentaires ??