Discussion :

[yizashi]

Bonjour,

je souhaite utiliser la fonction replace sur la colonne I d'une feuille nommée "Comptes". L'objectif est de modifier une partie de la formule "RECHERCHEV".

Voici le code utilisé ou du moins un extrait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim sh As Worksheet
Set sh = Worksheets("Comptes")
 
' divers traitements
 
With sh
 
        .Range("I9:I" & ligneDest).Replace What:=",15,", Replacement:=",5,", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
End with

Je m'attendais à ce que la fonction Replace s'applique à la feuille Comptes, colonne I. En réalité, elle s'applique à toutes les feuilles du classeur et toutes les colonnes...

Résolu: j'ai constaté que sur un autre poste avec Windows 7, ça fonctionnait correctement. J'utilise Windows 8.1 et j'ai donc essayé le mode compatibilité => plus de bug. Sans le mode compatibilité, ça fonctionne de manière aléatoire, parfois ça bug, parfois non.

Désolé pour le dérangement!

[Chtik]

Bonjour,

Chez moi, sur Windows 8.1, le code s'exécute comme tu le souhaite en remplaçant le 15 de la colonne I par 5.

Par contre, ta variable ligneDest, n'est pas définit dans le code que tu fournit. J'ai donc supposé :

Code :

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

ligneDest = Range("I" & Rows.Count).End(xlUp).Row

Chtik

[yizashi]

Ma variable était définie, mais comme c'est un code assez long, j'avais enlevé cette partie. Bref c'était pas un problème de codage puisque sans changer le code, le problème a disparu.

Merci pour ton aide.

[Docmarti]

Bonjour

Tu as fort probablement fait juste avant une recherche ou un remplacement sur tout le classeur. Et les paramètres de cette recherche sont devenus les valeurs par défaut qui vont s'appliquer même à une recherche ou remplacement par VBA.

Donc il faut faire une nouvelle recherche pour changer ces paramètres avant d'utiliser la fonction REPLACE.

Code :

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

Set Inutile = Worksheets(1).Range("A1:A1").Find("Inutile ", LookIn:=xlValues)