cathodique
XLDnaute Barbatruc
Bonjour tout le monde,
Désirant faire un formulaire de consultation, je me suis inspiré d'un fichier de Boisgontier.
Comment pourrait-on faire pour empêcher la modification des contrôles (combobox et textbox).
Car en supprimant ce qui se trouve dans la combobox, le code plante sur la ligne ***
(erreur d'execution, incompatibilité de type)
Sur le fichier de Boisgontier, quand je vide la combobox, dans les textbox s'affiche la ligne d'entête. Je voudrai que rien ne puisse s'afficher.
En vous remerciant par avance, je joins le fichier de Boisgontier et le mien.
Cordialement,
Désirant faire un formulaire de consultation, je me suis inspiré d'un fichier de Boisgontier.
Comment pourrait-on faire pour empêcher la modification des contrôles (combobox et textbox).
Car en supprimant ce qui se trouve dans la combobox, le code plante sur la ligne ***
(erreur d'execution, incompatibilité de type)
Code:
Dim ligne
Dim maBD
Private Sub UserForm_Initialize()
Set maBD = Sheets("BD")
maBD.[A2:H2000].Sort key1:=maBD.[A2] ' Tri la BD
Me.ComboBox1.List = Range(maBD.[A2], maBD.[A65000].End(xlUp)).Value
Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
ligne = [A2].Offset(ComboBox1.ListIndex, 0).Row
Me.TextBox1 = ligne - 1
Me.TextBox2 = maBD.Cells(ligne, 1)
Me.TextBox3 = maBD.Cells(ligne, 2)
Me.TextBox4 = maBD.Cells(ligne, 3)
*** Me.TextBox5 = Round(maBD.Cells(ligne, 4), 2)
Me.TextBox6 = maBD.Cells(ligne, 6)
Me.TextBox7 = maBD.Cells(ligne, 8)
Me.TextBox9 = maBD.Cells(ligne, 7)
Me.TextBox8 = maBD.Cells(ligne, 5)
End Sub
Private Sub B_suivant_Click()
If Me.ComboBox1.ListIndex < Me.ComboBox1.ListCount - 1 Then
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
End If
End Sub
Private Sub b_précédent_Click()
If Me.ComboBox1.ListIndex > 0 Then
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex - 1
End If
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub
Sur le fichier de Boisgontier, quand je vide la combobox, dans les textbox s'affiche la ligne d'entête. Je voudrai que rien ne puisse s'afficher.
En vous remerciant par avance, je joins le fichier de Boisgontier et le mien.
Cordialement,
Pièces jointes
Dernière édition: