empecher modification dans formulaire de consultation

[cathodique]

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)

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,

 

[laetitia90]

Re : empecher modification dans formulaire de consultation

bonjour cathodique

dans proprietée de la combo met le style a 2 & pour les textboxs locked a true

pour le reste pas le temps de regarder

 

[cathodique]

[RESOLU] : empecher modification dans formulaire de consultation

Bonjour Laetitia90,

Je te remercie beaucoup pour ton aide. Et dire que je l'avais fait une fois mais je ne l'ai pas retenu. J'espère que cette fois-ci ça restera dans ma petite cervelle.

C'est déjà un problème de résolu grâce à toi pour mon formulaire de consultation. Pour le reste, je pense qu'il serait plus judicieux de faire un autre formulaire.

Encore merci et je te souhaite une très bonne journée.

Cordialement