Bonjour
j'ai une fonction sur une feuille de calcul ( modele)dans un module je cree une nouvelle feuille et je copie les données de la feuille modele contenant les fonctions.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Function nb_font(plage As Range, cellule As Range) As Long Application.Volatile Dim celle As Range, nb As Long n = 0 For Each celle In plage If celle.Value = "" And celle.Interior.ColorIndex = cellule.Interior.ColorIndex Then n = n + 1 Next nb_font = n End Function
je voudrai que cette fonction se lance qu'a la fin du module
Partager