Erreur dans un code VBA Résolu

Question

Bonjour, 

Malgré ce code mon userform ne se vide pas
Où est l'erreur?

Private Sub btncreer_Click()
Dim i As Integer
i = Sheets("Clients").Cells(Rows.Count, 1).End(xlUp).Row + 1
If C_Entreprise.Value = "" Then
  MsgBox "Veuillez compléter le nom de l'entreprise"
Else
  Call MAJClients(i)
  'Me.Label1.Caption = i
 ' Me.SpinButton2.Max = Me.SpinButton2.Max + 1
 ' Me.SpinButton2.Value = Me.SpinButton2.Max
  MsgBox "Opération effectuée"
  Unload Me
F_Clients.Show: Exit Sub
End If
End Sub

Merci pour votre aide
Cordialement


Configuration: Windows 7 / Firefox 39.0

cs_Le Pivert · Answer

Bonjour,

Si ton UserForm se nomme:   F_Clients, c'est normal qu'elle ne se ferme pas.

Supprime ceci: F_Clients.Show: Exit Sub

cs_Le Pivert · Answer

J'ai compris tu ne veux pas fermer, mais vider.
Il faut que tu vois du coté de  Call MAJClients(i) si l'opération est terminée. L'erreur se situe certainement là.

cs_Le Pivert · Answer

Si tu veux que ton label revienne à l'origine il faut mettre ceci:

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show: Exit Sub
End Sub
Private Sub UserForm_Initialize()
    With SpinButton1
        .Min = 0 'Valeur mini
        .Max = 100 'Valeur maxi
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle SpinButton
        '(La valeur par défaut = 1)
        .SmallChange = 5
    End With
     Label1 = SpinButton1.Value
End Sub
Private Sub SpinButton1_Change()
    Label1 = SpinButton1.Value
End Sub

cs_Le Pivert · Answer

Je n'ai jamais eu ce problème. En regardant ce site et en se servant du code Name pour supprimer les feuilles.
Il explique comment faire une boucle sur les feuilles.

https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

jc80 · Answer

Bonjour

Merci pour ta réponse j'ai mis cette explication dans mes favoris.
Cordialement

Erreur dans un code VBA

5 réponses

Discussions similaires

Newsletters