Suppression des formules après l'archivage des données

Bonjour cher Dr Excel,

Je suis débutant en Vba-excel et c’est grâce aux tuto disponible sur YouTube qui m’a permis de familiariser a ce outils de travail exceptionnel Vba. J’ai donc télécharger l’un de fichier Facture-archivage et sur ce, j’ai appliquer selon ma structuration de projet. Mais j’ai rencontrer un souci sur le code Vba pendant l’archivage et réinitialisation de la feuille facture. Une fois archiver et les contenus est revers sur la feuille historique Ok ; mais les formules disparaisse aussitôt sur la feuille facture en archivant les données

Souhaiterais avoir une canalisation de votre parts

Merci
Cordialementdr excel.xlsm (68,6 Ko)

Bonjour

Quelques petites corrections

Ici on cherche un numéro de ligne et non une valeur :

For Each Item In Sheets(« Facture »).Range(« A13:E28 »)
If Item.Value = «  » Then
'ne rien faire
Else
'archiver le contenu de la ligne
ligne = Sheets(« Historique_facture »).Range(« A2 »).End(xlDown).Row + 1
ligne_origine = Item.
La dernière ligne :

ligne_origine = Item.

mettre

ligne_origine = Item.Row

Comme ceci :

For Each Item In Sheets(« Facture »).Range(« A13:E28 »)
If Item.Value = «  » Then
'ne rien faire
Else
'archiver le contenu de la ligne
ligne = Sheets(« Historique_facture »).Range(« A2 »).End(xlDown).Row + 1
ligne_origine = Item.Row

Pour la suppression des données on nettoies uniquement les cellules qui contiennent une donnée en dur non une cellule qui porte une donnée issu d’une formule
En d’autres terme on ne touche jamais une cellule avec une formule sauf pour supprimer celle-ci ou pour la modifier
Dans le cadre d’une remise à zéro n’intervenir que sur les cellules sans formule

Donc ceci :

Sheets(« Facture »).Range(« A13:E28 »).ClearContents

à modifier ainsi :

Sheets(« Facture »).Range(« B13:C28 »).ClearContents

Car les colonnes A/D/E ont de la ligne 13 à 28 des formules dons à ne pas toucher

Cette ligne pour la même raison est à supprimer :

Sheets(« Facture »).Range(« E29:E31 »).ClearContents

E29 et E31 ont des formules

Ton fichier corrigé ainsi

dr excel.xlsm (66,6 Ko)

Wahooooooooo tu es un géni
Merci pour la correction que tu a apporté sur mon fichier , je vois que ça marche parfait

Merci du retour

Mais n’oublies pas attention aux formules on y touche pas sauf pour les faire évoluer !!!

Bon continuation

Une petite validation de ma réponse salvatrice ce serait sympa

Merci

Stp. Une dernière précision si je souhaiterais ajouter deux lettres suivant du numéro de ma facture sheets(« Facture »).Range(« A6 »).Value = Sheets(« Facture »).Range(« A6 »).Value + 1
en ajouter deux lettre comme cici (1024-FC) quel code pu-je m’applique …
merci

Si j’ai bien compris tu souhaites incrémenté une donnée numérique en A6 et rajouter 2 lettres en fin
Tu peux mettre comme ceci mais pour pouvoir toujours incrémenter les suivante à mettre le résultat final compteur et 2 lettres en A7 sinon tu ne pourras plus sans bidouiller incrémenter
J’ai en A6 100
je souhaite incrémenter :
Range (« A6 »)+1 soit 100+1 = 101
Je souhaite associer 2 lettres : FC
Résultat en A7 en mettant comme ceci :
Range(« A7 »).Value = Range(« A6 ») & « -FC » soit 101-FC
Si tu mets ce résultat en A6 (101-FC) la prochaine incrémentation en l’état échouera car cela donnera 101-FC+1

Sinon il faut bidouiller et mettre par exemple :

Range(« A6 »).Value = Replace(Range(« A6 »),« FC »,"")+1 & « -FC »
Ainsi dans la somme je supprime le FC et donc elle peut se faire que je rajoute en fin

A toi de choisir maintenant

Bonjour FFO,
je reviens une fois de plus vers toi.
sur mon fichier facture en pièce jointe, après la correction que tu as apporté dessus tout marche super mais l’arrivage du facture devers sur la feuille historique OK , alors ces donnés se multiplie plusieurs dans chacune de colonne voir le montant net à payer de facture N° 49922, alors je souhaite réaliser un tableau croisé dynamique pour récupérer le montant de chaque opérations dans la colonne Net à payer

Bonjour
Difficile de te comprendre
Tu as un problème sur l archivage de tes factures (duplication anormale sur plusieurs lignes mais avec quelle manipulation bien vouloir me préciser l action réalisée) ou tu souhaites mettre en place un TCD ?

Peux tu être plus précis dans ta demande

Merci

C’est à dire après l’archivage sur la feuille d’historique les colonnes (Net à payer; Montant; Prix ; Quantité; récupèrent bien les données correspondante mais aussitôt ça duplique alors, normalement sa devais donné juste que le prix par exemple 80 000 ; Montant 240000 et non sur lignes les ligne suivantes.Fichier@.xlsm (65,7 Ko)

Une petite correction apportée et ça roule !!!
Testes cette nouvelle version ci-jointe et dis moi
Il y a une facture toute prête à être archivée pour le besoin (49923)
Dans l’attente de ton retour

Fichier@.xlsm (63,9 Ko)