MAJ d'une extraction sans perdre l'état précédent

Le
Apitos
Bonjour à tous,

Ce code est une aide de JB.

http://cjoint.com/?jjcpG76i6p

Quand on fait une MAJ, il faut que les lignes marquées par une croix
(Npayés reglés) avec la date du payement correspondante dans la
colonne I, soient à nouveau affichés,

Mais pour le moment, il sont effacés et je devrais me rappelé à chaqu=
e
fois ce qui était l'état avant, pour la reproduire après,

Est-ce qu'il y'a une solution pour sauvegarder l'état précédente et l=
a
restaurer après, tout en ajoutant les nouvelles données des non
payés ?

Merci d'avance.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #16760441
Bonjour,

Oui! tant que t'as pas enregistré le fichier,
tu fermes et rouvre ainsi la version précédente

Si tu veux garder les deux:

Enregistrer sous ou

même en VBA

enregistrer une copie

Activeworkbook.SaveCopyAs "lenomquetuveux"

--
lSteph


Apitos a écrit :
Bonjour à tous,

Ce code est une aide de JB.

http://cjoint.com/?jjcpG76i6p

Quand on fait une MAJ, il faut que les lignes marquées par une croix
(Npayés reglés) avec la date du payement correspondante dans la
colonne I, soient à nouveau affichés,

Mais pour le moment, il sont effacés et je devrais me rappelé à chaque
fois ce qui était l'état avant, pour la reproduire après,

Est-ce qu'il y'a une solution pour sauvegarder l'état précédente et la
restaurer après, tout en ajoutant les nouvelles données des non
payés ?

Merci d'avance.


Apitos
Le #16764041
Bonjour LSteph,

Non, je crois que je ne suis pas fais comprendre.

Je parle de la macro Extrait() et le bouton MAJ Non-Payés.

Quand je clique dessus, la zone des résultats est effacée :

[A1:H100].Clear
[N2:N20].Clear

puis les données extraites depuis la feuille 1 sont affichées est
triées.

Quand une somme non payée est réglée (Colonne F), je coche avec une
croix dans la colonne E et la date du jour s'inscrit dans la colonne
I.

Ce que j'aimerais avoir, c'est en cliquant à nouveau sur le bouton MAJ
Non Payés, les lignes précédemment marquées par une croix avec leur
date de règlement ne soient pas écrasés par le mêmes données
extraites, et à nouveau j'intervient manuellement pour marquer ce qui
étaient cochés avant la dernière mise à jour.

Voilà.

Merci.
Jpmonnier
Le #16764741
Bonjour,
Personnellement je completerais la fonction Extraire comme ceci,
Tu extrais tes données,puis par une autre macro, tu copies de ta zone de
sortie, ligne par ligne au dessous des lignes extraites précédemment
Macro à dévelloper
Temps d'exécution < secondes
Ce qui de donneras une feuille toujours à jour en conservant des données
Tu peux également supprimer les données transférées dans ta base toujours
par macro !
Tu peux joindre ton fichier (si non confidentiel) sur cjoint.com

"Apitos" news:



Bonjour LSteph,

Non, je crois que je ne suis pas fais comprendre.

Je parle de la macro Extrait() et le bouton MAJ Non-Payés.

Quand je clique dessus, la zone des résultats est effacée :

[A1:H100].Clear
[N2:N20].Clear

puis les données extraites depuis la feuille 1 sont affichées est
triées.

Quand une somme non payée est réglée (Colonne F), je coche avec une
croix dans la colonne E et la date du jour s'inscrit dans la colonne
I.

Ce que j'aimerais avoir, c'est en cliquant à nouveau sur le bouton MAJ
Non Payés, les lignes précédemment marquées par une croix avec leur
date de règlement ne soient pas écrasés par le mêmes données
extraites, et à nouveau j'intervient manuellement pour marquer ce qui
étaient cochés avant la dernière mise à jour.

Voilà.

Merci.
Apitos
Le #16764911
Bonjour Jpmonnier,

Voila le fichier joint :

http://cjoint.com/?jjcpG76i6p
Jpmonnier
Le #16765891
Je n'ai pas la même version d'Excel je pense, car je n'ai pas récupéré les
boutons de commande pour lancer tes proc
J'ai ajouté en module2, une proc qui devrait te copier tes extractions dans
une feuille Résultats
Tu devrais l'appeler depuis ta Proc (Sub CommandButton1_Click),après ton
Unload Me

