OptionButton dans USF

[reve24]

Bonjour à tous et remercions ceux qui nous aident 🙂 🙂

Mote de passe TOTO

J' ai remplacé mes combobox par des optionButton , pour une meilleure Convivialité .
Et la je reconnais que je m y perd un peu .
Je ne sais plus ecrire LE CODE

qui peut m aider .

MERCI le fichier ci dessous

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

 

[Guest]

Re : OptionButton dans USF

Bonjour,

Pourrais-tu faire un classeur exemple et le joindre ici.
classeur avec le stricte minimum pour que l'on puisse comprendre.

A+

 

[reve24]

Bonjour,

Ok , effectivement je suis trop dans mon sujet , excuse 😀

Sur l userform , tu as OptionButton
staut a placer dans la colonne C
Type à placer dans la colonne E

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

Merci à toi

 

[Guest]

Re : OptionButton dans USF

Re,

Ce que je voulais te dire c'est de joindre Sur le Forum ton fichier.

A+

 

[reve24]

Re : OptionButton dans USF

Re,

Ce que je voulais te dire c'est de joindre Sur le Forum ton fichier.

A+

telecharge le il est trop lourd avec le lien ci joint.fr 175 ko

 

[Guest]

Re : OptionButton dans USF

Re,
Ce que j'essaie de te faire comprendre, c'est que sur un forum d'échange il est bon que:

1 chacun ait accès aux fichiers joints (sur ci-joint dans 21 jours plus de fichier)

2 c'est toi le demandeur et que tu peux fournir l'effort de synthétiser un exemple dans un fichier zip de moins de 50ko. (juste un petit userform avec tes options buttons)

3 que si tu ne veux pas synthétiser ton fichier tu peux dépasser les 50ko en suivant ce lien http://www.excel-downloads.com/forum/79975-creation-dun-compte-supporter-xld-venir-pour-financer-le-site.html

C'est à ces conditions que j'ouvre les fichiers.

A+

 

[reve24]

Re : OptionButton dans USF

Bonjour à tous et merci a ceux qui participent


😛 😛 OK OK OK OK 😛 😛

ci joint nettoyé compressé


merci

 

[Guest]

Re : OptionButton dans USF

Re,

Merci pour ton effort.

comme tu ne dis pas vraiment ce que tu veux faire de tes optionsButton, j'ai supposé que tu voulais savoir celui qui était sélectionné.

Colles ces lignes dans le module du userForm et click sur le userform en dehors du Frame après avoir sélectionner un status.

Dim optionStatus As Byte
 
Private Sub UserForm_Click()
    optionStatus = ((OptionButton2 * 2) + (OptionButton3 * 3) + (OptionButton4 * 4) + (OptionButton5 * 5) + OptionButton6 * 6) * -1
    If optionStatus > 0 Then
    MsgBox Me.Controls("OptionButton" & optionStatus).Caption
    End If
End Sub

A+

 

[reve24]

Re : OptionButton dans USF

Re,

Merci pour ton effort.

Tu comprends pourquoi j avais mis en ci joint.fr

Sur l userform , tu as OptionButton
staut a placer dans la colonne C
Type à placer dans la colonne E

remplir ligne2
remplir ligne3
remplir ligne4
remplir ligne5
remplir ligne6 au fur et a mesure des saisies mais cela s incrit dans le VBA general

