Pb de liaison avec VBA
e
bonjour,
j'ai un petit soucis avec un calcul.
Explication :
Sur le fichier joint vous trouverez 3 feuilles.
Le but (que je suis incapable d'atteindre) et de faire concorder via une boite de dialoge et grace à une barre de défilement ou autre le nombre de palettes en stock et le maximum de palettes a expédier qui ne peut pas dépasser le nombre de palettes en stock.
Vous trouverez un "bouton" sur la feuille expédition qui vous permettra d'ouvrir le userform expédition.
Cela fait maintenant quelques jours que je cherche la solution en vain, si quelqu'un peut m'aider je lui en serait trés reconnaissant.
Merci d'avance.
v
Bonjour excelium,
Il faut jouer sur la propriété "Max" de ta "Scrollbar1". Rajoute ce bout de code pour obtenir ce que tu désires :
Private Sub ScrollBar1_Change()
nb_pal.Value = ScrollBar1.Value
End Sub
Private Sub code_art_Change()
If code_art.Value <> "" Then
Set C = Sheets("Stock").Range("B7:B23").Find(code_art.Value, , xlValues, xlWhole)
If Not C Is Nothing Then Me.ScrollBar1.Max = C.Offset(, 4).Value
End If
End Sub