Archivage de ligne excel
Lamentin14
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
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.
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.
1 réponse
-
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.-
-
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 -
-
-
