Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

bouton d'option

A

Alex

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…