Discussion :

[jurassic pork]

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 :

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

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

[FadeToBlack]

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

[jurassic pork]

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.

[jurassic pork]

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 :

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

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