Agrandir un tableau automatiquement

[Floriane]

Bonjour,

Je voulais savoir s'il été possible de faire en sorte que les lignes de mon tableau s'ajoute automatiquement lorsque qu'il n'y en a plus de vierge ? Et quand je change de page que les titres de colonne se mettent tout seul aussi ?

Merci d'avance

Le fichier ci-joint

Floriane

 

[sylvain348]

Re : Agrandir un tableau automatiquement

Bonjour,

Je me suis servi d'un des tableaux que j'ai récupérer sur votre forum pour créer le miens.
Mais j'ai un souci avec la macro qui rajoute des ligne.
En effet je souhaite verrouiller certaine case pour que l'on ne puisse pas les modifier mais une fois la feuille protéger la macro ne marche plus.

Je vous joins mon fichier.

Qq'un pourrait me venir en aide??

merci

 

[sylvain348]

Re : Agrandir un tableau automatiquement

personne pour m'aider ??

 

[DoubleZero]

Re : Agrandir un tableau automatiquement

Bonjour à toutes et à tous,

Bienvenue sur XLD, sylvain348.

Peut-être en modifiant le code comme suit :

Sub Ligne_insérer()
Dim INSERER As Range '
Dim PlageFormules As Range
Sheets("Devis").Unprotect 'protection retirer
Set DerLi = Range("INSERER")
DerLi.Insert Shift:=xlDown
Set PlageFormules = Range(DerLi.Cells(DerLi.Cells.Count).Offset(-2, -1), DerLi.Cells(DerLi.Cells.Count).Offset(-2, 0))
PlageFormules.AutoFill Destination:=PlageFormules.Resize(2, 2), Type:=xlFillDefault
Sheets("Devis").Protect 'protection appliquer
End Sub

A bientôt

 

[sylvain348]

Re : Agrandir un tableau automatiquement

Super merci Bcp!! Ca marche!