Nota : Tu pourras remplacer les nbval des adresses J1 sur les feuilles
Résultats et sortie, par un comptage depuis VBA
A toi de complèter les formats et formules de la feuille Résultats
J'espère que ça t'aidera

http://cjoint.com/?jjrnbtPb0F

--
Cordialement

"Apitos" news:
Bonjour Jpmonnier,

Voila le fichier joint :

http://cjoint.com/?jjcpG76i6p


lSteph
Le #16766131
....
Non, je crois que je ne suis pas fais comprendre.


non plus.

Quand tu ouvres ton fichier aucune données n'est encore effacée ,
une fois que tchange tu peux très bien enregistrer sous (un autre nom)
et ainsi conserver les deux états.

De même...
Avant que tu n'effectues une modification ou actives un bouton qui
efface des données.
Ton fichier est dans l'état où elles y sont toujours.
Donc si ta macro fait chaque fois une copie du ficher date et heure
incluse....
tu conserve un historique.

@+

--
lSteph

On 9 sep, 13:58, Apitos
Bonjour LSteph,

Non, je crois que je ne suis pas fais comprendre.

Je parle de la macro Extrait() et le bouton MAJ Non-Payés.

Quand je clique dessus, la zone des résultats est effacée :

[A1:H100].Clear
[N2:N20].Clear

puis les données extraites depuis la feuille 1 sont affichées est
triées.

Quand une somme non payée est réglée (Colonne F), je coche avec une
croix dans la colonne E et la date du jour s'inscrit dans la colonne
I.

Ce que j'aimerais avoir, c'est en cliquant à nouveau sur le bouton MAJ
Non Payés, les lignes précédemment marquées par une croix avec le ur
date de règlement ne soient pas écrasés par le mêmes données
extraites, et à nouveau j'intervient manuellement pour marquer ce qui
étaient cochés avant la dernière mise à jour.

Voilà.

Merci.


Apitos
Le #16766701
Bonsoir JPmonnier, LSteph.

Erreur de fichier !

Ce n'est pas ce que je voulais joindre comme exemple.

Je ne sais pas comment à glisser le premier fichier exemple. Excuse !

Voilà à nouveau le fichier que je veux traiter :

http://cjoint.com/?jjsUNYDeQo

LSteph : C'est une solution de mettre les non payés à jour par macro
et de continuer le travail manuellement pour marquer les sommes
réglées.

Merci.
Jpmonnier
Le #16769161
J'ai modifié ton code à voir si ça peut te convenir
Tu testes avec ton bouton et vois ce qui se passe
http://cjoint.com/?jjwFwN0sdp
--
Cordialement


"Apitos" news:
Bonsoir JPmonnier, LSteph.

Erreur de fichier !

Ce n'est pas ce que je voulais joindre comme exemple.

Je ne sais pas comment à glisser le premier fichier exemple. Excuse !

Voilà à nouveau le fichier que je veux traiter :

http://cjoint.com/?jjsUNYDeQo

LSteph : C'est une solution de mettre les non payés à jour par macro
et de continuer le travail manuellement pour marquer les sommes
réglées.

Merci.
Apitos
Le #16769791
Bonsoir Jpmonnier,
J'ai modifié ton code à voir si ça peut te convenir
Tu testes avec ton bouton et vois ce qui se passe



A chaque fois qu'on clic le bouton MAJ, on duplique se qu'on a
déjà !!!!

Il faut à chaque mise à jour, faire venir tout ce qui est marqués par
"np" dans la feuille1, tout en conservant les croix et dates déjà
affichées avant.
Jpmonnier
Le #16771081
Bonjour Apitos
J'ai ajouté dand ton code Extrait, ceci, à placer avant le End Sub

For Each n In Sheets("feuil1").[g2:g1000]
If n.Value = "np" Then
n.Value = "ex"
End If
Next

je remplace le np par ex (dans Feuil1), signifiant que la valeur est deja
extraite

J'espère que ça te conviendra
--
Cordialement



"Apitos" news:
Bonsoir Jpmonnier,
J'ai modifié ton code à voir si ça peut te convenir
Tu testes avec ton bouton et vois ce qui se passe



A chaque fois qu'on clic le bouton MAJ, on duplique se qu'on a
déjà !!!!

Il faut à chaque mise à jour, faire venir tout ce qui est marqués par
"np" dans la feuille1, tout en conservant les croix et dates déjà
affichées avant.
Publicité
Poster une réponse
Anonyme