Re : Svp ..........help ....;-)
Bonjour,
C'était pas bien compliqué et d'ailleurs tu as trouvé tout seul.
Mais je te conseille de regarder et d'essayer le code que bhbh ta gentiment proposé et auquel tu n'as pas répondu, peut être ne l'auras tu pas vu.
Bien plus chevronné que moi, il a tout de suite vu que tu pouvais imbriquer les 2 conditions "IF" pour n'en faire qu'une seule "IIF", soit :
Cells(2, 69 + i) = IIf(Controls("OptionButton" & i), Me.ComboBox1.Value, "")
la cellule prend la valeur de la combo si elle est concernée ou rien.
Pour la question, c'est à cause de ces 2 commandes :
If OptionButton1 = True Then Range("BS2,BT2,BU2").Select
Selection.ClearContents
transformées en une seule
If OptionButton1 = True Then Range("BS2,BT2,BU2").ClearContents
Juste une dernière remarque, il est toujours préférable de déclarer les variables, c'est plus facile de trouver ensuite où ça coince:
Insères une ligne tout en haut de la feuille avant le premier code et tu y mets
Option Explicit
et remplaces ton code par celui de bhbh
Private Sub CommandButton1_Click()
Dim i as byte 'ici c'est possible, byte étant un nombre compris entre 0 et 255
For i = 1 To 4
Cells(2, 69 + i) = IIf(Controls("OptionButton" & i), Me.ComboBox1.Value, "")
Next i
End Sub
A+
kjin