Bonjour le Forum,
j ai un petit souci avec une proriété, je pense que je formule mal mon code.
J ai plusieurs bouton sur une feuille qui appelle un Userform (Cassettes), sur le Userform j'ai 15 OptionButton (de meme nom que sur la feuille), apres validation du UserForm je veux changer l'état de mes OptionButton (sur la feuille), le problème et que mon code plante, j'obtien une erreur 48 "Propiété ou méthode non gérée par cet objet":
le code est dans un module:
j aurai bien aimé mettre le fichier mais trops gros meme ziper.
Si quelqu'un peux m'aider.
ps : feuil = "Infostock k7" sur cette feuille 13 boutons et 15 OptionButton
j ai un petit souci avec une proriété, je pense que je formule mal mon code.
J ai plusieurs bouton sur une feuille qui appelle un Userform (Cassettes), sur le Userform j'ai 15 OptionButton (de meme nom que sur la feuille), apres validation du UserForm je veux changer l'état de mes OptionButton (sur la feuille), le problème et que mon code plante, j'obtien une erreur 48 "Propiété ou méthode non gérée par cet objet":
le code est dans un module:
Code:
Public Function cocher()
Dim c As Control
Dim d As OLEObject
Dim i As Integer
For Each c In Cassettes.Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True Then
For Each d In Sheets("Infostock k7").OLEObjects
If TypeOf d.Object Is MSForms.OptionButton Then
If d.Name = c.Name Then
MsgBox (d.Name) 'test pour voir si ca passe
[COLOR="Red"]d.Value = False[/COLOR]
End If
End If
Next d
End If
End If
Next c
End Function
j aurai bien aimé mettre le fichier mais trops gros meme ziper.
Si quelqu'un peux m'aider.
ps : feuil = "Infostock k7" sur cette feuille 13 boutons et 15 OptionButton