ON ERROR RESUME NEXT : besoin d'explications !

KouzinePhilo

KouzinePhilo

XLDnaute Nouveau
Bonjour
j'ai développé un fichier VBA EXCEL sur pc avec un UserForm classique
L'userform permet de créer des demandes de réservations (base de données)
Lorsque je crée une "nouvelle demande" ça plante sur MAC mais ça enregistre bien les données comme il faut donc j'ai mis des ON ERROR NEXT là où ça semblait poser problème.
Depuis c'est parfait je peux créer mes contacts tout marche bien sauf qu'au moment de fermer le userform le MAC plante et tout se ferme !!
J'ai peut être pas pigé un truc sur le ON ERROR RESUME NEXT
est-ce qu'il faut ajouter une commande de fin d'instruction après l'avoir utilisé... ? Si mon plantage a été simplement "décalé" comment faire ??

Voici mon code en entier.
Code: 
Option Explicit



'////////////////////////////////////////
'FORMULAIRE CREATION DEMANDE NEWDEMANDE
'////////////////////////////////////////

Public Sub TRIERlaLISTE()
Application.ScreenUpdating = False
Worksheets("LISTING_ASSOS").Range("A2:DS1000").Sort Key1:=Worksheets("LISTING_ASSOS").Range("B2:B1000")
Application.ScreenUpdating = True
End Sub

'*****************************************
'INITIALISATION
'*****************************************

Sub UserForm_Initialize()
'A l'ouverture du UseForm on tri et on definit les valeurs qui seront dans les listes deroulantes
TRIERlaLISTE
Me.ComboBoxCHERCHER.List = Range("NomsAssos").Value
Me.ComboBoxNbre.List = Range("Nbrecreneaux").Value
TRIERlaLISTE

End Sub

'***********************************************************************
'CHERCHER DANS LA LISTE L ASSO QUI FAIT LA DEMANDE ET AFFICHER L'ID
'************************************************************************

Private Sub comboboxCHERCHER_Change()
Dim LigneID As Integer
LigneID = Me.ComboBoxCHERCHER.ListIndex
Me.TxtID = Sheets("LISTING_ASSOS").Cells(LigneID + 2, 1)

End Sub

'*****************************************
'BLOQUER LES COMMANDES SUPPR ET ENREGISTRER
'*****************************************

Sub FinDeDemande()
Unload NewDemande
Unload FORMDemandes
FORMDemandes.Show
TRIERlaLISTE

End Sub


'*****************************************
'Nouvelle DEMANDE : champs sur fiche ASSOS
'*****************************************

Sub CreaListingAsso()
'On enregistre dans la fiche asso les champs de la Nouvelle demande
Dim LigneASSO As Integer
LigneASSO = Me.ComboBoxCHERCHER.ListIndex
Sheets("LISTING_ASSOS").Cells(LigneASSO + 2, 86) = "VRAI"
Sheets("LISTING_ASSOS").Cells(LigneASSO + 2, 87) = Me.TxtDateDemande.Text
Sheets("LISTING_ASSOS").Cells(LigneASSO + 2, 88) = Me.ComboBoxNbre.Value
Sheets("LISTING_ASSOS").Cells(LigneASSO + 2, 89) = Me.TxtActivite1.Text
Sheets("LISTING_ASSOS").Cells(LigneASSO + 2, 90) = Me.TxtActivite2.Text
Sheets("LISTING_ASSOS").Cells(LigneASSO + 2, 91) = Me.TxtActivite3.Text

End Sub

'*****************************************
'CRENEAU 1 : Enregistrer sur LISTING_DEMANDES
'*****************************************

Sub Creneau1Save()
 On Error Resume Next
'SUR L ONGLET DES DEMANDES
'On cree une premi￾re ligne pour le creneau 1
With Sheets("LISTING_DEMANDES")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = Me.TxtID.Text
.Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = Me.ComboBoxCHERCHER.Value & "_Creneau No1"
.Cells(.Rows.Count, 3).End(xlUp).Offset(1).Value = Me.TxtDateDemande.Text
.Cells(.Rows.Count, 4).End(xlUp).Offset(1).Value = Me.ComboBoxNbre.Value
.Cells(.Rows.Count, 6).End(xlUp).Offset(1).Value = Me.TxtActivite1.Text
.Cells(.Rows.Count, 24).End(xlUp).Offset(1).Value = "Creneau No1"
End With
End Sub



'*****************************************
'CRENEAU 2 : Enregistrer sur LISTING_DEMANDES
'*****************************************

Sub Creneau2Save()
 On Error Resume Next
With Sheets("LISTING_DEMANDES")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = Me.TxtID.Text
.Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = Me.ComboBoxCHERCHER.Value & "_Creneau No2"
.Cells(.Rows.Count, 3).End(xlUp).Offset(1).Value = Me.TxtDateDemande.Text
.Cells(.Rows.Count, 4).End(xlUp).Offset(1).Value = Me.ComboBoxNbre.Value
.Cells(.Rows.Count, 6).End(xlUp).Offset(1).Value = Me.TxtActivite2.Text
.Cells(.Rows.Count, 24).End(xlUp).Offset(1).Value = "Creneau No2"
End With
End Sub

