Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Novice en VBA, j'ai créé la macro suivante (associée à une case d'option dans un formulaire, et non ActiveX) :
Sub Casdoption1_Cliquer()
If Casdoption1 = True Then
Feuil1.Range("H10").Value = 10
Else: Feuil1.Range("H10").Value = 5
End If
End Sub
Quel que soit l'état du bouton, le résultat est 5. Si je remplace True par False le résultat est 10, si j'ajoute .Value à Casdoption1 : objet requis, erreur 424
Merci si vous pouvez m'aider
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Réponse acceptée par l’auteur de la question
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Bonjour,
Essaie :
Sub Casdoption1_Cliquer()
If ActiveSheet.OptionButtons("Case d'option 1") = 1 Then
Feuil1.Range("H10").Value = 10
Else: Feuil1.Range("H10").Value = 5
End If
End Sub
Daniel