Salut,
Voci un exemple pour ton userform Ajouter
Private Sub UserForm_Activate() 'permet de désactiver le boutton annuler au chargement
annuler.Enabled = False
T = Range("C3:G" & Range("C65536").End(xlUp).Row).Value 'tableau VBA où on stocke ta plage de cellule
'T(1,1) est C3
'T(1,2) est D3 etc..
With RefeR
.List = Range("C3:C" & Range("C65536").End(xlUp).Row).Value
'on pourrait faire un boucle du genre:
'For I = LBound(T, 1) To UBound(T, 1)
' .addItem T(I, 1)
' Next I
.ListIndex = 0 'on met la 1 ére valeur par défaut le 1 er élément est 0 le dernier sera 11 même si tu as 12 éléments dans ta plage
End With
With changer 'on initialise le spinbutoon
.Min = LBound(RefeR.List) 'Valeur Mini =0
.Max = UBound(RefeR.List) 'Valeur Maxi=11
.Value = RefeR.ListIndex
End With
End Sub
Private Sub refer_Change() 'permet de réactiver le boutton quand la valeur change dans la case
With RefeR
If .ListIndex = -1 Then
annuler.Enabled = False
Exit Sub
Else: changer.Value = .ListIndex
annuler.Enabled = False
End If
End With
End Sub
Private Sub changer_Change()
With RefeR
.ListIndex = changer.Value
quantite.Value = T(.ListIndex+1, 4) 'T est en base 1(donc de 1 à 12) donc on rajoute 1
codetva.Value = T(.ListIndex+1, 3)
puht.Value = T(.ListIndex+1, 5)
End With
End Sub
Voilà c'est juste pour te mettre sur la piste, n'hésites pas à me demander si tu n'arrives pas à le mettre en place...
A+++
