XL 2013 Message d'erreur manque un End If !

donpopo

donpopo

XLDnaute Occasionnel
Bonsoir le forum,

Voici la procédure qui me met une erreur bloc if sans end if:

Image1.jpg

Pourtant, si je compte bien, j'ai autant de if que de end if.
Je en comprends pas.
Merci d'avance,
donpopo
 
Trier par date Trier par votes
donpopo

donpopo

XLDnaute Occasionnel
VB: 
Private Sub Bout_Conf_Bail_Click()
    Dim copies As Variant
    If MsgBox("Etes-vous certain de vouloir remplir un bail ?", vbYesNo) = vbYes Then
        If ComboBox1 = "" Or ComboBox2 = "" Then
            Exit Sub
        Else
            With Sheets("Bail_vierge")
                .Range("C4").Value = Sheets("PARAMETRES").Range("B3").Value & "  " & Sheets("PARAMETRES").Range("C3").Value
                .Range("C5").Value = Sheets("PARAMETRES").Range("B4").Value
                .Range("C6").Value = Sheets("PARAMETRES").Range("B5").Value & "  " & Sheets("PARAMETRES").Range("C5").Value & "  " & Sheets("PARAMETRES").Range("B6").Value & " " & Sheets("PARAMETRES").Range("C6").Value
                
                .Range("C8").Value = TextBox6 & " " & ComboBox2.Value & "  N° nat. " & Sheets("Locataires").Cells(Nr_Lign_Loc, 7)
                .Range("C9").Value = Sheets("Locataires").Cells(Nr_Lign_Loc, 3) & "  " & Sheets("Locataires").Cells(Nr_Lign_Loc, 4) & _
                                ",  " & Sheets("Locataires").Cells(Nr_Lign_Loc, 5) & " " & Sheets("Locataires").Cells(Nr_Lign_Loc, 6)
                
                .Range("C16").Value = ComboBox1.Value
                .Range("C17").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 4) & "  " & Sheets("Biens").Cells(Nr_Lign_Bien, 5) _
                                & " à " & Sheets("Biens").Cells(Nr_Lign_Bien, 7) & "  " & Sheets("Biens").Cells(Nr_Lign_Bien, 6)
                .Range("C18").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 8)
                .Range("B19").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 9)
                .Range("C23").Value = TextBox7.Value & "  et se terminant le  " & TextBox8.Value
                .Range("C25").Value = TextBox9.Value & "€"
                .Range("C27").Value = Sheets("PARAMETRES").Range("B9").Value
                .Range("G27").Value = Sheets("PARAMETRES").Range("B3").Value
                .Range("C29").Value = "Mois de " & ComboBox3.Value
                .Range("D31").Value = TextBox9.Value * 2 & "€"
                .Range("F37").Value = TextBox14.Value & "€"
                .Range("E116").Value = TextBox14.Value & "E"
            End With
            If MsgBox("Voulez-vous l'imprimer ?", vbYesNo) = vbYes Then
                copies = InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")
                On Error Resume Next
                Worksheets("Bail_vierge").PrintOut copies:=copies
            Else
                Exit Sub
            End If
        End If
    Else
        End Sub
    End If
End Sub
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
donpopo à dit:
VB: 
Private Sub Bout_Conf_Bail_Click()
    Dim copies As Variant
    If MsgBox("Etes-vous certain de vouloir remplir un bail ?", vbYesNo) = vbYes Then
        If ComboBox1 = "" Or ComboBox2 = "" Then
            Exit Sub
        Else
            With Sheets("Bail_vierge")
                .Range("C4").Value = Sheets("PARAMETRES").Range("B3").Value & "  " & Sheets("PARAMETRES").Range("C3").Value
                .Range("C5").Value = Sheets("PARAMETRES").Range("B4").Value
                .Range("C6").Value = Sheets("PARAMETRES").Range("B5").Value & "  " & Sheets("PARAMETRES").Range("C5").Value & "  " & Sheets("PARAMETRES").Range("B6").Value & " " & Sheets("PARAMETRES").Range("C6").Value
               
                .Range("C8").Value = TextBox6 & " " & ComboBox2.Value & "  N° nat. " & Sheets("Locataires").Cells(Nr_Lign_Loc, 7)
                .Range("C9").Value = Sheets("Locataires").Cells(Nr_Lign_Loc, 3) & "  " & Sheets("Locataires").Cells(Nr_Lign_Loc, 4) & _
                                ",  " & Sheets("Locataires").Cells(Nr_Lign_Loc, 5) & " " & Sheets("Locataires").Cells(Nr_Lign_Loc, 6)
               
                .Range("C16").Value = ComboBox1.Value
                .Range("C17").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 4) & "  " & Sheets("Biens").Cells(Nr_Lign_Bien, 5) _
                                & " à " & Sheets("Biens").Cells(Nr_Lign_Bien, 7) & "  " & Sheets("Biens").Cells(Nr_Lign_Bien, 6)
                .Range("C18").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 8)
                .Range("B19").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 9)
                .Range("C23").Value = TextBox7.Value & "  et se terminant le  " & TextBox8.Value
                .Range("C25").Value = TextBox9.Value & "€"
                .Range("C27").Value = Sheets("PARAMETRES").Range("B9").Value
                .Range("G27").Value = Sheets("PARAMETRES").Range("B3").Value
                .Range("C29").Value = "Mois de " & ComboBox3.Value
                .Range("D31").Value = TextBox9.Value * 2 & "€"
                .Range("F37").Value = TextBox14.Value & "€"
                .Range("E116").Value = TextBox14.Value & "E"
            End With
            If MsgBox("Voulez-vous l'imprimer ?", vbYesNo) = vbYes Then
                copies = InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")
                On Error Resume Next
                Worksheets("Bail_vierge").PrintOut copies:=copies
            Else
                Exit Sub
            End If
        End If
    Else
        End Sub
    End If
