|Resolu ChTi160]Gestion Commandes avec TACTILE

Bearn 64

XLDnaute Occasionnel
Re,

"J'ai des problèmes de compréhension de l'utilisation de SpinButton pour gérer ma liste Clients. ( SpinButton utilisé pour palier a la taille des ascenseurs de liste)" ???? (moi je n'en suis pas la !!!!)

Dans Tablette.xlsm en haut j'ai 2 spinButton a droite de listbox que je voudrais gérer


merci
 

ChTi160

XLDnaute Barbatruc
Re
Ou puis je trouver ce fameux "Tablette.xlsm" pour regarder ces "SpinButton"????
merci par avance
Amicalement
Jean Marie
 

Bearn 64

XLDnaute Occasionnel
Re

Post #16 premier fichier joint

Pour le premier SpinButton solution apportée par Papou-net

Private Sub SpinButton1_Change()
If SpinButton1 > Clients.ListCount - 1 Then
SpinButton1 = SpinButton1 - 1
Exit Sub
End If
Clients.ListIndex = SpinButton1
End Sub



Amicalement Bearn 64
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour Bearn64
Bonjour Le Fil ,Le Forum
j'avais pense a ceux ci
on initialise le SpinButton dans la procédure "zChargeClients"
VB:
 Private Sub zChargeClients()
Dim ListeNoms As Range, Lg&, Tabl$(), i&

With Sh_Cli
    Lg = .Columns("A:A").Find("*", , , , , xlPrevious).Row
    Set ListeNoms = .Range("A2:B" & Lg)
End With
ReDim Tabl(Lg - 2, 1)
For i = 1 To ListeNoms.Count - 1
    If ListeNoms.Cells(i, 1).Value <> "" Then Tabl(i - 1, 0) = ListeNoms.Cells(i, 1).Value: Tabl(i - 1, 1) = ListeNoms.Cells(i, 2).Value
Next
With Me
 With .Clients
    .Clear   
    .List() = Tabl
 End With
'ICI *************************************
 With .SpinButton1
      .Min = -1
      .Max = UBound(Tabl)
      .SmallChange = 1
      .Value = -1
 End With
End With
End Sub[/VB] 
puis 
[CODE=VB] Private Sub SpinButton1_Change()
With UsfCommande
   With .Clients
       .ListIndex = SpinButton1.Value
  End With
End With
End Sub[/VB] 
Enfin il te reste a adapter le Code Papou-Net à ton deuxième "SpinButton"
Bonne journée
Amicalement
Jean Marie
 

Bearn 64

XLDnaute Occasionnel
Bonjour ChTi160, le Forum,

Merci de cette réponse que j'ai mise en pratique et j'ai réussi a inverser le sens du bouton flèche vers le bas je descend dans la liste flèche vers le haut je remonte.

Pour continuer l'avancement de mon projet.

comment faire pour que le prix soit OK, au moment de la saisie Pri= Qte*prix de base, alors que Pri reste sur Pri unitaire.

Merci a tous les contributeur et a Toi ChTi160
 

Fichiers joints

Bearn 64

XLDnaute Occasionnel
Re

Quelques modifications pour répondre a la demande de Calcul de Prix ????

Le prix qui ne se modifie pas est dans Usf_tactile voir image.

Je sélectionne un Client puis bouton C1 puis BUCHE puis ARDECHOIS - 2 le Prix s'affiche à droite 35 puis Qte à 2 le prix ne se met pas a jour il devrai afficher 70.
voir piece jointe


Je n'est vu ce que tu as modifier entre tablette et tablette(1)-Modifier

a part
For j = 1 To 24
For i = 1 To 2
With Me.FraCommande
Select Case i
Case Is = 1
.Controls("Cat" & j).List = Dico.keys
Case Is = 2
With .Controls("Pro" & j)
.ColumnCount = 3
.ColumnWidths = "140;0;0"
End With
End Select
End With
Next i
Next j


A++
 

Fichiers joints

Démarré par Discussions similaires Forum Réponses Date
Bearn 64 Forum Excel 7
A Forum Excel 8

Discussions similaires


Haut Bas