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

 

[Chri8Ed]

Visiblement l'effet n'est pas du tout le même chez moi
Je viens de refaire un test avec donc ta toute dernière solution
Voici ce que j’obtiens visuellement en 3 étapes
Déjà ce ne fait pas plus la même chose que tout à l'heure ??
Et le résultat est pour le moins très étrange ???
En tout cas, il n'est pas celui attendu !
J'avoue que je comprends pas du tout...

 

[thebenoit59]

Après l'utilisation de la macro, sélectionne une case avec un commentaire et désélectionne pour essayer.
Chez moi ça fait apparaître la MFC.

 

[Chri8Ed]

Cela ne produit aucun effet chez moi


Rectification je viens de faire un nouvel essai
Et voila ce que j'obtiens ???

 

[thebenoit59]

Essaye ce fichier pour voir.
Sinon, qu'est-il écrit dans la MFC ?

 

[Chri8Ed]

Même résultat !

 

[thebenoit59]

C'est très étrange, peut-être une différence de version d'Excel.
Ce qui m'intrigue est le changement dans la formule, en effet chez moi j'ai EstCommentaire(J3)

 

[Chri8Ed]

En attendant, je pense à autre chose
Avec cette fonction estcommentaire
Serait-il de faire une macro qui colorise dans une couleur paramétrable pour une zone également paramétrable
Comme cela plus besoin de MFC !

 

[thebenoit59]

Il vaut mieux utiliser une procédure à la place d'une fonction.
Tu la lances une fois de temps à autre pour colorier ta cellule.
Et là ça ne posera plus de soucis pour le clignotement.

 

[Chri8Ed]

De quelle procédure tu parles ?

 

[thebenoit59]

Comme ceci.
J'ai créé trois styles de cellules, AvecCommentaire, SansCommentaire et Date.
Boucle les cellules des colonnes et lignes existantes et applique le style utile.

 

[Chri8Ed]

Bonjour
Cette solution semble parfaite
Elle fonctionne très bien
Mais une fois implantée dans mon tableau, j'ai un blocage sur le code :
.Cells(i, j).Style = styleSans

Erreur d’exécution '450'
Nombre d'arguments incorrect ou affectation de propriété incorrecte

J'essaye de comprendre, je vois que pour styleComm cela fonctionne apparemment bien mais pas pour styleSans

Je n'arrive pas à trouvez la cause ??

A+

 

[thebenoit59]

La cause n'est pas très difficile à cerner.
Il faut que tu crées dans tes styles ceux du tableau envoyé.
C'est juste à côté des mises en formes conditionnelles (pas en VBA), tu verras que j'ai trois styles, tu peux juste les copier.

 

[Chri8Ed]

Re,
Je connaissais ces styles prédéfinis, mais je m'en suis encore jamais servis !
Pourtant quand je vais dans cet onglet,
Je vois des centaines et des centaines de styles
Pourtant je ne les ai jamais créés, du moins intentionnellement
Du coup je me dis un peu de ménage, ne ferait pas de mal
Mais totalement impossible de supprimer n'importe quel style !
J'arrive bien à créer les styles comme toi, du moins en apparence
Car une fois créé, je ne les vois pas dans la liste
Donc impossible de les modifier ??
Décidément !

 

[Chri8Ed]

Re,
J'ai trouvé un utilitaire qui m'a permis de supprimer toutes ces centaines de Mises en Forme
Ensuite j'ai pu créer les 3 mises en forme comme toi
Mais je vais devoir modifier la zone et la limiter aux seuls colonnes de J à V
Car sinon la mise en forme se poursuit dans tout le tableau !!
A+

 

[Chri8Ed]

J'ai bien essayé de délimiter la zone avec range comme ceci
ThisWorkbook.Sheets(1).Range("J3:V1936")
Mais cela ne fonctionne pas

En 1er dans ce cas la mise en forme ne débute que à partir de la colonne S
et se poursuit après V

En 2ème Cela bloque toujours au code .Cells(i, j).Style = styleSans
Bien que j'ai créé le style SansCommentaire

Il me faudrait aussi un Style Vide

Je remets ta solution avec la présentation comme elle doit être