Archivage de ligne excel

Lamentin14 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
melanie1324 Messages postés 1504 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je n'arrive pas à archiver des lignes sous Excel 2013, voilà ce que je cherche à faire :

J'ai un tableau de suivi de visite clients qui 13 colonnes et un nombre de lignes qui continues à augmenter chaque jours.
Ce tableau est composer d'une formule me permettant d'avoir un signal de relance lorsque je doit voir un client selon un temps estimé.
Pour chaque visite client je met un objectif de visite et le réalisé de la visite.

Je souhaiterai que lorsque je visite de nouveau un client (donc nouveaux objectifs et réalisé) la ligne existante se copie par un système de bouton dans une feuille archivage. Afin de pouvoir garder un historique de se qui a été fait précédemment. Toute en pouvant réécrire sur la même ligne sans modification de l'archivage.

Mon tableau commence à A6 jusqu'à M6 sur un nombre de lignes qui augmentent chaque jours comme dit plus haut.

J'espère que j'ai étais suffisamment clair dans ma demande.

Merci d'avance pour vos retours.
A voir également:

1 réponse

melanie1324 Messages postés 1504 Date d'inscription   Statut Membre Dernière intervention   155
 
Bonjour,

Pour faire ce que tu souhaites, il faut utiliser une macro mais il faut pouvoir définir dans quel cas la macro doit se lancer en terme d'excel.
0
Lamentin14 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Il faudrait par exemple avec un case à cocher et payer sur le bouton « archiver » et la ligne ce copie et non ce copier dans la feuille archive. Et que je puisse remodifier la ligne initial sans modifier celle de l’an feuille archives.
J’espère que c’est plus claire.
0
melanie1324 Messages postés 1504 Date d'inscription   Statut Membre Dernière intervention   155
 
Pour que la macro suivante fonctionne, il faut :
- tu rajoutes une colonne en A dans laquelle tu mettras X ou rien selon si tu veux copier
- tu as ajouté une feuille "Archive"

sub archivage ()

dim ligneorigine, lignefinale as variant

ligneorigine = 6
lignefinale = 6

'boucle qui va chercher la première ligne dispo dans ta feuille archivage
do while sheets("Archivage").cells(lignefinale,1) <> ""
lignefinale = lignefinale+1
loop

' remplace Mettrelenomdetafeuilledetravail par le nom de ta feuille
'j'ai mis 2 mais mets le chiffre de colonne dans laquelle tu as toujours une donnée

do while sheets("Mettrelenomdetafeuilledetravail").cells(ligneorigine,2) <> ""

'si en A, tu as une X, cela va la copier dans archivage et la supprimer
if cells(ligneorigine,1) = "X" then
range(cells(ligneorigine,2),cells(ligneorigine,60)).copy sheets("Archivage").cells(lignefinale,1)

Rows(ligneorigine).Delete Shift:=xlUp
ligneorigine = ligneorigine-1

lignefinale = lignefinale +1
end if

ligneorigine = ligneorigine+1
loop

end sub
0
Lamentin14 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Je ne comprends pas ce ne fonctionne pas. Ca me surligne des ligne de code
0
melanie1324 Messages postés 1504 Date d'inscription   Statut Membre Dernière intervention   155
 
Pourrais-tu donner ton fichier, ce serait plus simple stp
0