Sujet Précédent Sujet Suivant

Erreur dans un code VBA

Résolu/Fermé
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 5 août 2015 à 16:27
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 6 août 2015 à 13:56
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


A voir également:

5 réponses

Réponse 1 / 5
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 août 2015 à 17:53
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à.
1
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
5 août 2015 à 18:03
Bonjour
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
0
Réponse 2 / 5
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 août 2015 à 17:27
Bonjour,

Si ton UserForm se nomme: F_Clients, c'est normal qu'elle ne se ferme pas.

Supprime ceci: F_Clients.Show: Exit Sub


0
Réponse 3 / 5
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 août 2015 à 18:04
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

0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 août 2015 à 18:06
Je n'ai pas vu ton dernier message, ils se sont croisés

@+ Le Pivert
0
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
5 août 2015 à 18:12
pas de problème pour cela

Par contre j'ai une question
Dans VBAProject>>Microsoft Excel objets j'ai des feuilles qui sont toujours inscrites
alors que je les aie supprimé directement avec les onglets.
Comment procéder pour les supprimer du VBAProject?
Merci
0
Réponse 4 / 5
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 août 2015 à 18:46
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/
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
6 août 2015 à 13:56
Bonjour

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

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
Problème de décodeur TV Bouygues Telecom
Massi119 -
Turone37 -

188 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Orange - Erreur P01 Netflix
DEMOZ43790 -
Malt -

1 réponse
Decodeur Orange erreur S05-05
Footeux_6210 -
jeanbern -

7 réponses