Autres Mise en couleur de cellules si précence d'un d'un commentaire précis sur la même ligne

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #2

Bonjour Chrige,
Un essai en PJ avec la MFC :

VB:

=NB.SI($J5:$V5;$F$1)>0

 

Pièces jointes

• Fichier exemple.xlsm

  13.1 KB · Affichages: 6

Vote positif 0 Vote négatif

C

Chrige

XLDnaute Occasionnel

• 31 Janvier 2021

• #3

Bonjour Silvanu, le mot recherché doit se trouvé dans les commentaires et non dans les cellules
Les cellules eux contiennent des nombres.
Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #4

Oups, sorry.
Un nouvel essai avec une fonction perso VBA :

VB:

Function ReadComment(L%)
ReadComment = ""
For C = 10 To 22
    Nom = [F1]: Chaine = Cells(L, C).NoteText
    If Chaine <> "" And Chaine Like "*" & Nom & "*" = True Then
        ReadComment = 1
        Exit Function
    End If
Next C
End Function

Par contre nécessite en colonne C la formule "=ReadComment(LIGNE())"
Enfin je n'ai pas trouvé comment prendre en compte Jean et pas Jeanjean.
( sauf s'il y a toujours un espace après Jean, mais règle très contraignante )
Peut être un esprit plus futé pourra vous venir en aide.

 

Pièces jointes

• Fichier exemple (V2).xlsm

  20.2 KB · Affichages: 3

Vote positif 0 Vote négatif

C

Chrige

XLDnaute Occasionnel

• 31 Janvier 2021

• #5

Il y a déjà des données dans la colonne C
Mais je peux peut être m'arranger ??
Par contre je ne comprends pas bien ta fonction
Et surtout quel sont les paramètre je dois mettre ?
Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #6

Le mieux serait de passer par une macro, ce qui éviterais une fonction, car je me suis aperçu que si on rajoute un commentaire les calculs ne sont pas ré évalués, et il faut revalider les formules en C.
Mais passer par une macro veut dire un petit fichier test, tout du moins quelle(s) colonne(s) est remplie pour savoir sur quelle plage calculer.

 

Vote positif 0 Vote négatif

C

Chrige

XLDnaute Occasionnel

• 31 Janvier 2021

• #7

La seule colonne de libre, c'est la colonne I, elle est cachée par manque de place
Sinon en fin de fichier il faut aller sur la colonne AR (Non visible)
Mon feuille à écran va de B à AL

J'avais déjà fait une fonction, que j'avais inégré dans une MFC, cela fonctionnait, mais le délai de traitement était catastrophique !!
C'est pour cela que je recherche par macro avec une boucle

Pour l'histoire de "jean" dans "jeanjean", je pense qu'il faut adjoindre un test sur le nombre de caractère
Mais cela complique la chose ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #8

Je m'intéressais aux nombre de lignes. Quelle est la colonne qui est remplie "jusqu'au bout".
De cette façon on connait les colonnes, et on connaitrait le nombre de lignes, donc la plage à traiter.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Janvier 2021

• #9

Bonsoir Chrige, sylvanu,

sylvanu à dit:

Enfin je n'ai pas trouvé comment prendre en compte Jean et pas Jeanjean

Cliquez pour agrandir...

Un mot étant encadré par des espaces :

VB:

If Chaine <> "" And " " & Chaine & " " Like "* " & Nom & " *" = True Then

De plus ajouter Application.Volatile au début pour que la fonction puisse être recalculée via la touche F9.

A+

 

Vote positif 0 Vote négatif

C

Chrige

XLDnaute Occasionnel

• 31 Janvier 2021

• #10

Pardons, j'avais pas compris
La seule colonne de pleine de haut en bas, c'est la colonne AD, elle n'est pas visible car elle contient une fonction, mais pour déterminer le nombre de ligne, cela fera l'affaire.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #11

Bonsoir Job,
J'y avais pensé mais ça ne marche pas.
Dans le fichier exemple le commentaire est "Jean" donc rien devant rien derrière.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Janvier 2021

• #12

Tu n'as pas testé sylvanu et regarde bien le code que j'ai donné.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #13

@job, exact, j'ai du merder quelque part. Sorry.
@Chrige,
En PJ un essai. C'est automatique. La ré évaluation s'effectue à chaque clic sur cellule. La modif proposée par Job est implémentée donc Jean et JeanJaen sont différenciées.
J'utilise la colonne AD pour définir le nombre de lignes à traiter.
Dans votre PJ c'est rapide car le fichier est vide. quand il sera plein avec plein de lignes ça pourra peut être ramer. Dans ce cas on pourrait passer par un bouton pour lancer la macro quand besoin.

 

Pièces jointes

• Fichier exemple (V3).xlsm

  21 KB · Affichages: 4

Vote positif 0 Vote négatif

C

Chrige

XLDnaute Occasionnel

• 31 Janvier 2021

• #14

Bonsoir et merci Job75 pour cette participation et cette aide

Bonsoir Sylvanu
Merci pour tout ce travail

Mais je pense que cela va effectivement être très très long
Mon fichier fait plus de 2000 lignes et va grossir
En plus j'ai déjà un "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" dans cette feuille
Il est relativement complexe et cela va être difficile de joindre les 2 procédures.

Je n'ai pas besoin du tout d'un traitement permanent
En fait quand je travail sur une personne, j'active la cellule F1, cela me permet de mettre en couleur verte la police des nombres concernées (dont le commentaire lui correspond)
Mais pour plus de facilité, pour me permettre de mieux visualiser les lignes ou ces cellules sont situées
Je souhaiterais mettre les cellules des colonnes C et D en verte.

Je peux ainsi rester une heure sur une personne ou moins, mais je ne change pas toutes les 5 minutes

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #15

Dans ce cas, pour les très gros fichier, la meilleure solution reste le bouton.
Cela permet d'activer la macro uniquement quand c'est utile. Voir PJ.

 

Pièces jointes

• Fichier exemple (V4).xlsm

  22 KB · Affichages: 4

Vote positif 0 Vote négatif