Boucle sans fin avec Function

[Luc]

Bonjour le forum,

Dans le code suivant, j'ai une boucle sans fin qui se produit et je ne sais pas comment l'arrêter sauf avec le population Ctrl + alt + suppr :

Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each Cell In SearchArea
If Cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next Cell
End Function


Quelqu'un pourrait m'aider à corriger cela ?

Merci

 

[Luc]

Bonjour le forum,

Je mets le fichier pour vous aider à m'aider.

Merci [file name=Test_20051130190637.zip size=20082]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20051130190637.zip[/file]

 

[PascalXLD]

Bonjour

Tiens bizarre il me dis quelque chose ce code

Bon si tu utilises bien cette fonction il n'y a aucune raison qu'elle boucle

Donc envoie peut-être un petit morceau du fichier avec la feuille où il y le problème pour voir

 

[PascalXLD]

Re

Ce n'est pas la fonction qui tourne en boucle

C'est ton code de verification

En effet tu appelles une macro qui appelle elle-même la macro appelante qui va rappeler la macro qui va rappeler la macro appelante ......

Il faut revoir ton code de tes 2 macros : Couleur et Verification

Message édité par: Pascal76, à: 30/11/2005 19:18