Ajout ligne avec formule et archivage

Bonjour à tous,

Je suis pas super douée pour les macros et VBA (en fait, pas douée du tout...)

J'ai donc besoin de votre aide.

J'ai un fichier avec un tableau pour lequel j'ai une macro qui ajoute une ligne avant la ligne de total, c'est super, sauf que la ligne ajoutée ne contient pas les formules de la ligne précédente...

Ma macro est la suivante (hyper simple...)

Sub Ajoutligne()

'

' Insérer_ligne_fin_tableau Macro

Set ListRow = ActiveWorkbook.Worksheets("Phases ultérieures").ListObjects(1).ListRows.Add

End Sub

Que dois-je ajouter pour pouvoir avoir les formules?

Deuxième problème: l'archivage des lignes terminées.

Dans ce même tableau, lorsque le produit est vendu, je mets OK.

J'aimerais que lorsque je clique sur le bouton "archiver", les lignes qui contiennent le OK se mettent dans un autre tableau, en dessous de archiver et en grisé pour pouvoir garder une trace.

Pouvez-vous m'aider car là je suis perdue...

J'avais un autre fichier qui faisait ça, j'ai essayé de copier la macro, mais ça ne fonctionne pas. (macro module 2)

Merci d'avance pour votre aide précieuse.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Hello GMB, merci beaucoup pour ta réponse, mais je n'ai rien qui fonctionne pour l'archivage...

J'ai pourtant activé le contenu, mais rien

Pour l'insertion de ma ligne, dans le tableau, c'est super, la formule est bien là. MERCI !

Pour l'archivage, rien ne se passe lorsque je clique sur le bouton.

J'ai oublié de faire quelque chose??

Merci !!!

Hello GMB,

Je te joins l'autre fichier que j'ai et qui fait l'archivage. Je voulais faire pareil dans mon document avec mon tableau....

Si cela peut t'aider à voir ce que je veux faire...

Dans mon document, dès que OK sur la ligne dans colonne "vendu", on clique sur archiver et la ligne s'efface et se met en archive grisé.

Merci !!

Oh, et quand j'insère une nouvelle ligne, les formules ne se mettent plus ! (j'avais essayé à la maison et ça allait, je le fait au bureau et ça va plus...) !

HEEEEEELPPPPP

Fanchouille a écrit :

Pour l'archivage, rien ne se passe lorsque je clique sur le bouton.

Mais avec cette nouvelle version il se fait en cliquant sur le bouton "ARCHIVER"

Bye !

GENIAL !

Par contre, tu crois que c'est possible de le retirer du tableau du haut quand on clique sur archive?

Car je n'en ai alors plus besoin à cet endroit vu que c'est vendu...

Ce serait le TOP

Il semble maintenant qu'à l'ajout de ligne, la formule se copie bien mais par contre la colonne C, il ne copie pas la proposition de liste déroulante...

T'es un AS !!!

Euuuuh, encore une colle: j'ai copié tout ça dans mon document original mais j'ai un problème avec le archiver...

La copie se fait bien, en mettant les lignes avec OK en grisé

Par contre, il me met un message Erreur exécution '91': variable objet ou variable de bloc With non définie...

Pourtant, c'est exactement comme le fichier que tu m'as transmis.

C'est quoi qui cloche?

Voici ce qu'il note dans le déboguage, et il surligne la ligne InArch...

Private Sub CommandButton1_Click() 'Bouton ARCHIVER

For i = 5 To Range("Tableau15").Rows.Count + 3

If UCase(Range("J" & i)) = "OK" Then

derln = Range("A" & Rows.Count).End(xlUp)(2).Row

Range("A" & i & ":J" & i).Copy

Range("A" & derln).PasteSpecial xlPasteValuesAndNumberFormats

Range("A" & derln & ":J" & derln).Interior.Color = RGB(217, 217, 217)

End If

Next i

lnArch = Range("A:A").Find("ARCHIVER", lookat:=xlWhole).Row derln = Range("A" & Rows.Count).End(xlUp).Row

Range("A" & lnArch + 1 & ":J" & derln).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _

7, 8, 9, 10), Header:=xlNo

Range("A" & lnArch).Select

End Sub

Pffffff, vraiment pas douée moi !!!

Nouvelle version à tester.

Les lignes avec OK doivent s'effacer dans le premier tableau quand on clique sur ARCHIVER

j'ai copié tout ça dans mon document original mais j'ai un problème avec le archiver...

Bye !

Hello GMB !

Oh tu es vraiment génial !

dans le document test tout fonctionne à merveilles.

J'ai copié les modules mais j'ai toujours un message d'erreur qui survient.

Le document original est assez lourd et contient des données assez confidentielles... comment peut-on faire?

Maintenant, le message c'est '1004' La méthode PasteSpecial de la classe Range a échoué....

Private Sub CommandButton1_Click() 'Bouton ARCHIVER

For i = 5 To Range("Tableau15").Rows.Count + 3

If UCase(Range("J" & i)) = "OK" Then

derln = Range("A" & Rows.Count).End(xlUp)(2).Row

Range("A" & i & ":J" & i).Cut

Range("A" & derln).PasteSpecial xlPasteValuesAndNumberFormats

Range("A" & derln & ":J" & derln).Interior.Color = RGB(217, 217, 217)

End If

Next i

lnArch = Range("A:A").Find("Archives", lookat:=xlWhole).Row

derln = Range("A" & Rows.Count).End(xlUp).Row

Range("A" & lnArch + 1 & ":J" & derln).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _

7, 8, 9, 10), Header:=xlNo

Range("A" & lnArch).Select

End Sub

Pour l'insertion de lignes dans le tableau, c'est nickel !

Fanchouille a écrit :

J'ai copié les modules mais j'ai toujours un message d'erreur qui survient.

Pas plus que celle de la V2 d'ailleurs car je n'ai jamais utilisé :

Range("A" & i & ":J" & i).Cut

mais au contraire :

Range("A" & i & ":J" & i).Copy

Alors, tu ne dois pas reporter les bonnes macros.

Pour le reste tu écris :

Le document original est assez lourd...

et contient des données assez confidentielles...

Ok ?

Bye !

C'est bizarre car j'ai vraiment copié exactement les modules...

Voici le lien vers le fichier original

Merciiiiiiiiiiiiiiiiii

on dirait que le lien ne fonctionne pas...

Nouvelle version.

Bye !

Merci beaucoup Gmb!

Je regarderai ça demain matin.

Là c'est l'heure d'aller dormir pour moi.

Je te reviens demain. Merci pour ton aide !

C'est magnifique GMB, tout fonctionne à merveilles !

Je te remercie du fond du cœur pour ta grande aide, ta patience et ta rapidité.

MERCI

MERCI

MERCI !!!