T
Tonio
Guest
Bonsoir le Forum
J’aurais besoin d’une petite explication sur un code donc je n'arive pas saisir le problème.
J’ai le code suivant qui marche très bien et me renvoie les données dans mes textbox.
Private Sub ListBox1_Click()
Dim plage As Range
Dim CELL As Range
Dim Ligne As Variant
Ligne = Worksheets('Fichier').Range('' & 'A' & '65536').End(xlUp).Row
Set plage = Worksheets('Fichier').Range('' & 'A' & '2:' & 'A' & Ligne)
For Each CELL In plage
If CELL.Value = ListBox1.Value Then
TextBox2 = CELL.Offset(0, 3).Value
TextBox3 = CELL.Offset(0, 4).Value
TextBox4 = CELL.Offset(0, 5).Value
TextBox5 = CELL.Offset(0, 6).Value
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
Label6.Visible = False
Label5.Caption = 'Stock Actuel'
End If
Next CELL
End Sub
Mais des que je lui impose une condition il fait bien la recherche, mais ne me renvoit plus les données et mes textbox6 a 9 reste toujours visibles.
Private Sub ListBox1_Click()
Dim plage As Range
Dim CELL As Range
Dim Ligne As Variant
If ComboBox1.Value = 'Code Teca' Then
Ligne = Worksheets('Fichier').Range('' & 'A' & '65536').End(xlUp).Row
Set plage = Worksheets('Fichier').Range('' & 'A' & '2:' & 'A' & Ligne)
For Each CELL In plage
If CELL.Value = ListBox1.Value Then
TextBox2 = CELL.Offset(0, 3).Value
TextBox3 = CELL.Offset(0, 4).Value
TextBox4 = CELL.Offset(0, 5).Value
TextBox5 = CELL.Offset(0, 6).Value
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
Label6.Visible = False
Label5.Caption = 'Stock Actuel'
End If
Next CELL
End If
End Sub
Quelqu'un aurais t il un idée.
Merci d’avance
A+++ Tonio…………
J’aurais besoin d’une petite explication sur un code donc je n'arive pas saisir le problème.
J’ai le code suivant qui marche très bien et me renvoie les données dans mes textbox.
Private Sub ListBox1_Click()
Dim plage As Range
Dim CELL As Range
Dim Ligne As Variant
Ligne = Worksheets('Fichier').Range('' & 'A' & '65536').End(xlUp).Row
Set plage = Worksheets('Fichier').Range('' & 'A' & '2:' & 'A' & Ligne)
For Each CELL In plage
If CELL.Value = ListBox1.Value Then
TextBox2 = CELL.Offset(0, 3).Value
TextBox3 = CELL.Offset(0, 4).Value
TextBox4 = CELL.Offset(0, 5).Value
TextBox5 = CELL.Offset(0, 6).Value
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
Label6.Visible = False
Label5.Caption = 'Stock Actuel'
End If
Next CELL
End Sub
Mais des que je lui impose une condition il fait bien la recherche, mais ne me renvoit plus les données et mes textbox6 a 9 reste toujours visibles.
Private Sub ListBox1_Click()
Dim plage As Range
Dim CELL As Range
Dim Ligne As Variant
If ComboBox1.Value = 'Code Teca' Then
Ligne = Worksheets('Fichier').Range('' & 'A' & '65536').End(xlUp).Row
Set plage = Worksheets('Fichier').Range('' & 'A' & '2:' & 'A' & Ligne)
For Each CELL In plage
If CELL.Value = ListBox1.Value Then
TextBox2 = CELL.Offset(0, 3).Value
TextBox3 = CELL.Offset(0, 4).Value
TextBox4 = CELL.Offset(0, 5).Value
TextBox5 = CELL.Offset(0, 6).Value
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
Label6.Visible = False
Label5.Caption = 'Stock Actuel'
End If
Next CELL
End If
End Sub
Quelqu'un aurais t il un idée.
Merci d’avance
A+++ Tonio…………