'*****************************************
'CRENEAU 3 : Enregistrer sur LISTING_DEMANDES
'*****************************************

Sub Creneau3Save()
 On Error Resume Next
With Sheets("LISTING_DEMANDES")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = Me.TxtID.Text
.Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = Me.ComboBoxCHERCHER.Value & "_Creneau No3"
.Cells(.Rows.Count, 3).End(xlUp).Offset(1).Value = Me.TxtDateDemande.Text
.Cells(.Rows.Count, 4).End(xlUp).Offset(1).Value = Me.ComboBoxNbre.Value
.Cells(.Rows.Count, 6).End(xlUp).Offset(1).Value = Me.TxtActivite3.Text
.Cells(.Rows.Count, 24).End(xlUp).Offset(1).Value = "Creneau No3"
End With
End Sub


'*****************************************
'CLIC SUR ENREGISTRER LA NEW DEMANDE
'*****************************************

Private Sub CommandButtonCreerDemande_Click()
'on enregistre que si tous les champs sont remplis
 On Error Resume Next
 
If Me.ComboBoxNbre.Value = "" Then MsgBox ("Veuillez remplir tous les champs")


'SI 1 SEUL CRENEAU DEMANDE
'*****************************************

If (Me.ComboBoxNbre.Value = 1) Then
        If Me.ComboBoxCHERCHER.Value = "" Or Me.TxtDateDemande.Text = "" Or Me.TxtActivite1.Text = "" Then
        MsgBox ("Veuillez remplir tous les champs")
        
        Else
     
 
 'SUR L ONGLET DES FICHES ASSOS
'On remplit les champs des demandes
CreaListingAsso
Creneau1Save
FinDeDemande
           End If
                End If
          
'SI 2 CRENEAUX DEMANDES
'*****************************************


If (Me.ComboBoxNbre.Value = 2) Then
        If Me.ComboBoxCHERCHER.Value = "" Or Me.TxtDateDemande.Text = "" Or Me.TxtActivite1.Text = "" Or Me.TxtActivite2.Text = "" Then
        MsgBox ("Veuillez remplir tous les champs")
        Else
     
 
 'SUR L ONGLET DES FICHES ASSOS
'On remplit les champs des demandes
CreaListingAsso
Creneau1Save
Creneau2Save
FinDeDemande
           End If
                End If

             
'SI 3 CRENEAUX DEMANDES
'*****************************************

If (Me.ComboBoxNbre.Value = 3) Then
        If Me.ComboBoxCHERCHER.Value = "" Or Me.TxtDateDemande.Text = "" Or Me.TxtActivite1.Text = "" Or Me.TxtActivite2.Text = "" Or Me.TxtActivite3.Text = "" Then
        MsgBox ("Veuillez remplir tous les champs")
        Else
     
 
 'SUR L ONGLET DES FICHES ASSOS
'On remplit les champs des demandes
CreaListingAsso
Creneau1Save
Creneau2Save
Creneau3Save
FinDeDemande
           End If
                End If
        
End Sub

'*****************************************
'CLIC SUR ANNULER
'*****************************************
Private Sub CommandButtonAnnulerDemande_Click()
Unload NewDemande
End Sub
 
Trier par date Trier par votes
C

Compte Supprimé 979

Guest
Re : ON ERROR RESUME NEXT : besoin d'explications !

Bonjour KouzinePhilo,

Le "On Error Resume Next" permet au code de continuer la procédure en cas de bug

En général il faut mettre à la suite : "On Error Goto 0"
qui dit à VBA de revenir au traitement d'erreur normal

Si tu as un bug, mieux vaut éviter le "On Error" et identifier le problème

Si tu as la possibilité de mettre un extrait de ton fichier avec l'USF,
nous pourrions regarder ça

A+
 
Vote positif 0 Vote négatif

Discussions similaires

T
  • Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
922
thivame
T
A
  • Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
113
Phil69970
Phil69970
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
235
Zonmé
Z
D
  • Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
267
Dranreb
Dranreb
B
  • Question
Microsoft 365 [RESOLU] Supprimer Ligne rapidement et avec plusieurs conditions
Réponses
5
Affichages
109
BENAM69
B
D
  • Question
Autres if deux conditions
Réponses
4
Affichages
174
dadaze
D
D
  • Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
221
fanch55
fanch55
D
  • Question
Microsoft 365 Historique des modifications
Réponses
11
Affichages
553
sylvanu
sylvanu
L
  • Question
VBA : erreur sur boucle
Réponses
2
Affichages
77
Latias
L
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
339
dadu35
D

Membres actuellement en ligne

1 membres et 40 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 206
Messages
2 086 219
Membres
103 158
dernier inscrit
laufin