Modifier formule

[choupette51]

Bonjour à tous

Voila j'ai une formule à modifier
cette formule est dans 49 colonnes et 250 lignes
voici cette formule de départ.

=SI(ET(NB.SI($D3:$H3;AA$57)>0;NB.SI($D3:$H3;Z$39)>0);1;0)
je désire remplacer AA$57 par AK$65 dans toute les cellules
=SI(ET(NB.SI($D3:$H3;AK$65)>0;NB.SI($D3:$H3;Z$39)>0);1;0)

Merci d'avance.

 

[mromain]

Re : Modifier formule

bonjour choupette51

voici une solution :

tu sélectionnes les cellules à modifier et tu lances cette macro :

Sub test()
Dim curCell As Range
For Each curCell In Selection.Cells
    If curCell.HasFormula Then curCell.FormulaLocal = Replace(curCell.FormulaLocal, "AA$57", "AK$65")
Next curCell
End Sub

edit: salut hoerwind, encore plus simple 😉

a+

 

[hoerwind]

Re : Modifier formule

Bonjour,

Sélectionner la plage.
Menu Édition - Remplacer
Rechercher : AA$57
Remplacer par : AK$65
Remplacer tout

 

[job75]

Re : Modifier formule

Bonjour choupette51, mromain,

Votre formule a des références mixtes, est-ce bien toujours AA$57 que vous voulez remplacer par AK$65 ?

Si oui, vous pouvez simplement utiliser la commande Remplacer (touches Ctrl+H).

Si non, il faudrait nous donner la formule en notation L1C1 : pour l'obtenir, menu Outils-Options-Général et cocher Style de référence L1C1.

Edit : salut hoerwind, pas rafraichi. Et bravo pour le correcteur d'orthographe sur l'autre fil.

A+

 

[choupette51]

Re : Modifier formule

Merci à tous d'avoir répondu aussi vite

J'ai opté pour la formule de Hoerwind la plus simple
après modif résultat obtenu OK

Alors MERCI et bonne journée.
résolu