remplacer cell dest CA par 5.83 en VBA Fermé

Question

Bonjour,

Urgent et désespéré !!


 Sheets("sept").Select
    Selection.Replace What:="ca", Replacement:="5.83", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False

Cette macro permet de remplacer toutes les cellules dont la contenu est CA par 5.83.C'est bien mais ce n'est pas ce que je veux.

Ce que je veux c'est chercher toutes les cellules contenant CA mais remplacer la cellule a droite par 5.83,c'est à dire si CA est en a1 alors la cellule que l'on va remplacer est a2.

Je suis désespéré.J'ai une autre méthode mais elle prend du temps,bien trop de temps.

Pitié.Si vous avez une solution ??

RV

phil_232 · Answer

"J'ai une autre méthode mais elle prend du temps,bien trop de temps."
c'est normqle. Excel n'est pas une base de données mais une feuille de calcul. bref tu dois parcourir toutes les cellules une par une et remplacer la cellule adjacente.

rvz · Answer

Ok,mais ma solution est d'incrémenter des formules et ce n'est pas ce que je souhaite car le fichier est gros.
Donc si il existe une solution du type :
Sheets("sept").Select 
Selection.Replace What:="ca", Replacement:="5.83", LookAt:=xlWhole, _ 
SearchOrder:=xlByRows, MatchCase:=False 

Mais qui laisse CA et met dans la cellule à coté 5.83,merci de ma la communiquer svp
Parce que là je rame

RV

phil_232 · Answer

la fonction de Replace est forte dans Office mais je crois que là tu demandes trop

rvz · Answer

Ok,merci quand m^me

RV

Remplacer cell dest CA par 5.83 en VBA

4 réponses

Discussions similaires