Discussion :

[Pabri]

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

[Invité]

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 ?

[boisgontierjacques]

Bonjour,

Pour ajouter une ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pabri]

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.

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pabri]

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