bouton d'option

[Alex]

Salut le forum,

Je me permets de rouvrir un nouveau post pour demander de l'aide sur le problème suivant:

Private Sub CommandButton1_Click()

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


Au départ, j'ai des formules dans i43,...Lorsque je lance ma procédure, si je clique sur l'optionbutton1, un 0 apparait dans i43, effaçant du coup ma formule. Si je relance ma procédure, et que je clique sur optionbutton2, le 0 restera dans i43 du fait de la première manoeuvre.
Je voudrais 'réinitialiser' le tableau Excel.

Merci pour votre aide,

Alex

 

[Mytå]

Bonsoir

Ajout a Case2 ta formule

.Range("i42") = 0
.Range("i43").Formula = "=A1+A2"
.Range("i49") = 0

Mytå