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
Partager