XL 2010 Commande (.ListIndex qui ne fonctionne pas partout.)

MAN

XLDnaute Occasionnel
Bonjour le forum. bonjour a tous.
j'ai un fichier composé de plusieurs paramètres Vba. dont un de gestion de stocks.
quand je simplifie ce fichier tel qu'ici, il me présente bien le stock restant sur le LabelStock.
si je reprend et le réintègre dans le projet global, le LabelStock se bloque à "ListIndex + 4" peu importe le "ComboRef.ListIndex"
que faire si je veux intégrer cette procédure dans le projet global.
Merci d'avance
 

Pièces jointes

  • stockk.xlsm
    28.3 KB · Affichages: 21

ChTi160

XLDnaute Barbatruc
Re
Mon Patrick je ne veux pas Jumper les Blancs qu'ils soient de Neige ou de Blanc Lol
je te signalais seulement que le fait de ne pas remettre "a" à 0 c'a perturbé la Liste est ajouté des Lignes Blanche autant que la Valeur de "a"
mais bon ca t'as permis de me faire plaisir en me proposant un autre Code que je vais allé regarder Lol
Merci !
Bonne fin de Journée
jean marie
 

MAN

XLDnaute Occasionnel
bonjour le forum. Bonjour a tous. je reviens dans le débat.
sur le fichier principal dont j'ai tiré le bout de code qui ne marche pas, nous avons je l'avais oublié, la procédure sémi automatique de cette combobax1 que je joins au fichier ci dessous.
comme je l'ai encore dit dans mon précédent post, la combobox1 appelle la listnox1 a la premiere lettre saisie. pourtant, plusieurs rubriques commencent avec la meme lettre.
voici le code de la saisie semi automatique du fichier principal qui se déclenche a la premiere lettre

'-------procédure pour la saisie semi automatique de la combobox1-------
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If L >= ListBox1.ListCount Then Exit Sub
Me.ListBox1.List(L, 1) = Me.TextBox1.Text ' Corrigé
Me.TextBox1 = ""
Me.ComboBox1 = ""
Me.ComboBox1.SetFocus
End Sub
 

ChTi160

XLDnaute Barbatruc
Bonjour
je viens d'ouvrir ton fichier je n'ai pas bien compris mais Bon
une question :
a quoi correspond le L dans la Ligne ci-dessous
VB:
If L >= ListBox1.ListCount Then Exit Sub
car comme L est Vide ca met fin a la procédure !
peux tu expliquer ce que tu veux faire car la je comprends pas Lol
Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If L >= ListBox1.ListCount Then Exit Sub
    Me.ListBox1.List(L, 1) = Me.TextBox1.Text ' Corrigé
    Me.TextBox1 = ""
    Me.ComboBox1 = ""
    Me.ComboBox1.SetFocus
End Sub
jean marie
 
Dernière édition:

JM27

XLDnaute Barbatruc
bonjour
de plus
ListBox1.ListCount=0
car la listbox est vide
On y comprends plus rien.
Si tu expliquais correctement ce que tu souhaites faire, c'est simplement incompréhensible, mais comme je suis transparent, je t'invites à ne pas lire mon messageo_O
j'ai du mal à comprendre qu'un truc si simple peut être rendu aussi compliqué!
 

MAN

XLDnaute Occasionnel
rebonjour le forum. je reviens sur le code de saisie semi automatique de ChTi160. lorsque je l'insere dans le projet, j'obtiens au niveau de a=a+1, une "incompatibilité de type"
voici le code
Private Sub ComboBox1_Change()
Dim monNewTableau
ReDim monNewTableau(1 To UBound(montableau), 1 To 2)
With ComboBox1
For i = 1 To UBound(montableau)
If UCase(montableau(i, 1)) Like UCase(.Value) & "*" Then
a = a + 1
monNewTableau(a2, 1) = montableau(i, 1): monNewTableau(a, 2) = montableau(i, 2)
End If
Next
If a > 0 Then .List = monNewTableau Else .List = montableau
.DropDown
End With

End Sub
 

ChTi160

XLDnaute Barbatruc
Bonjour MAN,
Bonjour le Fil
il y a un problème dans cette partie du Code
tu as dans le redimmensionnement de ton tableau monNewTableau une variable "a2" et de l'autre une variable "a"
VB:
monNewTableau(a2, 1) = montableau(i, 1): monNewTableau(a, 2) = montableau(i, 2)
pas de fichier ? pas Cool !
Bonne Journée
Jean marie
 

MAN

XLDnaute Occasionnel
Rebonjour le forum. j'ai simplifié le fichier en question. je vous le remets.
ainsi, comme dit , la Combobox1 se déclenche a la premiere frappe. pourtant, il y a plusieurs éléments qui commencent par la meme lettre. on peut aussi travailler avec le doubleclick mais c'est fastidieux.
A L'AIDE le fichier simplifié.
 

Pièces jointes

  • MANLISTE.xlsm
    71.4 KB · Affichages: 10

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86