Rechercher et remplacer

Fermé
on - Modifié par Whismeril le 14/04/2015 à 22:51
 on - 15 avril 2015 à 17:46
Bonjour,
Voici mon problème: je veux remplacer, par VBA, Prix_10 par Prix_15, et j'ai utilisé la fonction suivante :
Cells.Replace What:="P_10", Replacement:="P_15"

Mais le résultat obtenu est : "P_150", il remplace le premier chiffre 1 par 15 et c'est tout.

Par ailleurs, cette fonction de remplacement est trop lourd, ça prend 2 minutes environ pour remplacer 15 trucs, même si j'ai mis la fonction xl manual au debut.


Avez-vous une idée? MERCI

EDIT: Ajout de la coloration syntaxique.

2 réponses

PAPAWALKER Messages postés 3 Date d'inscription vendredi 26 novembre 2010 Statut Membre Dernière intervention 14 avril 2015
14 avril 2015 à 22:14
Bonsoir,

ça ne semble pas compliqué pourtant même si ta demande est floue.
Tu veux rechercher dans une plage donnée?
Une feuille?
tout un classeur?

Peux-tu joindre un fichier ou coller ton code VBA?
Cordialement
0
PAPAWALKER Messages postés 3 Date d'inscription vendredi 26 novembre 2010 Statut Membre Dernière intervention 14 avril 2015
Modifié par Whismeril le 14/04/2015 à 22:51
Re bonsoir,

Ce code VBA va scrutter toute ta feuille pour faire ce que tu attends. C'est as aoptimum, mais en l'état... si ça peut t'aider?

Cordialement


Sub Macro1()
'
' Macro1 Macro
'

'
   
    Cells.Replace What:="Prix_10", Replacement:="Prix_15", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
0
Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
14 avril 2015 à 22:51
EDIT: Ajout de la coloration syntaxique.
0
on > Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024
15 avril 2015 à 17:46
Salut! J'ai essayé ce code mais le problème demeure toujours. J'ai fiat remplacer P_10 par P_11 et ç donne P_111??
Merci quand même
0
MERCI! Je vais l'essayer.
0