Autres Planning - Pb "refresh" automatique sur UDF ds plage

[zebanx]

Bonjour à tous.

J'utilise un UDF (VCH) qui m'est pratique par la suite (transposition).

Son but est le suivant :
S'il y a un changement de couleurs, on affiche sur les bornes de chaque plage la valeur de référence (colonne A).
Ceci est valable sauf pour la couleur blanche (pas d'information sur ces cellules là).

Actuellement :
Obligation de faire un copier-coller "formule" sur la zone depuis une cellule quelconque contenant la formule.
Une petite vidéo pour visualiser cela sur le lient suivant :


Ce que je cherche à faire :
Lorsqu'on change de couleur, que la cellule contient la formule de cet UDF, que le "refresh" soit automatique.
On pourrait aussi prévoir de lancer un "sub" sur toute la plage mais à ce stade, je préfère imaginer de trouver une solution pour passer par un "refresh" automatique (target).

Ce qui a été essayé
Code VBA (fourni par JOB75 - merci!) enregistré dans "this workbook" pour forcer le recalcul de l'UDF.
Mais la plage ne se met pas à jour comme souhaité.
(IE : changer d'onglet et revenir sur la feuil1, rien ne s'affiche).

Merci beaucoup pour votre aide.
Zebanx

Le code de l'udf

Function VCH(rng)
'-- Valeur Couleur Hour
'x = cref.Interior.Color
ta = rng.Value
On Error Resume Next
i = Application.Caller.Row
j = Application.Caller.Column
If Cells(i, j).Interior.Color = RGB(255, 255, 255) Then VCH = "": GoTo fin
If Cells(i, j).Interior.Color = RGB(216, 216, 216) Then VCH = "": GoTo fin
If Cells(i, j).Interior.Color <> Cells(i - 1, j).Interior.Color Then
    VCH = ta(i - 1, 1)
    ElseIf Cells(i, j).Interior.Color <> Cells(i + 1, j).Interior.Color Then VCH = ta(i, 1)
    Else: VCH = ""
End If
fin:
End Function

 

[sylvanu]

Bonjour Zebanx,
Un essai en PJ avec un WorksheetChange.
Vous n'en voulez pas mais cela peut être la solution, à vous de voir, et à tester.
Il suffit de cliquer sur une cellule pour changer la couleur et tout recalculer.

 

[zebanx]

Bonjour Sylvanu

Déjà merci pour t'être intéressé à ce fil (on peut se tutoyer si ça ne vous dérange pas) et de proposer cette solution.
Il y a plus de couleurs à utiliser mais incontestablement, on va dans le bon sens et la piste me donne envie de travailler sur cette base.

Donc "j'achète".

Bon apm/confinement
zebanx

 

[sylvanu]

Bonsoir,
Je pense même dans ce cas qu'on peut virer les formules dans les cellules et les intégrer dans le VBA. Je regarderais.
Juste une question. A l'ouverture du fichier tout s'efface, c'est normal ?

 

[zebanx]

Bonjour Sylvanu, le forum

C'est une autre étape mais il faudra y songer peut-être (parce qu'une application.volatile peut amener parfois quelques soucis si le fichier est disons... chargé).

Pour le moment, l'idée de rafraichissement des formules par simple utilisation de la palette de couleurs me va bien.
Une étape un peu plus développée ci-joint avec des sous-totaux par couleurs. C'est basique mais correspond à mes attentes sur ce fichier pour le moment. Ton code fonctionne très bien avec les indications précises que tu avais indiqué (application.volatile, alea() et le code VBA sur la feuille).

S'agissant de ta question, en fait c'était le code de rafraichissement dans "this workbook" du fichier 1 qui posait problème. Il n'est plus présent dans le fichier.
(Et pourquoi je l'avais utilisé ?. Cf fil joint

Résolu - XL 2013 - Planning absences mensuel 1 ligne par employé

Bonjour chère forum, Je vous contacte car j'ai besoin d'aide sur un fichier de suivi d'absences que j'essaie de mettre en place. J'ai un onglet par mois sur lequel se trouve la liste des employés avec leur numéro, leur nom et leur poste. Je dispose d'une base qui répertorie les absences par...

www.excel-downloads.com

)

Encore merci pour ton aide.
Bonne journée
zebanx