Probleme de code

  • Initiateur de la discussion Tonio
  • Date de début
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…………
 

MichelXld

XLDnaute Barbatruc
bonjour Tonio

chez moi cela fonctionne bien

le seul probleme qu'il pourrait y avoir , c'est dans le cas ou ton mot cible 'Code Teca' n'est pas ecrit tout a fait de la meme façon dans le ComboBox et dans la macro ( différence d'accentuation , de majuscule et minuscules , nombre d'espaces...)


pour que la procedure ne soit pas sensible aux majuscules et aux minuscules tu peux déja placer tout en haut du module :

Option Compare Text


ci dessous ton code un peu modifié


Option Compare Text
Private Sub ListBox1_Click()
Dim plage As Range
Dim CELL As Range
Dim Ligne As Long

If ComboBox1.Value = 'Code Teca' Then
Ligne = Worksheets('Fichier').Range('A65536').End(xlUp).Row
Set plage = Worksheets('Fichier').Range('A2: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



bon week end
MichelXld
 
T

Tonio

Guest
Bonsoir le Forum
Bonsoir MichelXld

Je te remercie pour tes conseilles, mais c’est a ne rien comprendre, le soir ça marche pas et le lendemain ça marche tout seul sans même une seul correction.
Sûrement le fait de redemarrer Excel ou Windows, je sais pas.
En tout cas encore une fois merci pour tes conseilles et ton code sur les Majuscules et Minuscules que je ne conaisais pas.
Je debute en VBA et tout conseille et le bien venu

MERCI

A+++ Tonio………..
 

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson