XL 2013 Mise à jour VBA

xUpsilon à dit:

Bonjour,

Il s'agit d'un problème de mise à jour du calcul d'une fonction personnalisée. Personnellement, j'utilise souvent une variable volatile.
Voir notamment sur ce post pour plus d'infos sur les diverses solutions à ce problème.

Bonne journée,

Cliquez pour agrandir...

xUpsilon à dit:

Bien, alors il faut juste faire ceci :

VB:

Function CompterCouleur(PlageCouleur As Range, Couleur As Range, Optional VolatileParameter As Variant)

Dim CodeCouleur As Integer
Dim NbrCouleur As Integer

CodeCouleur = Couleur.Interior.ColorIndex
Set CCell = PlageCouleur
For Each CCell In PlageCouleur
If CCell.Interior.ColorIndex = CodeCouleur Then
NbrCouleur = NbrCouleur + 1
End If
Next CCell
CompterCouleur = NbrCouleur


End Function

Et dans la formule Excel ceci : =CompterCouleur('Feuill'!H7:H300;'Feuill'!C1;MAINTENANT())

Ca devrait fonctionner correctement à présent.

Bonne journée,

Cliquez pour agrandir...

xUpsilon à dit:

Re,

Question bête mais es-tu bien en mode de calcul Automatique ?
Regarde la pièce jointe 1177569

Sans ça, j'avoue ne pas avoir d'autres idées, je suppose que le changement de couleur sans changement de valeur ne trigger pas de recalcul.

Bonne journée,

Cliquez pour agrandir...

1. a chaque fois que tu sélectionne une cellule
2. tu change une valeur
3. et toute autres actions sur une feuille

patricktoulon à dit:

Bonjour
ça ne peut pas marcher tout simplement par ce que changer la couleur ne peut en aucun cas déclencher le calculate aucune des astuces que j'ai trouvé ici et là ne fonctionnent réellement

il faut un changement de valeur pour que le calculate se mette en route
maintenant il y a des astuces
et dans la foirefouille de patricktoulon
il y a une astuce avec un events commandbars non implémenté
en effet mettre des timers sont très souvent bloquant ou ralentissent le fonctionnement du reste du fichier
alors il faut savoir que:

1. a chaque fois que tu sélectionne une cellule
2. tu change une valeur
3. et toute autres actions sur une feuille

et bien tu modifie certains éléments des menus du ruban et des menu contextuels(même si tu ne le vois pas )
parti de la on implémente un event update des commandbars
parti de la a chaque fois que tu va faire quelque chose sur la feuille ben tu va exciter cet event
ben le reste est facile à comprendre tu fait ce que tu veux dans cet event

le tout peut se faire dans le thisworkbook(qui est un module classe à part entière)

démonstration dans le fichier joint
tu va dans la feuil1 la surveillance commence tu va sur une autre feuille la surveillance s’arrête
tu change la couleur en c1(c'est la couleur recherchée en h7:h300 me semble t il)
tu change les couleur de cellules dans la plage H7:H300 et en B4 tu aura en permanence le nombre de cellule de même couleur que C en h7:h300

cette surveillance en permanence n'est pas bloquante car elle utilise un event
tu peux donc travailler sur ta feuille comme si de rien n'était
voila voila

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour
ça ne peut pas marcher tout simplement par ce que changer la couleur ne peut en aucun cas déclencher le calculate aucune des astuces que j'ai trouvé ici et là ne fonctionnent réellement

il faut un changement de valeur pour que le calculate se mette en route
maintenant il y a des astuces
et dans la foirefouille de patricktoulon
il y a une astuce avec un events commandbars non implémenté
en effet mettre des timers sont très souvent bloquant ou ralentissent le fonctionnement du reste du fichier
alors il faut savoir que:

1. a chaque fois que tu sélectionne une cellule
2. tu change une valeur
3. et toute autres actions sur une feuille

et bien tu modifie certains éléments des menus du ruban et des menu contextuels(même si tu ne le vois pas )
parti de la on implémente un event update des commandbars
parti de la a chaque fois que tu va faire quelque chose sur la feuille ben tu va exciter cet event
ben le reste est facile à comprendre tu fait ce que tu veux dans cet event

le tout peut se faire dans le thisworkbook(qui est un module classe à part entière)

démonstration dans le fichier joint
tu va dans la feuil1 la surveillance commence tu va sur une autre feuille la surveillance s’arrête
tu change la couleur en c1(c'est la couleur recherchée en h7:h300 me semble t il)
tu change les couleur de cellules dans la plage H7:H300 et en B4 tu aura en permanence le nombre de cellule de même couleur que C en h7:h300

cette surveillance en permanence n'est pas bloquante car elle utilise un event
tu peux donc travailler sur ta feuille comme si de rien n'était
voila voila

Cliquez pour agrandir...

patricktoulon à dit:

If " Feuil1 Feuil2 Feuil3 " like"* " & " Sh.Name & " *" =Then

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,


A mon avis y a comme un soucy, voire deux.

Cliquez pour agrandir...

patricktoulon à dit:

si c'est la meme cellule ref et la même plage mais pour la feuille 1 2 et 3
change la sub sheetActivate c'est tout

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If " Feuil1 Feuil2 Feuil3 "  like"* " & " Sh.Name & " *" =Then
Set CMB = Application.CommandBars
Else
Set CMB = Nothing
End If
End Sub

Cliquez pour agrandir...

Lericounet06 à dit:

çà ne fonctionne pas mais je vais te joindre le fichier original.

Cliquez pour agrandir...

If " Feuil1 Feuil2 Feuil3 " like "* " & Sh.Name & " *" Then

TooFatBoy à dit:

As-tu corrigé la ligne erronée que je citais plus haut ?

Je pense qu'une syntaxe correcte donnerait ceci :

VB:

If " Feuil1 Feuil2 Feuil3 " like "* " & Sh.Name & " *" Then

Cliquez pour agrandir...