Bonjour Fifi et Robert, bonjour à toutes et à tous
Pour les OptionButtons, c'est (presque aussi simple qu'avec les Combo). Dans le cas présent, tu as plusieurs choix de codes.
Une première possibilité :
If OptionButtonFP = True Then
Range('O' & L).Value = 1
ElseIf OptionButtonFS = True Then
Range('O' & L).Value = 2
End If
La comparaison 'OptionButtonFx = True' est là pour la lisibilité car on peut simplement écrire :
If OptionButtonFP Then...
puisque les OptionButtons renvoient une valeur boléenne.
Une seconde possibilité :
Range('O' & L).Value = IIf(OptionButtonFP, 1, 2)
Explication : comme OptionButtonFP est sélectionné lors de l'initialisation, on est certain que l'un des deux contiendra la valeur True.
Dans la
fonction IIf(Condition, SiVrai, SiFaux), on affectera à Range('O' & L).Value la valeur 1 si OptionButtonFP est à 'True' et 2 s'il est à 'False' (car dans ce second cas, cela signifie que l'OptionButtonFS est à True).
Voili, voilà. N'hésite pas si tu as d'autres question puisque Robert a ses P.O.C. (Pantoufles d'Origine Contrôlée) il sera certainement disponible
Glossaire :
OptionButtonFP : OptionButton Fournisseur Principal
OptionButtonFS : OptionButton Fournisseur de Secours
A+