plus que ce probleme la : dblClick(ByVal .....) pour finir

[papapaul]

🙂

Listbox1_dblClick(ByVal cancel As MSForms.ReturnBoolean)

Après des heures et des heures 😕 j'ai tout repris à zéro.
Plus simple : 1 seul USF et 1 macro. Ce sera trés bien comme ça.
Je n'ai plus qu'un code à trouver pour le doubleclick qui
pourrait mettre en rouge en gras comme on veut,
l'item cliqué de ma listbox.

Mes excuses à tous ceux que je bassine avec ça
mais je suis (aie !! chevilles) assez content de moi
quand même. J'ai donc presque terminé un truc qui va
me faire gagner un temps fou.

Vive xld et merci à tous ceux qui m'ont aider et aussi
à tous ceux à qui j'ai "emprunté" des bouts de codes.

😉 @+

 

[papapaul]

Re : plus que ce probleme la : dblClick(ByVal .....) pour finir

🙂

Voici la pièce jointe.

Y a peut-être des gens intéressés par au moins une
partie de ce usf.

Amitiés à tous

😉

 

[lapix]

Re : plus que ce probleme la : dblClick(ByVal .....) pour finir

Bonjour,

Voir fichier joint.

J'ai mis ta listbox avec 2 colonnes
Commencé ta procedure dblclick que tu peux completer

Bonne journee

 

[ziopizza]

Re : plus que ce probleme la : dblClick(ByVal .....) pour finir

Bonjour papapaul,lapix

Je ne crois pas qu'il soit possible de changer le format d'un seul Item.
Par contre pour marquer 1 Item tu peux utiliser dans les propriétés de la listbox:ListStyle,1-FmListStyleOption,ou
pour en marquer plusieurs:MultiSelect,1-FmMultiSelectMulti
Ajouter en début de macro. Application.ScreenUpdating=False pour éviter de voir le sautillement de l'écran à l'exécution du code
Application.ScreenUpdating=true en fin de code.
Pour le reste je ne comprends pas pourquoi marquer le ou les Items,tu n’expliques pas pourquoi faire.
@+Yves

 

[papapaul]

Re : plus que ce probleme la : dblClick(ByVal .....) pour finir

Merci à tous,

Lapix, j'ai regardé ton code mais j'ai pas eu le temps
de modifier à partir de chaine.
Le fichier de Robert le fait tres bien mais en appliquant la macro du
module4. (voir son zip ci-dessus), génial Robert.

Sinon pourquoi je dois marquer les items Pizza ??
En deux mots, je recois d'agents de mon service (une centaine),
autant de fichiers compte-rendu toutes les semaines, je mets chacun d'entre
eux dans une feuille dans fichier "recap" pour en tirer des stats.
Le probleme c'est que beaucoup de ces compte rendu, pas tous,
sont truffés d'erreurs (double saisie souvent)
Le but du jeu est donc qu'au lieu d'imprimer, surligner etc..tout ce que
je repère, très fastidieux. Avec l'outil qu'on est en train d'inventer, au
premier coup d'oeil je "marque les doublons anormaux" .
(certains sont logiques d'autres non).
Ensuite, a partir du fichier recap que je conserve, j'isole et retourne directement par mail la feuille ou les feuilles à l'auteur pour qu'il corrige
les données (doublons dans 95% des cas) que j'ai marqués
(j'ai une macro qui me permets ça).

Bonne journée à tous et vive xld 🙂

 

[ziopizza]

Re : plus que ce probleme la : dblClick(ByVal .....) pour finir

Re,
Regarde ton fichier joint modifier, pour marquer les données dans la listebox,et les signale en rouge dans les feuilles.
Salut Yves

 

[papapaul]

Re : plus que ce probleme la : dblClick(ByVal .....) pour finir

😎 On y est presque Merci ZIO

Ton fichier permet bien de "marquer" les doublons.
Ca va bien m'aider.
Mais je les vois en couleur seulement apres le click.

L'ideal serait que : (regarde mon fichier).
Aprés les avoir marqués avec 1 des méthodes balayage ou feuille active
Enore merci à Robert qui a presque tout fait,
Je clique et là je les vois, c'est ensuite que je décide s'il faut les conserver
en couleur ou pas. On suppose que s'ils sont sur une meme ligne
ou meme colonne je n'ai pas besoin de couleur, s'ils sont disséminés
dans la feuille, la, je dois les conserver en couleur.
C'est pour ca qu'il est important que je les vois avant de changer
de feuilles ou de méthode. En quittant mes usf, je sais mettre le tien.
Avec tes cases à cocher, ton usf arrivant sur la feuille ou je vois
les mis en évidence, je pourrais ainsi cocher ceux qui doivent rester coloriés
et décocher les autres puis changer de feuille et continuer
mes recherches. Mes vraies feuilles ont parfois 2 ou 300
lignes et donc en mettant en couleur avant, c'est visuellement
que je prends ma décision, au lieu de chercher partout avant
de mettre la couleur.
Apres la fin de mes recherches il ne me restera plus qu'à
retourner la (les feuilles) ou il y a des "marquages"
vers l'expéditeur (mail) en les isolant du classeur ou il y a tout
avec un autre classeur et ou elles seront copiées
grace une macro que j'ai déja..
J'ai essaye d'expliquer clairement.
Je travaille la dessus ce soir et je vous tiens au courant.
On va y arriver.
Merci Zio et tout les autres. 😉