Definir valeur Option Button

Provence Vintage

XLDnaute Occasionnel

• 8 Novembre 2009

• #16

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

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 8 Novembre 2009

• #17

Re : Definir valeur Option Button

Le Fil,

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 8 Novembre 2009

• #18

Re : Definir valeur Option Button

Bonjour,

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

 

Pièces jointes

• FormulaireUSF.zip

  20 KB · Affichages: 63

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 8 Novembre 2009

• #19

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

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 9 Novembre 2009

• #20

Re : Definir valeur Option Button

Salut le Fil

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 9 Novembre 2009

• #21

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).

 

Pièces jointes

• FormulaireUSF(V2).zip

  19.5 KB · Affichages: 18

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 12 Novembre 2009

• #22

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

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 12 Novembre 2009

• #23

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

 

Vote positif 0 Vote négatif

Provence Vintage

XLDnaute Occasionnel

• 12 Novembre 2009

• #24

Re : Definir valeur Option Button

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

 

Vote positif 0 Vote négatif