Discussion :

[Chagui]

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 !

[Daranc]

mettre une condition

Code :

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

=si(p1=1;formule_1;formule_2)

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

Code :

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

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

[Chagui]

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

[Jean-Pierre49]

Bonjour

Une autre solution

Code :

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

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

Bon courage