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

vgendron

XLDnaute Barbatruc

• 27 Juillet 2016

• #2

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..

Code:

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

 

Vote positif 0 Vote négatif

O

overcride

XLDnaute Nouveau

• 27 Juillet 2016

• #3

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" 🙂.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 27 Juillet 2016

• #4

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

 

Vote positif 0 Vote négatif

O

overcride

XLDnaute Nouveau

• 27 Juillet 2016

• #5

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

Bonne fin de journée.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 27 Juillet 2016

• #6

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.

 

Pièces jointes

• Inventaire2 - Copie.xlsm

  32 KB · Affichages: 56

Vote positif 0 Vote négatif

O

overcride

XLDnaute Nouveau

• 27 Juillet 2016

• #7

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

 

Vote positif 0 Vote négatif