XL 2013 Message d'erreur manque un End If !

donpopo · 8 Février 2021

Bonsoir le forum,

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

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

cp4 · 8 Février 2021

Bonsoir,

Le code, pas une image du code

donpopo · 8 Février 2021

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

donpopo · 8 Février 2021

Désolé, je ne connaissais pas ce moyen d'envoyer un code

cp4 · 8 Février 2021

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

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

donpopo · 8 Février 2021

Merci quand même, mais je n'ose pas envoyer le programme complet: il n'y a rien de confidentiel, mais il est rédigé par un néophyte et certaines personnes plus qualifiées que moi bondiraient. De plus il fait 5,7 Mo

Dranreb · 8 Février 2021

Bonsoir.

donpopo à dit:
Pourtant, si je compte bien, j'ai autant de if que de end if.

Oui mais il y a un End If qui ne peut pas compter car il y a un Else en trop qui ne saurait venir avant lui, de sorte qu'il y manque bien à cet endroit.

donpopo · 8 Février 2021

Bonsoir Dranreb,
En effet, j'ai supprimé le dernier
Else
Exit Sub
et cela fonctionne.
Amicalement,

JM27 · 8 Février 2021

bonsoir
moi ce que je vois c'est qu'il y a deux end sub pour un sub ( post #1)

donpopo · 8 Février 2021

Bonsoir,
oui en fait il s'

donpopo · 8 Février 2021

il s'agissait d'un exit sub et non end sub.
Merci.

Effectuez une recherche sur Excel Downloads...

XL 2013 Message d'erreur manque un End If !

donpopo

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

donpopo

XLDnaute Occasionnel

donpopo

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

donpopo

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

donpopo

XLDnaute Occasionnel

JM27

XLDnaute Barbatruc

donpopo

XLDnaute Occasionnel

donpopo

XLDnaute Occasionnel

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums