Cherche Bêta-testeurs

Bonjour

C'est un peu la suite de mon post "Analyse de code". J'ai créé

un classeur reprenant le code en amélioré. J'aimerais qu'il soit testé et commenté.

Merci.

Bonjour Yal_excel

Très joli développement

Sur un fichier avec un bouton lié à une macro, j'ai un bug ici

@+

Bonjour

Merci pout le compliment et surtout pour le retour de test.

Pourrais tu remplacer la la partie qui bogue :

            For Each Sh In .Shapes
              If .Shapes(Sh.Name).OnAction <> "" Then
                action = Split(.Shapes(Sh.Name).OnAction, "!")(1)
                If action = cle Then
                  tmp = dc.Item(cle) & "|" & Sh.Name & "|" & "Feuille " & f.Name & "|" & "" & "|" & "" & "|" & ""
                  Sheets("liste appels").Range("A" & n + 2 & ":H" & n + 2).Value = Split(tmp, "|")
                  n = n + 1
                End If
              End If
            Next Sh

Par ceci :

            For Each Sh In .Shapes
              If InStr(1, .Shapes(Sh.Name).OnAction, cle) > 0 Then
                tmp = dc.Item(cle) & "|" & Sh.Name & "|" & "Feuille " & f.Name & "|" & "" & "|" & "" & "|" & ""
                Sheets("liste appels").Range("A" & n + 2 & ":H" & n + 2).Value = Split(tmp, "|")
                n = n + 1
              End If
            Next Sh

Je crois que je m'étais un peu compliqué l'existence…

Bonjour Yal,

bravo pour cet outil.

voici le résultat d'un test sur un de mes classeurs. Il semble y avoir un problème entre la détection d'une instruction d' appel de fonction et l'instruction de renvoi de sa réponse

Dans une fonction le nom de la fonction désigne aussi bien la fonction que sa réponse et en effet pour le moment le programme ne fait pas la différence.

Je réfléchi à une manière de faire la différence mais pour le moment je n'ai rien d'opérationnel, j'y réfléchi . A suivre

Merci pour ce retour.