Re : Majuscule/ minuscule Combobox
Merci mais ce n'es pas exactement ce que je cherche je voudrais que dans mon combobox il y auraile meme mot mais qu'il apparaissent deux fois en minuscule et en majuscule... lorsqu'on commence a tapé en minuscule ca m'affiche celui en minuscule et vice versa.
Je joins seulement l'initialize car mon fichier est trop gros..
Private Sub UserForm_Initialize()
Me.Height = Application.Height
Me.Width = Application.Width
Dim Collec As New Collection
Dim Collec1 As New Collection
Dim Collec2 As New Collection
Dim Collec3 As New Collection
Dim Collec4 As New Collection
Dim Collec7 As New Collection
Dim Collec8 As New Collection
Dim Collec9 As New Collection
Dim Collec10 As New Collection
Dim Collec11 As New Collection
Dim cell As Range, Itm As Long
With Sheets("Stock")
Sheets("Stock").Unprotect
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec.Add cell, CStr(cell)
On Error GoTo 0
Next
For Itm = 1 To Collec.Count
Me.ComboRef.AddItem Collec.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec3.Add cell.Offset(0, 1), CStr(cell.Offset(0, 1))
On Error GoTo 0
Next
For Itm = 1 To Collec3.Count
Me.TxtDescription.AddItem Collec3.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec10.Add cell.Offset(0, 14), CStr(cell.Offset(0, 14))
On Error GoTo 0
Next
For Itm = 1 To Collec10.Count
Me.Txtreffabricant.AddItem Collec10.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec4.Add cell.Offset(0, 2), CStr(cell.Offset(0, 2))
On Error GoTo 0
Next
For Itm = 1 To Collec4.Count
Me.Txtinfos.AddItem Collec4.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec1.Add cell.Offset(0, 11), CStr(cell.Offset(0, 11))
On Error GoTo 0
Next
For Itm = 1 To Collec1.Count
Me.ComboFamille.AddItem Collec1.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec7.Add cell.Offset(0, 3), CStr(cell.Offset(0, 3))
On Error GoTo 0
Next
For Itm = 1 To Collec7.Count
Me.TxtStocks.AddItem Collec7.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec8.Add cell.Offset(0, 12), CStr(cell.Offset(0, 12))
On Error GoTo 0
Next
For Itm = 1 To Collec8.Count
Me.Txtlimite.AddItem Collec8.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec9.Add cell.Offset(0, 10), CStr(cell.Offset(0, 10))
On Error GoTo 0
Next
For Itm = 1 To Collec9.Count
Me.Txtreffournisseur.AddItem Collec9.Item(Itm)
Next
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec2.Add cell.Offset(0, 9), CStr(cell.Offset(0, 9))
On Error GoTo 0
Next
For Itm = 1 To Collec2.Count
Me.Combofournisseur.AddItem Collec2.Item(Itm)
Next
For Itm = 1 To Collec11.Count
ListBox4 = Sheets("Stock").Range("L" & Itm)
If ListBox4.ListIndex = -1 Then ListBox4.AddItem Sheets("Stock").Range("L" & Itm)
Next
End With
Sheets("Stock").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
MERCI BEAUCOUP
