Discussion :

[zakuli]

Bonjour,

Comment faire exécuter automatiquement dans une cellule une fonction réalisée en VBA ?

Mon exemple :

J'ai réalisé une fonction en VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Couleur(feuille, ligne, colonne As Integer) As Long
   Couleur = Sheets(feuille).Cells(ligne, colonne).Interior.ColorIndex
End Function

si je met dans la cellule B1 de la 1ère feuille "=couleur(1;1;1)", la couleur contenue dans la cellule A1 de la feuille 1 s'affiche bien dans la cellule B1 si je viens mettre mon curseur dans B1 et que je frappe sur la touche Entrée de mon clavier.

Je n'arrive pas à obtenir que le contenu de la cellule B1 change automatiquement quand je change la couleur de la cellule A1.

Que faut il faire pour que la mise à jour de la cellule B1 soit automatique ?

Merci de vos réponses

[aalex_38]

bonjour,


Je n'ai pas trouvé le moyen de le faire spécifiquement quand des couleurs sont modifiées, par contre il est possible d'intercepter les modifications des selections dans le classeur.
Dans Thisworkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Calculate
End Sub

edit : attention toutefois, ça peut être lourd de lancer le calcul à chaque modification de selection.
Pour un classeur pas trop lourd avec quelques formules comme dans le test que j'ai fais, ça marche plutot bien.

[zakuli]

merci aalex_38,

Mais n'y a-t-il pas un moyen simple pour que le calcul se fasse automatiquement comme par exemple pour l'addition de deux cellules dans une troisième ?

[Bigalo]

Bonsoir,

Malheureusement non, car le changement de couleur ne déclenche aucun événement particulier que l'on pourrait utiliser pour forcer la mise à jour.

Une solution un peu bâtarde est de rendre ta fonction volatile, ce qui provoque un recalcul à chaque fois qu'un calcul est effectué dans une cellule quelconque.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function Couleur(feuille, ligne, colonne As Integer) As Long
   Application.Volatile
   Couleur = Sheets(feuille).Cells(ligne, colonne).Interior.ColorIndex
End Function

Cela signifie que la MAJ sera faite régulièrement, en cas de modif quelconque déclenchant un calcul, ce qui n'est malheureusement pas le cas d'un simple changement de couleur

[zakuli]

Merci Bigalo,

Comme tu dis, c'est batard, mais ça marche au moins quand on relance un calcul par la touche F9, et on n'est pas obligé de mettre à jour cellule par cellule !

Merci

[CodeFacile]

J'ai une remarque , la fonction colorindex est du type variant car il y a des valeurs du type xlColorIndexAutomatic, xlColorIndexnone ( avec un long ça marche dans 99% des cas , je le fais).
Pour le forcer le rafraichissement, je fais F9 .

et pour simplifier , on peut faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Function Couleur(ByRef zone As Range) As variant
   Application.Volatile
   Couleur = zone.Interior.ColorIndex
End Function

[zakuli]

Merci CodeFacile,

Tu as raison, vaut mieux utiliser le bon type de variable si l'on veut que ça marche à tous les coups

Désolé d'en savoir si peu, mais pourquoi introduis tu la variable zone par un "ByRef" ?

A+