bonjour à tous,
Voici mon problème, je liste la colonne A la valeurs des cellules avec une boucle :
For i = 1 To 10 Step 1
Cells(i, 1).Select
If Cells(i, 1).Value = "idem" Then
MsgBox ("YES")
End If
si la valeur est différente de "idem", j'appelle une procédure pour charger la userform d'option bouton :
If Cells(i, 1) <> "idem" Then
Call macro1
End If
Next i
End Sub
Sub macro1()
UserForm1.Show
End Sub
la macro1 se load et j'ai mes optionbutton et je veux remettre à la cells (i,1) la valeur choisi par l'optionbutton (optionbutton1.caption)
Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Cells(i,1).value=OptionButton1.Caption
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton1 = True Then
Cells(i,1).value=OptionButton2.Caption
End If
End Sub
Mais dans la procédure optionbutton, il ne reconnait pas la valeur de la variable i et surtout je ne reviens pas sur ma boucle définie par for i=1 to 10 ... pour finir de lister les cellules suivante de la colonne A.
Merci pour votre aide précieuse car je suis depuis vendredi soir sur ce problème
bonne soirée,
amandine