Bonjour Mutzik, Hervé, Michel, le Forum
Arf Mutzik, Deux Cents Milles fois dacodac avec toi, et même en recopiant/collant cette affreuse concaténation inutile, je n'ai même pas vu !!!
(Ce doit être à cause des balises Color et Bold !!! arf) LOL
Donc autant pour moi Mutzik, bien vu !!!
Sinon pour Michel, je ne saisis pas trop ton problème, mais j'en vois un plus sérieux lors du Filtre avec la TextBox1, en fait elle ne ne retourne pas les Stock alors
boum ensuite si tu essaies d'enlever une quantité, ça ne passe pas, quelque soit la feuille Database ou Database2....
Donc je te propose dans ton UserForm1 de supprimer et remplacer pûrement et simplement la Procédure '
Private Sub TextBox1_Change()' par celle-ci :
Private Sub TextBox1_Change()
Dim Plage As Range, C As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, X As Integer
Dim Myarray()
Dim Y As Byte
If TextBox1 = '' Then
ListBox1.Clear
Exit Sub
End If
Recherche = TextBox1.Value
With Sheets(ComboBox1.Value)
Ligne = .Range('A65536').End(xlUp).Row
Set Plage = .Range('A2:A' & Ligne)
End With
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
ReDim Preserve Myarray(10, X)
For Y = 0 To 9
Myarray(Y, X) = C.Offset(0, Y)
Next Y
X = X + 1
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
If X = 0 Then Exit Sub
ListBox1.Column() = Myarray
Feuil1.Activate
End Sub
Je pense que ça ira bien mieux, et aussi dans la Procédure '
Private Sub ListBox1_DblClick' je te conseillle d'utiliser une méthode InputBox, plutôt qu'une Fonction InputBox, car la première offre l'avantage de pouvoir paramatrer la valeur attendue... Ici un nombre... ça t'évitera un autre Bug...
Quant = Application.InputBox('Quelle quantité ?', Type:=1)
et dans la Foulée 'Quant' devient Byte 'Quand' on a pas plus de 255 prévu (Sinon Integer) mais plus Variant...
Pour le reste je n'ai pas vraiment suivi ... mais Michel, tu essaies tout ça et reviens nous dire tes progrès...
Sinon Pour Hervé, Ok pour le DoubleClick dans ce Contexte, pas vraiment d'autre possibilité... Ou alors il faudrait faire comme dans l'exemple que je t'ai donné l'autre fois, sur Evènement Change et faire un scan sur la colonne Stock... 'Quand' les items sélectionné ont une Quantité initiée par la Variable 'Quant' (wouarf)... 'Quant' aux items sélectionnés qui n'ont pas de quantité... 'Quand' le scan passe par là, c'est le moment de lancer une Invite pour en proposer d'initialiser la variable 'Quant'... Bon après ça je vais boire l'apéro !!!
Bon Appétit
@+Thierry
Message édité par: _Thierry, à: 15/03/2005 11:40
Message édité par: _Thierry, à: 15/03/2005 11:41