XL 2010 [RESOLU]Erreur d'ajout automatique de ligne VBA

[overcride]

Bonjour,
Je travaille actuellement sur un fichier d'inventaire, j'aimerai pouvoir ajouter une ligne automatiquement lorsque je suis à la dernière ligne de mon tableau.
Mon code VBA fonctionne correctement dans une feuille simple, mais lorsque je l'utilise dans un tableau avec mise en forme automatique, j'ai un beau message d'erreur.

Erreur d'exécution 1004:
Le déplacement de cellules dans un tableau de votre feuille des calcul n'est pas autorisé.

Je joint mon fichier. Avez-vous une idée ?

Merci d'avance.

 

[vgendron]

Hello
Vu que tu utilises des tables. pourquoi ne pas profiter de leurs propriétés
à savoir. quand tu ajouttes une ligne, ca conserve les mises en forme..

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set tbl = ListObjects("Tableau2")
NbLigne = tbl.Range.Rows.Count
    If Not Application.Intersect(Target, Cells(NbLigne, "C")) Is Nothing Then

        Set tbl = ListObjects("Tableau2")

            Application.EnableEvents = False
            tbl.Resize tbl.Range.Resize(tbl.Range.Rows.Count + 1)

            Application.EnableEvents = True
    End If
End Sub

 

[overcride]

Merci pour ton aide, le problème c'est que de cette façon, ca ne me copie pas la formule colonne A. Ce n'est pas grave sur cette feuille mais c'est embêtant pour la feuille "données" .

 

[vgendron]

l'ennui. c'est qu'au sein de la meme table. tu as plusieurs formules..
la recopie automatique ne se fait visiblement QUE si il y a une seule formule

pourquoi ne pas utiliser plusieurs tables? une par produit: Ecran - UC - PC - VPI

 

[overcride]

Ok je vais réfléchir à tous ca, en tous cas, merci beaucoup pour ton aide.

Bonne fin de journée.

 

[vgendron]

Regarde la PJ pour exemple

en supposant que tu as une feuille d'inventaire par collège.
j'ai mis le nom du collège en A1
puis une formule dans la colonne (même si on pourrait trouver ca inutile)
et là, la recopie s'effectue bien

j'ai également séparé tes datas dans la feuille Données.. c'est juste un exemple.

 

[overcride]

Je ne l'avais pas vu comme ca, mais c'est une très bonne idée.
Merci.