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"
A savoir, la colonne "Statut" du tableau est une liste de valeur.

Merci d'avance pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tablo As ListObject
Set Tablo = Feuil3.ListObjects("Checkliste")
With Tablo.ListColumns("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