Bouton avec une macro dans un tableau Excel

Bonsoir tout le monde,

J'ai créé un tableau de données chiffrées en euros.

J'ai réussi à créer un bouton qui calcule 60% d'un résultat, ça fonctionne.

Seul problème, le résultat ne s'affiche pas dans la case où je souhaiterai qu'il s'affiche.

Quelqu'un aurait-il une solution ?

Merci d'avance et bonne soirée

Bonsoir Parabellum et bienvenu, bonsoir le forum,

Moi m'sieur, moi m'sieur !... J'en ai une idée quelle est bonne...
Envoie un fichier exemple pour qu'on comprenne et qu'on puisse t'aider avec quelque chose de concret...

Bonsoir Thau Thème,

Merci pour la réponse rapide. J'ai répondu en MP pour le fichier.

Bonne soirée

Bonsoir parabellum, bonsoir le forum,

Non désolé mais pas par mail perso, question d'éthique. C'est un forum d'entraide et ce système ne permet pas à un éventuel demandeur qui aurait le même type de problème de bénéficier de l'aide apportée. Mais pire... Tu te prives de la sorte de l'aide d'un paquet de balèzes qui sévissent dans le forum...

Bonjour,

Désolé, j'ai choisi cette solution parce que hier soir je n'ai pas su comment joindre un fichier à ma réponse... Mais ce matin, oh miracle j'ai trouvé

Donc, je souhaiterai qu'en cliquant sur mon bouton 60% le résultat s'affiche en G11 au lieu de I14.

Bonne journée

Bonjour toutes et tous

merci et coucou à Thauthème ^^

@Parabellum65

avec l'enregistreur de macro la réponse est donnée

Sub Bouton1()
'
' Bouton1 Macro
' Calcule 60% du résultat
'

'
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C*0.6"
    Range("G12").Select
End Sub

crdlt,

André

Bonjour,

Merci infiniment pour la réponse.

Bonne journée

Bonjour le fil, bonjour le forum,

Arf ! La preuve de ce que je disais... Un balèze, que je salue, a pris le relais.
Isn't good ? Norvegian wood... Comme chantait Tino Rossi (à mois que ce n'en soit un autre ?!...).

Bonsoir le fil, bonsoir André13 et Thau Thème,

Merci pour vos réponses rapides et votre gentillesse !

Bonne soirée

Re,

Parce que les Select inutiles ne font que ralentir l'exécution du code et sont source de plantage, j'écrirais plus sûrement :

Sub Bouton1()
Dim OJ As Worksheet

Set OJ = Worksheets("Janvier")
OJ.Range("G11").Value = OJ.Range("G10").Value * 0.6
End Sub

Re,

Merci ThauThème , exact les select, j'ai oublié oupss!

bonne fin de soirée

crdlt,

André

Bonjour Thau Thème,

Merci pour ces précisions. Je me le note !

Bonne journée,