Bonjour,
Autre petit problème.
J'essaye avec le code suivant de sauver la date de mise à jour d'une cellule faisant partie d'un tableau Excel
Tout fonctionne correctement sauf lorsque je veux insérer une nouvelle ligne dans le tableau. A ce moment, je reçois une "Erreur 13 incompatibilité de type"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Tablo As ListObject
Set Tablo = Feuil3.ListObjects("Checkliste")
With Tablo.ListColumns("Statut")  ' la colonne dont l'en-tête s'appelle "Statut"
MsgBox Tablo.ListColumns("Statut").DataBodyRange.Address
            End With
 
     If Not Application.Intersect(Target, Range(Tablo.ListColumns("Statut").DataBodyRange.Address)) Is Nothing Then
 
    If Target.Offset <> "" Then
     Target.Offset(0, 1) = Date
     End If
 
End If
End Sub