Actualisation automatique formule/module
Résoluandy2092 Messages postés 78 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai créé un calendrier avec plusieurs formules qui comptent les jours, weekends, jours fériés, etc.
J'ai aussi créé un module pour compter les cellules qui ont un remplissage de couleur bleu pour mes Congés Payés.
Voici mon module :
Function CompterCouleur(PlageCouleur As Range, Couleur As Range)
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 je mets ensuite la formule "=CompterCouleur($D6:$AH6;$AM$5)" dans la cellule AI6 pour compter toutes les cellules qui ont un remplissage "bleu" dans cette plage. (AM5 contient la couleur à chercher "bleu" et "D6:AH6" est la plage).
Le module fonctionne mais j'ai un souci car il ne s'actualise pas automatiquement.
Exemple:
Si je rajoute mon remplissage dans la plage :
La formule ne s'actualise pas et le compte reste à 0. Je suis obligé d'aller dans la formule et appuyer sur Entrée pour qu'elle s'actualise.
Savez-vous comment faire pour que le compte s'actualise automatiquement ?
Je vous ai mis mon fichier ci-dessous:
Mon fichier
Windows / Chrome 119.0.0.0
- Actualisation automatique formule/module
- Formule si et - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Formule moyenne excel plusieurs colonnes - Guide
5 réponses
Bonsoir
1) Au début de ta macro après les DIm rajoute cette ligne
Application.Volatile
2) Dans l'éditeur VBA, dans le worksheet de la feuille Planning tu mets cette macro qui fait fait recalculer la feuille lors d'un événement (ici ça se passera lorsque tu feras Entrée après avoir coloré une cellule) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Calculate End Sub
Cdlment
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question