que voici

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'désactive le rafraissement de l'écran
With Feuil2
.Range("A65536").End(xlUp).Offset(1, 0) = TextBox1.Value ' met la valeur de la TextBox1 _
'dans la dernière cellule non vide + 1 de la colonne A
.Range("B65536").End(xlUp).Offset(1, 0) = CDate(DTPicker3.Value) ' idem colonne D valeur Date
.Range("C65536").End(xlUp).Offset(1, 0) = ComboBox1.Value '
.Range("D65536").End(xlUp).Offset(1, 0) = ComboBox2.Value ' idem colonne C
.Range("E65536").End(xlUp).Offset(1, 0) = ComboBox3.Value ' idem colonne C
.Range("F65536").End(xlUp).Offset(1, 0) = TextBox2.Value ' idem colonne A
.Range("G65536").End(xlUp).Offset(1, 0) = TextBox3.Value ' idem colonne A
.Range("H65536").End(xlUp).Offset(1, 0) = TextBox5.Value ' idem colonne A
.Range("I65536").End(xlUp).Offset(1, 0) = TextBox4.Value ' idem colonne A
.Range("J65536").End(xlUp).Offset(1, 0) = TextBox6.Value ' idem colonne A
.Range("K65536").End(xlUp).Offset(1, 0) = ComboBox4.Value ' idem colonne C
.Range("L65536").End(xlUp).Offset(1, 0) = ComboBox5.Value ' idem colonne C
.Range("M65536").End(xlUp).Offset(1, 0) = ComboBox6.Value ' idem colonne C
.Range("N65536").End(xlUp).Offset(1, 0) = TextBox8.Value ' idem colonne A
.Range("O65536").End(xlUp).Offset(1, 0) = TextBox7.Value ' idem colonne A
.Range("P65536").End(xlUp).Offset(1, 0) = TextBox9.Value ' idem colonne A
.Range("Q65536").End(xlUp).Offset(1, 0) = TextBox10.Value ' idem colonne A
.Range("R65536").End(xlUp).Offset(1, 0) = TextBox11.Value ' idem colonne A
.Range("S65536").End(xlUp).Offset(1, 0) = TextBox12.Value ' idem colonne A
.Range("T65536").End(xlUp).Offset(1, 0) = TextBox13.Value ' idem colonne A
.Range("U65536").End(xlUp).Offset(1, 0) = TextBox14.Value ' idem colonne A
.Range("V65536").End(xlUp).Offset(1, 0) = TextBox15.Value ' idem colonne A
.Range("W65536").End(xlUp).Offset(1, 0) = TextBox16.Value ' idem colonne A
.Range("X65536").End(xlUp).Offset(1, 0) = TextBox17.Value ' idem colonne A
.Range("Y65536").End(xlUp).Offset(1, 0) = TextBox18.Value ' idem colonne A
.Range("Z65536").End(xlUp).Offset(1, 0) = TextBox20.Value ' idem colonne A
.Range("AA65536").End(xlUp).Offset(1, 0) = TextBox19.Value ' idem colonne A
.Application.Goto Reference:="Liste" 'se référe à la Plage nommée Liste
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'Effectue un tri sur la Colonne A
.Range("A1").Select
End With
Feuil1.Activate 'Active la Accueil
Unload Me 'Vide et ferme l'UserForm
Application.ScreenUpdating = False 'réactive le rafraissement de l'écran
End Sub

 

[Guest]

Re : OptionButton dans USF

Re,

voici le fichier modifié.

Je précise qu'il ne s'agit pas ici de faire une appli clef en main.
A toi d'adapter à ton besoin. Et si tu butte sur un point. reviens avec des question précises.

A+

 

[reve24]

Re : OptionButton dans USF

Merci A toi

Désolé de dire ceci mais cela ne me sert a rien car cela n a pas ete pris dans la globalité du projet initial et donc je passe plus de temps a deviner ce qu il faut faire .

Je sais que personne n est ici pour faire le trvail de l autre mais parfois , en ce qui me concerne je prefere faire le travail car l autre va perdre son temps inutilement .

C est gentil tu ma s aidé et je ne peux que te remercier .😀

A celui qui veut m aider cela sera avec plaisir
reprenons le projet et pas des extraits

merci et bonne semaine a tous

 

[Guest]

Re : OptionButton dans USF

Hello,

Ta question initiale:

J' ai remplacé mes combobox par des optionButton , pour une meilleure Convivialité .
Et la je reconnais que je m y perd un peu .
Je ne sais plus ecrire LE CODE

1 - Suppose que tu savais écrire du code avant le changement.
2 - était très imprécise.

Désolé de dire ceci mais cela ne me sert a rien car cela n a pas ete pris dans la globalité du projet initial et donc je passe plus de temps a deviner ce qu il faut faire .

Extrait de la chartre du forum:

… équivaut un peu comme écrire 'trouvez la réponse pour moi et finissez mon travail'....En ce qui concerne la possibilité de pièces jointes, elles devront être explicites et comporter juste un exemple de votre problème, pas une application entière

Nous somme sur un forum d'apprentissage et de partage, je suis sûr que si tu es décidé à progresser pas à pas, tu trouveras ici toute l'aide dont tu as besoin.

Pour ma part je suis tout à fait disposé, si le temps me le permet à t'accompagner dans tes efforts de mises en place. Pour cela tu devras, de ton côté faire des tests et essais et nous communiquer précisement ce sur quoi tu as des difficultés. Si ton but est d'avoir une application finalisée, il y a des développeurs professionnels pour cela.

bonne journée