Traitement de tableau Excel en VBA
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:
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 |
