option button

[Alex]

salut le forum,

un nouveau problème en perspective:
voici une partie de ma procédure:

Dim choix As Integer

If OptionButton1 = True Then choix = 1
If OptionButton2 = True Then choix = 2

Select Case choix

Case 1
With Sheets(1)
.Range("e29") = "bpe"
.Range("i43") = 0
.Range("i50") = 0
.Range("i55") = 0
.Range("i64") = 0
.Range("i69") = 0
.Range("i78") = 0
.Range("i83") = 0
.Range("i92") = 0
.Range("i101") = 0
.Range("i109") = 0
End With

Case 2
With Sheets(1)
.Range("e29") = "centrale"
.Range("i42") = 0
.Range("i49") = 0
.Range("i54") = 0
.Range("i63") = 0
.Range("i68") = 0
.Range("i77") = 0
.Range("i82") = 0
.Range("i91") = 0
.Range("i100") = 0
.Range("i108") = 0
End With


Lorsque je sélectionne l'optionbutton 1, je mets un 0 dans la cellule i43.
or cette cellule contenait une formule au départ.
Si je relance la macro, et que je sélectionne l'optionbutton2, le 0 va rester dans i43 alors que je veux retrouver la formule de départ.

Merci pour votre aide et bonne soirée

 

[eric]

Bonjour,

Pourquoi ne pas mettre ta formule de calcul que tu as en I43 dans une procédure workbook_open() et dans ton optionbutton2 _click() ?

Ainsi, à chaque ouverture de ton fichier et/ou lors d'un clic dans ton optionbutton2, ta formule de calcul est recopiée dans ta cellule.

Mais, il y a peut-être plus simple.

A+++

 

[Baroude]

Salut,

Je me trompe ptêt mais :

Case 2
With Sheets(1)
.RANGE("i43")= TA FORMULE
.Range("e29") = "centrale"
.Range("i42") = 0
.Range("i49") = 0
.Range("i54") = 0
.Range("i63") = 0
.Range("i68") = 0
.Range("i77") = 0
.Range("i82") = 0
.Range("i91") = 0
.Range("i100") = 0
.Range("i108") = 0
End With

Baroude

 

[Alex]

Salut le forum,

J'ai essayé vos procédures mais ça ne semble pas fonctionner. Si vous avez d'autres idées, merci à l'avance.

A+, Alex