Modifier toute les formules d'un tableau en vba.

Bonjour :)

Je souhaite pouvoir modifier toutes les formules d'un tableau via un bouton Cmd.

J'ai actuellement la même formule dans toute les cellules de mon tableau. Ces formules me donne un résultat en pourcentage.

J'ai donc pour la cellule B12 : = 100/500 . Cela me donne 20% avec un format de cellule en pourcentage. Ce que je souhaite pouvoir faire c'est rajouter 1-(la formule de la cellule). cela me donnerai donc = 1-(500/100) . Je veux pouvoir afficher le pourcentage dans les 2 sens soit 20 % ou soit 80% sur le même tableau et cela via l'action sur un bouton Cmd.

La question que je me pose est de savoir si il est possible de pouvoir modifier en vba ces formules, de venir prendre le contenu de la cellule B12 et de lui rajouter 1-

Merci pour votre aide ! ;)

mettre une condition

Code:

---

=si(p1=1;formule_1;formule_2)

---

il n'y a qu'a changer la valeurs de p1 avec un bouton

Code:

---

1 2 3 4 5 6 7

sub quanclik_1 if range("p1").value=1 then range("p1").value=0 else range("p1").value=1 end if end sub

---

Je mets à jour mes anciens post... Merci quand même pour ta réponse ; Si je me souviens bien ta solution fonctionne très bien ;)

Bonjour

Une autre solution

Code:

---

1 2 3

Sub quanclik_1() Range("p1").Value = IIf(Range("p1").Value = 1, 0, 1) End Sub

---

Bon courage