Discussion :

[psg74]

j'ai créé des macros à chaque bouttons "optionbutton" avec comme réponse "oui ou non" pour chaque boutton. je souhaiterai après avoir renseigné tous les bouttons par oui ou par non et imprimer le document réinitialiser tous les bouttons sans aucun renseignement à l'interrieur (comme à l'origine de la création du boutton.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub RAZ()
Dim OB As OLEObject
 
For Each OB In Feuil1.OLEObjects
    If TypeOf OB.Object Is MSForms.OptionButton Then OB.Object.Value = False 'ou NULL
Next OB
End Sub

[psg74]

merci,
ça fonctionne.

maintenant, je voudrais savoir comment on rajoute une 2ème fonction "si"
=SI(F6<>0;"NON";"OUI")ou si? F6=rien aucun texte ou valeur;F6=""