Discussion :

[Guizmonster]

Bonjour,

J'ai besoin de votre aide car je sèche malgré mes recherches.
J'ai un fichier excel où il y a pas mal de cellules avec des valeurs données par des fonctions SI qui vont chercher des valeurs ailleurs. Quand cela ne fonctionne pas, il faut venir écrire les valeurs à la main, c'est pour cela que la cellule n'est pas protégée.
J'aurais besoin d'une macro qui permette de remettre les formules dans les cases.

Par exemple en D10, j'ai besoin d'écrire la fonction Si="HT"; P10; R10"

MErci d'avance.

[Menhir]

J'aurais besoin d'une macro qui permette de remettre les formules dans les cases.

Quelles formules dans quelles cases ?

Par exemple en D10, j'ai besoin d'écrire la fonction Si="HT"; P10; R10"

Il manque un élément dans ta formule, entre le "Si" et le "=" : qu'est-ce qui est comparé à "HT" ?

[Guizmonster]

Quelles formules dans quelles cases ?


Il manque un élément dans ta formule, entre le "Si" et le "=" : qu'est-ce qui est comparé à "HT" ?

Bonjour menhir,

La formule, qui se trouve pour cet exemple en D7, est =Si(B7="HT"; P10; R10)
J'avais écrit rapidement désolé.
Une fois que j'ai le code, je pourrais le faire pour chaque cellule. Mais c'est une variante, toujours de fonction SI, de celle que j'ai mise. En gros je lis le texte de la cellule et j'affiche la valeur en fonction.

Bien cordialement

[Menhir]

La formule, qui se trouve pour cet exemple en D7, est =Si(B7="HT"; P10; R10)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D7").LocalFormula = "=SI(B7=""HT""; P10; R10)"

Une fois que j'ai le code, je pourrais le faire pour chaque cellule.

Si tu dois le faire cellule par cellule, j'espère pour toi que tu n'en as pas beaucoup.
Sinon ça risque d'être très fastidieux.

[Guizmonster]

Quand je prends ta formule et que j'exécute la macro, j'ai une erreur 438.

Edit: en passant par de la fonction IF, j'arrive à mes fins.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D7").Formula = "=SI(B7=""HT"", P10, R10)"

[Menhir]

J'ai fait une erreur d'inattention : le nom de la méthode n'est pas LocalFormula mais FormulaLocal.