Definir valeur Option Button

[Provence Vintage]

Salut Ttes et Tous

Comment pratiquer pour déterminer via code vba la valeur d'un option button dans un usf,
si click "name" (exemple: "réduits") ; si non clické "" (rien)
Le but étant de recopier le résultat dans une base de données


Merci au Fil
a+🙂

 

[Provence Vintage]

Re : Definir valeur Option Button

Le Fil,

Pour vous aider!
Merci encore à ttes et tous
a+

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Provence Vintage]

Re : Definir valeur Option Button

Le Fil,

Ne serait-ce pas mieux pour ce que je veux faire avec une CheckBox?
Merci à vous

 

[Lii]

Re : Definir valeur Option Button

Bonjour,

vois si les changements peuvent t'aider.
Remarque : les cellules fusionnées n'arrangent pas les choses enVBA !

 

[Provence Vintage]

Re : Definir valeur Option Button

Lii, Stapple, le fil

Nickel Lii, merci beaucoup pour ce premier éléments de réponse;

Par contre, le code pour les options page 2 ne va pas passer:
Cells(li, 23) = IIf(OptionButton4, "Terrain", "Appart", "Mas", "Villa", "MDV")
les arguments ne sont pas bons

Faut-il alors passer de nouveau par la déclaration:
Dim OptionChoisie As String
et définir pour chaque option avec Case les différentes poss!?

Merci d'avance à ttes et tous

 

[Provence Vintage]

Re : Definir valeur Option Button

Salut le Fil

Trouve pas avec Case, ça ne fonctionne pas!
En attendant vos éclairages
Merci et good day

 

[Lii]

Re : Definir valeur Option Button

Bonsoir,

tu as déjà tes listes ; Autant t'en servir !
Tu as du pain sur la planche avec ce projet donc accroche toi (ici, on ne produit pas de programme professionnel abouti).

 

[Provence Vintage]

Re : Definir valeur Option Button

Bonsoir Lii, Le Fil,

Merci pour tes éclairages Lii
Par contre, pour les checksBox, j'essaye des codes et me permet de revenir sur ce fil pour ne pas recréer inutilement des doublons
Bonne soirée

 

[Provence Vintage]

Re : Definir valeur Option Button

Lii, le Fil,

Voici les codes que j'ai mis,
par contre, je ne sais pas recopier la valeur checkbox cliquée !
qui peux m'aider, merci d'avance:

Dim NomDeFeuilEnCours$, lidep1 As Long, cellule As Range
NomDeFeuilEnCours = "Base de Données vendeurs"
Dim Ctrl As Control
Dim Valeur As String
Dim Vr As Byte, Fx As Byte
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
If Ctrl.Value = True Then
Valeur = Valeur & Ctrl.Name & " = True " & Chr(10)
Vr = Vr + 1
Else
Valeur = Valeur & Ctrl.Name & " =False " & Chr(10)
Fx = Fx + 1
End If
End If
Next
MsgBox Valeur & Chr(10) & Chr(10) & "Il y a " & Vr & " checkbox cochés " & Chr(10) & _
"et " & Fx & " checkbox non cochés . "

li = Range("A6000").End(xlUp).Row
li = li + IIf(li < 4, 2, 1) ' à cause des lignes fusionnées !

Cells(li, 18) = IIf(OptionButton1, "Réduits", "Classiques")
Cells(li, 23) = CheckBox.Valeur
Unload Me


Application.ScreenUpdating = True
End Sub

 

[Provence Vintage]

Re : Definir valeur Option Button

Le Fil, quelqu'un pour un coup de main
C la lutte!