(Excel) SVP de l'aide !!!

Résolu/Fermé
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 - 10 sept. 2007 à 17:32
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 - 10 sept. 2007 à 18:00
Bonjour a tous !

Voici mon souci :

Jai 4 feuilles dans mon classeur "Hypotheses" "Produits" "Charges" "Résultat". Dans la feuille "Hypothses" jai quatre Boutons permettant de faire varier des valeurs selon 4 Hypotheses. Voici le code de la macro du premier bouton "Hypothèse 1":

Sub Bouton40_QuandClic()
Range("D6").Select
ActiveCell.FormulaR1C1 = "2"
Range("D8").Select
ActiveCell.FormulaR1C1 = "1"
Range("C37").Select
ActiveCell.FormulaR1C1 = "2"
Range("C38").Select
ActiveCell.FormulaR1C1 = "1"
Range("C41").Select
ActiveCell.FormulaR1C1 = "1"
Range("C42").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("Charges").Select
Range("F16").Select
ActiveCell.FormulaR1C1 = "=4"
Sheets("Hypothèses").Select
Sheets("Charges").Select
Range("G16").Select
ActiveCell.FormulaR1C1 = "=4"
Sheets("Hypothèses").Select
End Sub


MA question est : Quand jappuie sur ce bouton jaimerais voir inscrit dans les cellules E35 (feuille hypothèses) B3 (feuille produits) E5 (feuille charges) et J10 (feuille résultat) >>>" Hypothèse 1"

En gros je voudrais rajouter une ligne dans la macro pour afficher "hypothèse 1" dans des cellules dans différentes feuilles de mon classeur...

Comment puis-je faire??

MERCI BCP A CELUI QUI ME REPONDRA !!!!
A voir également:

2 réponses

paulselvan Messages postés 173 Date d'inscription vendredi 20 juillet 2007 Statut Membre Dernière intervention 16 février 2019 17
10 sept. 2007 à 17:47
si j'ai bien compris ton scénario avant "End Sub" tu ajoutes :

Sheets("Hypothèses").Select
Range(3E35").Select
ActiveCell.FormulaR1C1 = "Hypothèese 1"

Sheets("Produits").Select
Range("D18").Select
ActiveCell.FormulaR1C1 = "Hypothèese 1"

Sheets("Charges").Select
Range("D18").Select
ActiveCell.FormulaR1C1 = "Hypothèese 1"

Sheets("Résultats").Select
Range("D18").Select
ActiveCell.FormulaR1C1 = "Hypothèese 1"
0
olive60 Messages postés 253 Date d'inscription vendredi 7 septembre 2007 Statut Membre Dernière intervention 21 décembre 2010 27
10 sept. 2007 à 18:00
ouiiii ca marche!!!


MERci BCP !!!!

bonne soirée!!
0