XL 2016 TextBox, Option Button et Formulaire

poussain

XLDnaute Nouveau
Bonjour à tous,
J'ai récupéré un tutoriel ( "CRUD") très intéressant sur la création d'un formulaire et j'ai tenté d'adapter tout en essayant d'apprendre mais là je sèche.
Mais ça bug ! il y a entre autre ces deux procédures qui figurent ci-dessous .

Je joins un fichier ( anonyme") et remercie par avance tous ceux qui auront la gentillesse de jeter un coup d'oeil..
Ph

Private Sub ComboBox1_Change()
Dim Rng As Range
Set Rng = Worksheets("DATA").Range("d1:f100")
Me.TextBox14.Value = Rng.Cells(Me.ComboBox1.ListIndex + 1, 2).Value
Me.TextBox15.Value = Rng.Cells(Me.ComboBox1.ListIndex + 1, 3).Value
End Sub



Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
USFTYPAV.Show
With USF330
With OptionButton1 = True
OptionButton2 = False
OptionButton3 = False
OptionButton4 = False
Me.TextBox1 = "A 330"
Me.TextBox2 = "36J 21W 167Y"
Me.TextBox3 = "8"
End With
 

Pièces jointes

  • IRGAV.xls
    208 KB · Affichages: 21

bbb38

XLDnaute Accro
Bonjour poussain, le forum,
J’ai consulté le tutoriel « CRUD », qui comporte de très belles astuces, mais qui me prendra un certain temps avant de le mettre en place.
Si tu le souhaites, je peux essayer d’adapter un fichier en ma possession, avec mes maigres connaissances. Dans ce cas, ton formulaire sera modifié, et les codes vba adaptés.
Personnellement, quand les OptionButton comportent plusieurs données, je préfère utiliser des ComboBox (avis personnel).
Cordialement,
Bernard
P.S. Tu possèdes la version Excel 97-2003 ?
 
Dernière édition: