Trouver-remplacer en VBA

[wowette]

Bonjour,

Je reviens vers vous car j'ai besoin d'aide assez rapidement et je n'arrive pas à trouver la solution.

Voilà j'ai une formule dans une cellule qui reprend une donnée d'un autre classeur. Ex de la formule: =[Classeur2010]Feuil1!$A$1

J'aimerais changer l'année car j'ai un nouveau classeur (2011).

Je pourrais utiliser la fonction trouver remplacer mais j'ai plus de 4000 cellules a changer et Excel peine à fond!

Quelqu'un pourrait il m'indiquer comment faire via VBA?

Merci d'avance!

 

[JNP]

Re : Trouver-remplacer en VBA

Bonsoir Wowette 🙂,
Le Remplacer utilisé en VBA sera au mieux aussi long, au pire plus long que le Remplacer natif 😛...
Par contre, si tu désactivais le calcul automatique avant de lancer le Rechercher/Remplacer, je pense que là tu gagnerais ton beurre 😀.
Bon courage 😎

 

[wowette]

Re : Trouver-remplacer en VBA

Aie! Je te remercie pour ta réponse mais comment enlever la rechercher automatique?

 

[JNP]

Re : Trouver-remplacer en VBA

Re 🙂,
Ça dépend de ta version d'Excel 😛 ...
Sous 2007, c'est le gros bouton Windows où tu vois en bas Options, et là tu trouves la possibilité de passer en calcul manuel.
Sous 2010, c'est dans Fichier que tu trouves les options.
De mémoire, sous 2003, c'était plutôt dans Outils...
Sinon, via VBA

Sub ArrêtCalcul()
Application.Calculation = xlCalculationManual
End Sub
Sub CalculAutomatique()
Application.Calculation = xlCalculationAutomatic
End Sub

La première passe le calcul en manuel, la deuxième relance le calcul automatique.
Bon courage 😎

 

[wowette]

Re : Trouver-remplacer en VBA

Parfait! Merci à tous