Reprise de formule lors de l'insertion automatique de ligne

Bonjour tout le monde,

J'aimerais savoir si il est possible de reprendre toutes les formules d'un tableau lors de l'insertion automatique d'une ligne supplémentaire sans devoir la saisir dans le code VBA?

Merci pour votre aide

Léandre

Bonjour

Un essai :

Une fois avoir inséré ta ligne (en dessous), pour une formule dans cellule B

Range("B" & ActiveCell.Row - 1 & ":B" & ActiveCell.Row).FillDown

Amicalement

Nad

Nad a écrit :

Bonjour

Un essai :

Une fois avoir inséré ta ligne (en dessous), pour une formule dans cellule B

Range("B" & ActiveCell.Row - 1 & ":B" & ActiveCell.Row).FillDown

Amicalement

Nad

Hello, magnifique, ça fonctionne parfaitement et je t'en remercie..

J'ai recopié la ligne pour chaque cellule contenant une formule, sais-tu si dans une seule formule je peux intégrer toutes les cellules avec formule? du genre "A:B:E"

Bonne journée

dee a écrit :

Nad a écrit :

Bonjour

Un essai :

Une fois avoir inséré ta ligne (en dessous), pour une formule dans cellule B

Range("B" & ActiveCell.Row - 1 & ":B" & ActiveCell.Row).FillDown

Amicalement

Nad

Hello, magnifique, ça fonctionne parfaitement et je t'en remercie..

J'ai recopié la ligne pour chaque cellule contenant une formule, sais-tu si dans une seule formule je peux intégrer toutes les cellules avec formule? du genre "A:B:E"

Bonne journée

J'ai parlé trop vite.. ça ne fonctionne pas pour toute les parties du tableau.. je vais regarder ça de plus près... et surtout tout contrôler avant de me réjouir..

Merci

Bonjour,

Alors on dirait que ça fonctionne tant qu'il n'y a pas de ligne vide dans le tableau.. du genre:

Ligne 5 remplie

formule ok

formule ok

formule ok

Ligne vide

ligne vide

Ligne 11 remplie

formule KO...

voilà, si vous avez une idée c'est avec plaisir..

Bonne journée

Re

Effectivement, le code recopiant la ligne du dessus, si cette ligne est vide ça ce peut pas fonctionner.

Une idée: prépare en ligne 1 les formules dans les cellules désirées (tu pourras masquer cette ligne 1)

Il suffit de copier la ligne 1 dans la ligne insérée

Range("A1:F1").Copy Range("A" & ActiveCell.Row)

Dis-moi si ça te convient

EDIT : je n'avais pas vu ton fichier ; je l'ouvre et regarde si je peux adapter ce que je viens de te proposer

Re

Ca semble OK

Nad

Re bonjour Nad,

J'y suis arrivé et sans ton aide jamais je n'y serais arrivé. Merci bien et bonne continuation.

Excellent week-end à tous.

Léandre