Discussion :

[dodo28]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo28]

Merci à daniel qui m'a aidé sur un autre forum
voici la reponse ajoter ce code dans la fermeture du listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
With Worksheets("Calculateur")
    DerLig = .Range("A:A").Find("*", LookIn:=xlValues, _
                                    SearchOrder:=xlByRows, _
                                   SearchDirection:=xlPrevious).Row
End With
 
'initialisation du spinbutton
 
With VisioInventaire.Spin_Inventaire
    .Min = 3
    .Max = DerLig
    .Value = 3
End With

[laetitia]

bonjour dodo le forum pour faire simple tu peus essaye a la fin du code de l'user
UF_AjoutMatricule quand tu le ferme je pense que tu as unload me tu rajoute apres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Unload Vestimentaire 
  Vestimentaire.show

ps pas vu ta derniere reponse pas rafraichi