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