revenir en arriere avec un bouton usf qui fait inverse de next ?? possible ??

[papapaul]

🙁 Comment revenir à une précédente sélection ?


L'idée est simple mais après ?
Avec mon USF, je "balaye" tous les doublons de ma feuille
et je mets une couleur avec un bouton "mettre en évidence"
Si ca ne me convient pas , je fais annuler et je continue
ma recherche avec doublon suivant. Le bleme c'est que annuler
ne marche que sur la dernière mise en évidence mais pas
les précédentes.
Ce que je voudrais, c'est : si je fais plusieurs fois ,
doublon suivant, mettre en évidence etc..
pouvoir faire annuler pour la dernière mise en évidence et refaire
annuler pour la mise en évidence d'avant etc..
On m'a suggérer l'idée d'une scrollbar mais je m'en sors pas.
Est il possible d'inventer un bouton qui demande doublon
précédent au lieu de suivant ?
Donc avec ca, une fois ma feuille "balayée", pouvoir revenir en arrière
doublon par doublon et annuler si besoin la couleur ou non.

C'est tordu ma question mais si j'ai 3000 lignes, y a que
visuellement que je peux décider de conserver ou non
la couleur.
J'ai fait un début avec srollbar=false mais ma macro marche plus.

Je cherche encore,
merci à tous 😛

 

[Luki]

Re : revenir en arriere avec un bouton usf qui fait inverse de next ?? possible ??

Bonsoir Papapaul,

En jettant un oeil sur ton code, je vois (si j'ai compris):

- Que tu ajoutes l'adresse de la cellule trouvée dans le combobox1.
- l'ajout dans un combo se faisant à la suite
- donc, tu connais les adresses de ces cellulles, et de fait, de celle qui vient avant, et avant, et avant...

Un bouton précédent pourrait faire quelque chose comme :
variable publique pour stocker le dernier item traité dans ton combo
dim SelItem as long
selitem=combobox1.listcount
dim plage as range

selitem=selitem-1
Plage.address= combobox1.list(selitem,0)


Voilà dans l'idée. à adapter, et gérer les décalages de listcount ( base 0) etc...
voir aussi comment stocker la variable, la mettre à jour si tu ajoutes des items dans le combo en cours de route etc.

Pas réussi à faire de test avec ton fichier. je dois manquer d'infos..

A te lire

 

[papapaul]

Re : revenir en arriere avec un bouton usf qui fait inverse de next ?? possible ??

🙂 Merci de ta réponse Luki,

C'est un peu trop compliqué pour moi.
Je peux contourner le problème en creant la listbox1
(voir mon zip) et l'alimenter avec chaque mise en évidence
pour que la liste s'agrandisse à chaque fois et qu'ensuite je
supprime la couleur avec dblclick.
Le dblclick lui fonctionne.
Mais voila :quand je fais doublon suivant, ca la met clear.
J'arrive pas à trouver les bons codes.
Le bouton annuler l'action lui n'enlève pas l'item de la liste.

Ce qui serait bien : mais la j'en demande beaucoup, c'est que
le srollvertical de la liste permette de descendre ou remonter dans
la feuille.

Je continue à chercher mais je rame sévère 😡

Merci à tous et vive xld

 

[papapaul]

Re : revenir en arriere avec un bouton usf qui fait inverse de next ?? possible ??

🙂 Re
J'ai ajouter Listbox1.removeitem (Listbox1.listindex)
dans le code du bouton annuler et dans le code du dblclick.

Me reste donc plus qu'à trouver comment ajouter à la liste
les differents items successifs que je mets en couleur
peut-etre avec une variable :
collection, unique .. je sais pas. J'y réfléchis.
Après pour finir et ca ira, faire en sorte que le usf
descende dans la feuille en meme temps que les
doublons détectés.

Y a encore du boulot.

Bonne soirée les xldeurs 😎