Visualisation dans un UserForm suivant un commentaire

[Chri8Ed]

Bonjour
J'ai un gros fichier dans le lequel figure certains nombres avec un commentaire
Je me demande si il serait possible de lister dans un UserForm tous les nombres portant un commentaire précis
J'ai réalisé un petit exemple qui reprend la structure de mon fichier
Le but dans cet exemple ce serait en rentrant "Paul" de lister toutes les rubrique avec les nombres portant le commentaire "paul"
Il me semble avoir vu cela sur le Forum, mais il y a très longtemps et je n'ai retrouvé aujourd'hui
Merci d'avance

 

[thebenoit59]

Le problème ici vient des doublons.
En prenant par exemple Paul/Bois, tu as deux fois la quantité 15.
Je ne pourrai pas différencier celle que tu souhaites sélectionner dans le fichier.
Dans quel but souhaites-tu sélectionner la cellule ?

 

[pierrejean]

Re

pour la totalisation Exemple :
Paul a 3 commentaires dans la rubrique bois 65 15 et 15
Mon Usf donne Paul bois et 95 (65+15+15)

 

[Chri8Ed]

Re thebenoit59

C'est une erreur dans mon exemple, il peut y avoir 2 nombres pour le même personne, bien que très rarement, mais il ne peut y avoir 2 nombres identiques pour la même personne.

Si je souhaite pouvoir me rendre dans la cellule, c'est uniquement pour en modifier éventuellement le nombre

A+

 

[Chri8Ed]

Re Pierre Jean

Comme je viens de le signaler à Benoit,
il peut y avoir 2 nombres pour le même personne, bien que très rarement, mais il ne peut y avoir 2 nombres identiques pour la même personne.
C'est une erreur que j'ai faite dans mon exemple
Par contre la totalisation ne me serait d'aucune utilité.
Il me faut nécessairement les 2 nombres, si tel est le cas.
A+

 

[thebenoit59]

Tu peux supprimer le clignotement ou modifier les couleurs à ton aise.
C'est juste pour signaler la cellule trouvée.
En cas de double valeur la première sera sélectionnée.

 

[Chri8Ed]

Re thebenoit59

C'est très bien comme cela
Peux-tu faire la même chose avec ta solution précédente (Celle avec seulement 2 listes)
Car j'ai beaucoup de noms qui comportent entre 5 et 30 nombres environ
Donc j'utiliserai la version avec 2 listes dans ce cas, ce sera plus rapide
Ou l'autre pour les noms comportant beaucoup de nombres.

Il serait bon de prévoir une réinitialisation à l'intérieur de la listbox
Car si je change un nombre, évidemment cela pose problème
Mais c'est pas grave si ce n'est pas possible, je sortirai alors de la macro
Et je là rouvrirai à nouveau

A+

 

[thebenoit59]

Re thebenoit59

C'est très bien comme cela
Peux-tu faire la même chose avec ta solution précédente (Celle avec seulement 2 listes)
Car j'ai beaucoup de noms qui comportent entre 5 et 30 nombres environ
Donc j'utiliserai la version avec 2 listes dans ce cas, ce sera plus rapide
Ou l'autre pour les noms comportant beaucoup de nombres.

Il serait bon de prévoir une réinitialisation à l'intérieur de la listbox
Car si je change un nombre, évidemment cela pose problème
Mais c'est pas grave si ce n'est pas possible, je sortirai alors de la macro
Et je là rouvrirai à nouveau

A+

Voici la version avec deux Listbox.

 

[Chri8Ed]

Bonjour thebenoit59

Ces 2 solutions sont donc parfaites et correspondent bien à ce que je souhaitais
Je les ai testées longuement et je suis donc passé à leurs introductions dans mon tableau d'origine.

Je constate que certaine fois le clic va bien aux cellules concernées, mais parfois pas !
J'ai fini par trouver la cause
Si le nom de la rubrique est composé d'un seul mot, comme je l'ai fait dans mon exemple, cela fonctionne très bien.
Mais en fait dans mon tableau en réel toutes mes rubriques comportent plusieurs mots et mêmes parfois des nombres. et là cela ne fonctionne pas.
Je joins l'exemple sur ta solution

Un autre problème, c'est qu'il il y a des fois des retours chariot dans mes commentaires.
Je les ai fait involontairement, cela ne se voit pas à l'écran, mais cela provoque des erreurs
Voir l'exemple avec Paul
Si c'est possible de mettre un filtre pour éliminer ces retours chariot, ce serait bien ?
Car je constate que j'en ai fait beaucoup, vraiment beaucoup !

A+

 

[thebenoit59]

Lors du bouclage des commentaires, la procédure supprime les espaces avant/après et les retours chariots.
Pour la recherche des catégories avec espace le code est modifié également.

 

[Chri8Ed]

Re

Merci encore
Je viens de le tester directement dans mon tableau
C'est Ok
Peux-tu faire la même modification pour l'autre version avec 3 fenêtres ?

Dans mon tableau je ne vois pas le clignotement, ni le changement de couleur
Car j'utilise une fonction de recherche de commentaire dans une MFC
J'ai modifié le tableau pour le montrer, mais là je suppose que l'on ne peut rien y faire ?

A+

 

[thebenoit59]

Pour la MFC :
On supprime l'existante sur la cellule trouvée.
On fait clignoter la cellule.
On remets en place une MFC sur cette cellule.
A toi de changer la couleur, la formule si besoin.

 

[Chri8Ed]

Ta solution fonctionne parfaitement
Mais cela ne va pas être possible de l'utiliser
Je m'explique
C'est le problème de la MFC que l'on rencontre souvent
à chaque fois que je vais lancer la macro, il va se créé une MFC
Je vais après quelques utilisations me retrouvez avec des centaines, puis des milliers de MFC !
Dans mon tableau, j'ai à l’origine une MFC par colonne ( J à V)
Exemple Pour J :
(Voir image)
Le même exemple après utilisation de la macro :
(Voir 2ème image)
J'ai bien essayé de créer une autre macro qui en fin de cession, me ramènerait à mes 13 MFC de J à V
Mais je n'y suis parvenu

 

[thebenoit59]

Une autre solution :
Suppression de la MFC avant l'ouverture de l'UF.
Appelle d'une procédure pour remettre en place la MFC à la fermeture de l'UF.

Un peu capricieux, la MFC mets un peu de temps à s'afficher.

 

[Chri8Ed]

Capricieux, oui sans doute
Chez moi, cela ne fonctionne pas du tout
Je perds toutes mes MFC
Du moins en affichage, car elles demeurent présentes
Et je retrouve avec des cellules totalement vide et donc sans commentaire en violet
La raison est simple en regardant une MFC je me retrouve par exemple avec
=EstCommentaire(E1048574)

Personnellement, je n'y suis pas arrivé
J'ai bien essayé, en copiant ta procédure pour une seule cellule
Mais sans succès
Je pense qu'il me faudrait une macro qui lance 13 MFC
Avec pour J, la formule =EstCommentaire($J3)
Pour la zone =$J$3:$J$1936
Idem pour les 12 autres colonnes
Bien sûr il faut aussi que la macro supprime en 1er toutes les MFC contenues dans ces colonnes

A+

 

[thebenoit59]

Lancer 13 MFC n'est pas utile.
En déverrouillant $J3 elle change de colonne automatiquement.

Voici le résultat sur mon poste :
https://www.hostingpics.net/viewer.php?id=757831Sanstitre.png