Problème appelle d'une procédure

[Nanir]

Bonjour à tous,

J'ai un problème pour appeler une procédure. Les macros sont assez simples mais l'appelle ne fonctionne pas. J'ai besoin de vos avis d'expert.
Voici les 2 modules concernés:

Sub Image125_QuandClic()
Application.ScreenUpdating = False
X = Range("C65000").End(xlUp).Row
If Cells(X, 3).Value = 1 Then
Exit Sub
Else
Rows(X).Delete
Module8.testcouleur
End If
End Sub

Sub testcouleur()
Application.ScreenUpdating = False
Dim DernM As Integer
With Worksheets("Anf")
DernM = Range("M65536").End(xlUp).Row
End With

Range("PremL" & ":" & "M" & DernM & "").Select
For Each rw In Range("PremL" & ":" & "M" & DernM & "").Rows
If Range("AN").Value <> 0 Then
If rw.Value < Range("AN").Value Then
[Anf!q4] = Cells(DernM, 13).Value
Cells(DernM, 13).Select
Else
dep = rw.Row
[Anf!q4] = Cells(dep - 1, 13).Value
Cells(dep - 1, 13).Select
End
End If
Else
[Anf!q4] = 0
Range("PremL").Select
End If
Next rw
End Sub

Le problème est que le module 8 ne se lance pas.
Pouvez vous m'aider?

 

[Nevil]

Re : Problème appelle d'une procédure

Salut,

remplace ton "Module8.testcouleur" par:
Call testcouleur

Si testcouleur est le nom de ta fonction

 

[Nanir]

Re : Problème appelle d'une procédure

Bonjour Nevil,

J'ai déja essayer avant de poster mais sans succès. Si je lance la macro8 seule ca fonctionne, par contre toujours impossible de l'appeler via une autre macro.

 

[Nevil]

Re : Problème appelle d'une procédure

Peux tu envoyer ton fichier stp. Ca me permétrait de voir si ce souci vient de la facon d'appeler la fonction ou si ca vient d'ailleur.

Merci

 

[Nanir]

Re : Problème appelle d'une procédure

En depouillant le fichier j'arrive à un poid de 54Ko compressé.
Je continue à effacer des choses et je l'envoie.

 

[Nanir]

Re : Problème appelle d'une procédure

Voici le fichier,

N'hésitez pas à me demander si vous ne comprenez pas.
Mot de passe VBA = a

Merci.

 

[Nanir]

Re : Problème appelle d'une procédure

oups! encore trop gros...
Je ressaie...

 

[Nanir]

Re : Problème appelle d'une procédure

Je suis désolé, pas possible d'envoyer le fichier, je dois supprimer trop de choses.

 

[Nanir]

Re : Problème appelle d'une procédure

Bonjour à tous,

Après un nombre d'heure incalculable j'ai trouvé ce qui bloque mon code. J'hésite même à ouvrir une nouvelle discussion...
En fait tout allais bien jusqu'à ce que j'insère une feuille avec des formules MOIS.DECALER().
En effet lorsque j'utilise cette feuille je dois cocher "utilitaire d'analyse" pour que le calcul se fasse. Par contre si je change de feuille, je dois décocher "utilitaire d'analyse" pour que le code ne plante pas.

Avez vous déja rencontrer ce problème?
Y'a t'il une parade?

Je vous remercie de votre aide.

 

[Nanir]

Re : Problème appelle d'une procédure

re tout le monde,

Après quelques recherche sur le site j'ai trouvé la solution :

A l'affichage de la feuille contenant la formule mois.decaler il faut insérer le code suivant :
AddIns('Utilitaire d'analyse').Installed = true

Pour les autres feuilles :
AddIns('Utilitaire d'analyse').Installed = false

Maintenant tout fonctionne correctement.