End Sub
Cliquez pour agrandir...
Désolé, ce code fait partie d'un userfrom, je ne peux pas le tester
VB: 
Option Explicit

Private Sub Bout_Conf_Bail_Click()
    Dim copies As Variant
    If MsgBox("Etes-vous certain de vouloir remplir un bail ?", vbYesNo) = vbYes Then
        If ComboBox1 = "" Or ComboBox2 = "" Then
            Exit Sub
        Else
            With Sheets("Bail_vierge")
                .Range("C4").Value = Sheets("PARAMETRES").Range("B3").Value & "  " & Sheets("PARAMETRES").Range("C3").Value
                .Range("C5").Value = Sheets("PARAMETRES").Range("B4").Value
                .Range("C6").Value = Sheets("PARAMETRES").Range("B5").Value & "  " & Sheets("PARAMETRES").Range("C5").Value & "  " & Sheets("PARAMETRES").Range("B6").Value & " " & Sheets("PARAMETRES").Range("C6").Value
                .Range("C8").Value = TextBox6 & " " & ComboBox2.Value & "  N° nat. " & Sheets("Locataires").Cells(Nr_Lign_Loc, 7)
                .Range("C9").Value = Sheets("Locataires").Cells(Nr_Lign_Loc, 3) & "  " & Sheets("Locataires").Cells(Nr_Lign_Loc, 4) & _
                                     ",  " & Sheets("Locataires").Cells(Nr_Lign_Loc, 5) & " " & Sheets("Locataires").Cells(Nr_Lign_Loc, 6)
                .Range("C16").Value = ComboBox1.Value
                .Range("C17").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 4) & "  " & Sheets("Biens").Cells(Nr_Lign_Bien, 5) _
                                      & " à " & Sheets("Biens").Cells(Nr_Lign_Bien, 7) & "  " & Sheets("Biens").Cells(Nr_Lign_Bien, 6)
                .Range("C18").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 8)
                .Range("B19").Value = Sheets("Biens").Cells(Nr_Lign_Bien, 9)
                .Range("C23").Value = TextBox7.Value & "  et se terminant le  " & TextBox8.Value
                .Range("C25").Value = TextBox9.Value & "€"
                .Range("C27").Value = Sheets("PARAMETRES").Range("B9").Value
                .Range("G27").Value = Sheets("PARAMETRES").Range("B3").Value
                .Range("C29").Value = "Mois de " & ComboBox3.Value
                .Range("D31").Value = TextBox9.Value * 2 & "€"
                .Range("F37").Value = TextBox14.Value & "€"
                .Range("E116").Value = TextBox14.Value & "E"
            End With
        End If
        If MsgBox("Voulez-vous l'imprimer ?", vbYesNo) = vbYes Then
            copies = InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")
            On Error Resume Next
            Worksheets("Bail_vierge").PrintOut copies:=copies
        Else
            Exit Sub
        End If
    End If
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

E
  • Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
199
Elisa47
E
piga25
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
215
piga25
piga25
S
  • Question
Microsoft 365 Macro vba excel
Réponses
6
Affichages
213
patricktoulon
patricktoulon
D
  • Question
Autres if deux conditions
Réponses
4
Affichages
187
dadaze
D
cathodique
  • Question
XL 2010 Fonction Id existe
Réponses
13
Affichages
255
cathodique
cathodique
petitbuzuc
  • Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
240
fanch55
fanch55
T
  • Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
155
sylvanu
sylvanu
I
  • Question
Microsoft 365 gestion des erreurs vba Excel
Réponses
2
Affichages
220
iliess
I
A
  • Résolu(e)
Microsoft 365 Correction du code vba
Réponses
5
Affichages
198
AD95
A
M
  • Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
222
midovic
M

Membres actuellement en ligne

9 membres et 82 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 330
Messages
2 087 335
Membres
103 521
dernier inscrit
Excellover 21