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

Merci d'avance pour votre aide.
Code:

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

Citation:

Envoyé par Pabri

Bonjour,

Si vous n'insérez pas une nouvelle ligne mais que vous saisissez votre valeur dans la colonne Statut après la dernière ligne du tableau, vous ne rencontrez pas ce problème. Une nouvelle ligne est intégrée au tableau et la cellule de la colonne Statut contient bien la liste de validation.

Confirmez-vous ?

Bonjour,

Pour ajouter une ligne:

Code:

1
2
Sheets("bd").ListObjects(1).ListRows.Add (1)       ' Ajout d'une ligne en position 1
Sheets("bd").ListObjects(1).ListRows.Add            ' Ajout d'une ligne en fin

Boisgontier

Bonjour Eric,

Oui c'est bien ca.
Mais j'ai le problème quand j'insère une ligne dans le tableau ou si je supprime une ligne.

boisgontierjacques
le but n'est pas t'insérer (ou supprimer) une ligne via le code VBA mais directement dans le tableau dans la feuille excel.

Merci déjà à vous deux.

Citation:

Envoyé par Pabri

Ci-dessous le code adapté de Jacques neutralisant l'événement sur l'onglet Feuil3 pour éviter l'erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Sub Test()
 
     With Feuil3.ListObjects("Checkliste")
          Application.EnableEvents = False
          '.ListRows.Add (1) ' Ajout d'une ligne en position 1
          .ListRows.Add ' Ajout d'une ligne en fin
          Application.EnableEvents = True
 
     End With
 
End Sub

Merci Eric.

Mais je pense m'être mal fait comprendre ou alors c'est moi qui ne comprend pas (ce qui est bien possible vu mon peu d'expérience en VBA)

En fait, je ne veux pas insérer (ou supprimer) de ligne par la procédure VBA (dans le code)

La procédure est juste censée mettre une date si une cellule d'une colonne d'un tableau (colonne "Statut") change.

L'insertion ou la suppression est censée se faire dans la feuille de façon manuelle (insert ligne de tableau)

Encore merci

Citation:

Envoyé par Pabri

Ok, alors il faut simplement appliquer le mode opératoire en #2 pour ajouter un enregistrement. Il vous faudra peut-être aussi trier votre tableau.

Pour info : Vous pouvez utiliser les événements Worksheet_BeforeDoubleClick, Worksheet_BeforeRightClick pour ajouter une ligne dans votre tableau.

Code:

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")
If Not Application.Intersect(Target, Range(Tablo.ListColumns("Statut").DataBodyRange.Address)) Is Nothing Then
    If Target.Count=1 Then
        If Target.Offset(0, 1) <> "" Then
            Application.EnableEvents = False
            Target.Offset(0, 1) = Date
            Application.EnableEvents = True
        End If
    End If
End If
Set Tablo = Nothing
End Sub

Génial Merci à tous