Discussion :

[Excel_man]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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

[Excel_man]

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.

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Excel_man]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Invité]

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 .