Excel et macro en Python

bon cette fois-ci au lieu de reboucler on a un objet vide quand il n'y a plus rien à remplacer. En mettant ce code qui fait sortir de la boucle si l'objet c est vide cela devrait fonctionner :

Code:

---

1 2 3

Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While c.Address <> firstAddress

---

Je comprends la logique, mais pourquoi dans le cas de caractères numériques ou spéciaux, la c.value passe à Nothing en provoquant une erreur. ?
Alors que dans la cas "classique", il boucle et si c.find(next) renvoie null, c.value passe aussi en nothing mais sans provoquer d'erreur....

Je ne comprends pas

je ne suis pas un spécialiste mais si tu regardes les exemples Microsoft sur le findNext ici, il y a bien un double test sur les deux derniers exemples.

Hello,
Remarques concernant l'utilisation de Find et de FindNext.
1 - Attention si on change des options dans les boîtes de dialogue Rechercher, Remplacer d'Excel, si on ne change pas ces options dans le code VBA, ce sont les options des boîtes de dialogue qui seront prises en compte.
2 - Si l'on remplace ce que l'on recherche, normalement on ne boucle pas car la valeur que l'on recherche n'est plus présente et donc on a normalement un Nothing sur le findNext qui devait nous ramener au départ. Si cela n'est pas le cas c'est que le remplacement de la première valeur trouvée n'a pas fonctionné ou que l'on remplace par la même valeur.
3 - Attention à l'option LookAt du Find, si l'on fait une recherche sur une partie du contenu de la cellule, il faut mettre l'option à xlPart.


Dans le cas de FadeToBlack, il faut donc s'interroger de savoir si tous les remplacements ont eu lieu car normalement si c'est le cas on ne doit pas boucler et donc toujours sortir sur un c à Nothing. Pour piéger le cas ajouter :

Code:

---

1 2 3 4 5 6

If c Is Nothing Then Debug.Print "c = Nothing" Exit Do ElseIf c.Address = firstAddress Then Debug.Print "Bouclage : ", firstAddress, c.Value, oldV, NewV End If

---

Dans la fenêtre d'exécution de VBA s'affiche alors la première adresse trouvée avec la dernière valeur de la cellule, la valeur à remplacer, la valeur de remplacement.


Ami calmant, J.P