amandine76
XLDnaute Nouveau
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
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