XL 2013 Ajout de ligne avec agrémentation et recopie formule

[bobjazz]

Bonsoir le Forum

Mon souhait est d'ajouter une ligne à la fin du tableau en agrémentant la cellule A de la suite numérique et en gardant les formules,
Pour l'instant, avec la macro que j'ai fait, je clique sur la dernière cellule remplie et je lance la macro.
Mon souhait serait aussi est de lancer la macro avec un bouton.

Je joins un fichier plus parlant (j'ai raccourci le nombre des colonnes) et il y a la macro qui faut adapter.

Merci d'avance

Bobjazz

 

[Cougar]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonsoir bobjazz,

Ajoute ceci à ton code :

Range("a1000").End(xlUp).Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1

Cougar

 

[bobjazz]

Re : Ajout de ligne avec agrémentation et recopie formule

Merci Cougar

Je vais essayer au bureau

@+

Bojazz

 

[bobjazz]

Re : Ajout de ligne avec agrémentation et recopie formule

Re Cougar

J'ai une errue à :
ActiveCell = ActiveCell.Offset(-1, 0) + 1

Je dois coller où les lignes dans mon code.

Merci

Bobjazz

 

[JHA]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonjour à tous,

Je n'ai pas regardé la macro mais en mettant ton tableau en mode "Tableau" (Insertion/Tableau dans le ruban), toute ligne que tu insères sera identique aux autres. J'ai mis une formule pour calculer les lignes

JHA

 

[bobjazz]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonjour JHA

Je ne connais ce que tu as fait, mais je ne vois pas où aller voir

Merci

Bobjazz

 

[Cougar]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonjour bobjazz,

Voir le fichier joint.

Cougar

 

[JHA]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonjour à tous,

Il n'y a rien de plus que le mode tableau, utilises la touche tabulation quand tu es sur "L6" et excel ajoutera une ligne avec toutes les formules et formats des lignes précédentes.

JHA

 

[bobjazz]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonjour Cougar et JHA

Merci à vous deux, les 2 solutions fonctionnent.

Encore merci

Bobjazz

 

[bobjazz]

Re : Ajout de ligne avec agrémentation et recopie formule

Re Cougar

Cela fonctionne avec la copie jusqu'à la colonne 11.
Mon besoin étant jusqu'à la colonne 40, j'ai modifié dans le code et quand je lance la macro.
Je copie bien la ligne, mais elle s'arrête à la colonne 11 et ne recopie pas la mise en page et d'autres formules.
Je te fournit le fichier complet, je vais continuer à chercher.

Encore merci de ton aide

Bobjazz

 

[Cougar]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonsoir,

Voir le nouveau fichier.

Cougar

 

[bobjazz]

Re : Ajout de ligne avec agrémentation et recopie formule

Bonjour Cougar

Merci pour ton aide, cela fonctionne sur la ligne en gardant toutes les mises en formes, est-ce qu'il est possible de ne copier que les cellules qui ont une formule, en plus simple j'ai essayé de rajouter de codes pour effacer les cellules que je veux garder vides. (par exemple colonnes B, C, P et d'autres)

Encore merci

Bobjazz

 

[bobjazz]

Re : Ajout de ligne avec agrémentation et recopie formule

Re Cougar

J'ai trouvé, en cherchant j'ai trouvé ces codes

Dim DernLigne As Long

DernLigne = Range("B" & Rows.Count).End(xlUp).Row

Range("B" & DernLigne) = ""
Range("C" & DernLigne) = ""
Range("D" & DernLigne) = ""
Range("E" & DernLigne) = ""
Range("F" & DernLigne) = ""

Encore merci de ton aide

Bobjazz