Recherche remplace valeur d'une formule dans une colonne

Bon matin à tous,

Quelqu'un pourrait me donner un coup de main?

J'ai une macro enregistrée "live" dans un fichier de 20 000 lignes

mais elle ne donne pas le résultat escomptée.

Je voudrais que dans la colonne A, on change la valeur ;12; pour ;15; dans ma formule de recherchev().

etc.... colonne B on change la valeur ;13; pour ;16;

dans la colonne C on change la valeur ;14; pour ;17;

Merci à l'avance, ça me sauverait un temps énorme.

J'ai ajouté un fichier format réduit.

Bonjour,

Il te faut faire la recherche dans la formule. Je suis sur une tablette donc je ne peux pas te donner le code exact mais ça devrait ressembler à ça :

Range("A1").Formula = Replace(Range("A1").Formula,"12","15")

Merci pour la réponse,

ça fonctionne très bien avec la cellule A1

J'ajoute l'info pour le faire sur l'ensemble de la colonne et l'info pour inclure seulement les données entre les points-virgules (sinon elle change également les numéro de cellules dans la formules. mais je dois entrer une info erronée. ...

Columns("A:A").Select

Range("A:A").Formula = Replace(Range("A:A").Formula, ";14;", ";17;")

Bonjour,

Il te faut parcourir toutes les cellules des trois colonnes. Voici un code qui devrait fonctionner :

Sub Remplacer()

    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer

    With Worksheets("Feuil1")

        For I = 1 To 3

            Set Plage = .Range(.Cells(1, I), .Cells(.Rows.Count, I).End(xlUp))
            For Each Cel In Plage: Cel.Formula = Replace(Cel.Formula, CStr(11 + I), CStr(14 + I)): Next Cel

        Next I

    End With

End Sub

Merci bien,

Je viens de revenir de vacances, je ne vous avais pas oublier.

ça me donne une bonne piste de solution.

Au plaisir et merci encore.