Discussion :

[Denis_67]

Bonjour,

Bien que dans ma macro je précise les paramètres de remplacement, à l'exécution, c'est le parametrage de la boite de dialogue qui a été conservé.

Comment être sûr de la portée.
question subsidiaire pour ne pas perturber l'utilisateur, comment capturer l'état de la box avant le remplacement et le remettre en place après ?

La fonction est décrite par microsoft, ou il est bien dit que le code change la valeur de la box de dialogue.
https://msdn.microsoft.com/fr-fr/lib.../ff194086.aspx

Mon code:
Dans mon cas, la macro a remplacé tous les "." de mon classeur par des "/", car j'avais fait manuellement un remplacer sur le classeur précédemment, alors que je l'attendais sur la colonne S (sans le titre d'ailleurs.

Code :

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

1
2
3
4
5
    Range("s2").Select
    Range(Selection, Selection.End(xlDown)).Select
        Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

merci pour vos conseils
Denis

[Menhir]

Perso, je ne suis pas fan des Select. Tant qu'on peut les éviter...

Code :

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

1
2
    Range("S2:S" & Range("S2").End(xlDown).Row).Replace What:=".", Replacement:="/", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[Denis_67]

Merci Menhir,

mais le fait de sélectionner un range ne change rien.

Même avec la selection en range, si tu as au préalable fait un remplacer sur classeur dans la boite de dialogue utilisateur chercher remplacer, la macro remplace toutes les valeurs
sans tenir compte de l'attribut LookAt:=xlPart.

par contre si on ferme Excel et qu'on le rouvre l'étendue du remplacer repasse sur feuille par défaut.

Extrait de l'explication micro soft en lien ci dessus

Les paramètres des arguments LookAt, SearchOrder, MatchCase et MatchByte sont enregistrés à chaque fois que vous utilisez cette méthode. Si vous n’indiquez aucune valeur la fois suivante, ce sont les valeurs enregistrées qui sont utilisées. Le fait de donner une valeur à ces arguments modifie les paramètres de la boîte de dialogue Rechercher. De même, modifier les paramètres de la boîte de dialogue Rechercher modifie les valeurs enregistrées qui sont retenues lorsque vous omettez les arguments. Pour éviter toute ambiguïté, donnez des valeurs à ces arguments à chaque utilisation de la méthode.

Etonnant, en utilisant l'enregistreur de macro, le fait de prendre en compte l'option "feuille" ou "classeur" n'affecte pas l'attribut LookAt qui reste dans les deux cas en Xlpart.

pouvez vous faire le test sur votre excel ?
(petite erreur, je suis en 2010 et pas en 2007, mais je ne pense pas que cela ait une influence.)
Denis

[Menhir]

la macro remplace toutes les valeurs sans tenir compte de l'attribut LookAt:=xlPart.

L'option LookAt n'influence pas la zone de recherche.
Elle définit simplement si, pour chaque cellule, Excel recherche une correspondance avec la totalité de la cellule ou peut se contenter d'une correspondance avec une partie du contenu.

[Denis_67]

Tu as raison Menhir, le Xlpart correspont bien à la cellule.

Bon j'ai trouvé un article qui confirme mon problème et donne une solution
Il faut désactiver le mode classeur par une recherche bidon pour réinitialiser le mode feuille.

https://www.curuba.fr/index.php/astu...lasseur-entier
Il n'y a pas de date ni de version d'Excel, mais en tout cas ça marche en 2010.

Mon code devient

Code :

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

1
2
3
4
5
6
7
Sub test_remplace()
Dim Z_Reset As Range
Set Z_Reset = Worksheets(1).Range("A1:A1").Find("Reset", LookIn:=xlValues)
 
Range("c2:c" & Range("c2").End(xlDown).Row).Replace What:=".", Replacement:="/", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Denis