realimenté textbox par spinbutton aprés modif d la feuille
Bonjour le forum,
Pouvez vous, s'il vous plait, m'aider à résoudre ce problème?
J'ai un userform (VisioInventaire) dont les textbox et labels sont alimentés
par la feuille calculateur. les données tournent dans l'userform grace à un
bouton toupie (Spin_Inventaire).
Après un click sur un bouton sur VisioInventaire, un autre userform s'ouvre
UF_AjoutMatricule en double cliquant sur une listbox il est rajouté une
ligne (dans la dernière ligne vide) dans la feuille Calculateur et
Uf_ajoutMatricule se ferme. Là, tout va bien.
Mon problème c'est que quant je reclique à nouveau sur le Spin_inventaire la
nouvelle ligne n'apparait pas dans visioInventaire. Je pense que l'userform
doit être réinitialisé. et je ne sais pas comment on fait pouvez vous
m'aider.
voici mon code pour le spinboutton
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Private Sub Spin_Inventaire_Change()
'si ni absent et ni present coché on continu sinon on enregistre dans recuperationdesDonnées
If Op_Absent = False And Op_Present = False Then
Call GestionDeSpinInvententaire
Else
Call recuperationDeDonnées
End If |
et pour Uf_ajoutMatricule
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| Private Sub Co_SortirLB_Click()
UF_AjoutMatricule.Hide
End Sub
Private Sub Li_Base_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim DerLig1 As Long
With Sheets("calculateur")
'confirmation
Select Case MsgBox("Voulez vous exportez " & Li_Base.List(Li_Base.ListIndex, 0) & " ?", vbYesNo + vbExclamation)
Case vbYes
'ajoute le matricule dans le calculateur le matricule
.Range("A65536").End(xlUp).Offset(1, 0) = Li_Base.List(Li_Base.ListIndex, 4)
'calcule la derniere ligne
DerLig1 = .Range("A65536").End(xlUp).Row
.Range("B" & DerLig1 & ":Cp" & DerLig1).Calculate
Case vbNo
UF_AjoutMatricule.Hide
End Select
End With
End Sub
Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte
Li_Base.ColumnCount = 5
With Sheets("Demande")
For i = 2 To .Range("A65536").End(xlUp).Offset(1, 0)
Li_Base.AddItem "1" & i
'5 colonne dans l userform
For j = 1 To 5
Li_Base.List(Li_Base.ListCount - 1, j) = i & j
Next j
Next i
End With
End Sub |
pouvez vous m'aider ou m'orienter? j'ai essayer la fonction repaint mais
sans résultat.
merci
