Boucle infinie sur macro

Bonjour,
Cela fait plusieurs fois que j'ai des bugs. En pas à pas, je me suis aperçu que sans raison (voulue), la macro bascule sur une autre macro d'un autre fichier sans aucun rapport.
A priori, cela peux m'arriver a différents endroits du code et sur différente macros et cela n'appel a chaque fois la macro suivante qui boucle sur elle-même a l’infini.

Code:

---

1 2 3 4 5 6 7 8 9 10

Function RecupCommentaire(c) ' Récupère dans la cellule le commentaire de la cellule c   Application.Volatile If c.Comment Is Nothing Then RecupCommentaire = "" Else RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ") End If End Function

---

Je ne suis pas l'auteur de cette macro mais elle est de mon point de vue très bien faite. Je n'arrive pas a comprendre ce qui ce passe. :?

Bonjour

Il s'agit d'une fonction qui je pense agit à chaque fois qu'il y a une quelque chose dans ton code sur une cellule.

Dans cette fonction il y a Application.Volatile, ce qui signifie qu'elle agit comme une fonction Excel et donc calcul quelque chose (ici recherche de commentaires sur une cellules) à chaque fois que tu agis sur l'une qui comporte celle-ci.

Elle remplace les retours chariots par un blanc dés qu'elle rencontre un commentaire dans une cellule.

Si elle t'est utile rien à faire à part supprimer le calcul automatique, où sinon mets Application.Volatile en commentaire.

Philippe

Bonjour Philippe,
Sur tes conseils, j'ai mis en commentaire la ligne Application.Volatile et après quelque essais cela fonctionne comme avant mais le bug survient encore.
J'utilise cette fonction dans des cellules (planning hebdo) avec un INDEX\EQUIV pour récupérer les commentaire d'une autre feuille (planning annuel). Après avoir mis un commentaire dans le planning annuel, je me repositionne sur l'onglet hebdo pour voir mon commentaire se mettre a jour. Cela n'as pas fonctionné au début et j'ai trouvé un artifice c.a.d que j'ai ajouté <Calculate> dans chaque feuille hebdo au niveau de la procédure <activate>. J'aimerais trouvé un autre moyen de rendre cette fonction dynamique sans passer par le <Calculate> qui m'annule systématiquement la mémoire tampon du copier / coller.
Peut-être qu'une nouvelle approche ne comporteras pas ce bug. :arf:

Bonjour,
Lorsque qu‘une macro est assujettie au contenue de cellules et que son rôle est également de modifier le contenu de cellule, ta macro vas tourner en boucle.
Tu dois interdire le traitement d’une nouvelle occurrence pendant le temps d’exécution de la macro.

Code:

---

1 2 3 4 5 6 7 8

Static Exec As Boolean If Exec = True Then Exit Function 'OU SUB Exec = True 'Code...     Exec = False End Function 'OU SUB

---

Pour interdire à l’endroit où tu as mis les instructions en commentaire.

Bonjour rdurupt,
En mode pas a pas,quand je reviens sur ma feuille,le<Calculate> de la procédure <activate> me lance ma macro sur toute les cellules.Pour chaque cellule, la macro démarre et se termine normalement. J'ai essayé ton code et je comprend son rôle mais bizarrement la variable Exec est toujours vraie et ma macro n'est pas executée. Ci-dessous, la formule que j'utilise dans mes cellules:

Code:

---

=RecupCommentaire(INDEX(Noms_Semaine;EQUIV(A46;Noms;0);$J$33+8))

---

"Noms" et "Nom_semaine" sont des cellules dans le planning annuel.

Bonsoir,
Donne-moi la totalité de la macro où tu as mis en commentaire ‘Application.Volatile
Je vais regarder il ne faut pas oublier de remettre la variable Exec=false à la fin de ta macro .

Bonjour Robert,
Finalement, j'ai épuré mon fichier pour pouvoir le présenter sur le forum.
Avec ta modif, les commentaire sont affiché a l'ouverture du fichier mais si je passe sur un autre onglet entre temps, toutes mes cellules affiche 0. J'ai mis un "Calculate" a l’activation de la feuille pour que ma fonction se rafraichisse mais si je pouvais m'en passer, ça me permettrais de faire des copier / coller.
Merci d'avance

Bonjour,
J’ai mis ma variable en public.

Code:

---

Public Exec As Boolean

---

Et je la passe a false quand je change d’onglet.
Test et dis-moi.
A+

Code:

---

1 2 3

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Exec = False End Sub

---

Bonjour,
Robert, d'abord merci pour tes efforts ;)
Ta modif fonctionne a condition que je remette le <Calculate> de la procédure <activate>. j'aurais aimé pouvoir m'en passer car si j'essaye de copier / coller d'une feuille a l'autre, la sélection disparaît.
L'autre problème apparaît encore mais le fait d'avoir un fichier allégé (j'ai beaucoup de ligne a traiter le fichier original) m'as fait comprendre ce qui ce passe:
Si ce fichier est ouvert, les manipulation faite dans un autre fichier (ouverture d'1 usf, passage d'1 combobox a 1 autre ...) me font basculer sur cette macro avec une boucle sur chaque ligne.
La différence avec ton code c'est que la macro n'est pas entièrement parcouru puisque le test "if Exec" est vrai et ton code mis dans le fichier d'origine m'a résolu le message d'erreur avec un plantage a la clé. :ccool:
Donc un gros :merci: et un gros :plusser:

Je considère le sujet :resolu: même si j'aurais voulus pouvoir me passer du <Calculate>