Erreur dans un code VBA
Résolu
jc80
Messages postés
4243
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Erreur dans un code VBA
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
5 réponses
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à.
Il faut que tu vois du coté de Call MAJClients(i) si l'opération est terminée. L'erreur se situe certainement là.
Bonjour,
Si ton UserForm se nomme: F_Clients, c'est normal qu'elle ne se ferme pas.
Supprime ceci: F_Clients.Show: Exit Sub
Si ton UserForm se nomme: F_Clients, c'est normal qu'elle ne se ferme pas.
Supprime ceci: F_Clients.Show: Exit Sub
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
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/
Il explique comment faire une boucle sur les feuilles.
https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci pour ta réponse
L'erreur est de ma faute dans mes essais j'ai rempli les textbox et combos et j'ai enregistré l'original avec des données.
D'ou l'impossibilité de vider puisqu'a' l'origine je l'avais rempli.
Désolé
Cordialement