rechercher remplacer en VB sur excel

Marsh Posté le 27-01-2014 à 17:08:26

Bonjour,

je voudrais grace a une macro vb sous excel remplacer tous les "toto" par "tata" dans un tableau mais sans modifier par exemple "toto 2"
j'ai ce script qui fonctionne bien:

Code :

Public Sub Rempl()
Dim feuil As Worksheet
For Each feuil In ThisWorkbook.Worksheets
Cells.Replace What:="toto", Replacement:="tata", LookAt:=xlPart, SearchOrder _
:=xlByColumns, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Next feuil
End Sub

mais le probleme c'est que si il tombe sur une case "toto 2" il va me la remplacer par "tata 2" ce que je ne veux pas.
comment faire en sorte que cela respecte bien la casse?
avec le MatchCase:=True je pensait que ca serait bon mais ce n'est pas le cas.

merci pour votre aide.

Marsh Posté le 27-01-2014 à 17:08:26

Marsh Posté le 27-01-2014 à 17:19:00

Bonjour,

parce que ce n'est pas un problème de casse mais de logique ‼

Pourquoi avoir paramétré alors LookAt à xlPart ?

Marsh Posté le 27-01-2014 à 17:21:07

bah je ne sais pas trop, je ne connait pas trop ce langage, j'ai recuperé ce bout de code et essayé de trouver les parametres qui vont bien mais je n'y arrive pas.
donc il faut changer le parametres pour lookat?

edit: ca doit etre xlWhole en fait, je vais test :jap:

Message édité par bozoleclown le 27-01-2014 à 17:22:25

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *