- Initiateur de la discussion donpopo
- Date de début
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
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 Subdonpopo
XLDnaute Occasionnel
Désolé, je ne connaissais pas ce moyen d'envoyer un code
cp4
XLDnaute Barbatruc
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 Subdonpopo
XLDnaute Occasionnel
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
XLDnaute Barbatruc
Bonsoir.
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.
Dernière édition:
donpopo
XLDnaute Occasionnel
Bonsoir Dranreb,
En effet, j'ai supprimé le dernier
Else
Exit Sub
et cela fonctionne.
Amicalement,
En effet, j'ai supprimé le dernier
Else
Exit Sub
et cela fonctionne.
Amicalement,
bonsoir
moi ce que je vois c'est qu'il y a deux end sub pour un sub ( post #1)
moi ce que je vois c'est qu'il y a deux end sub pour un sub ( post #1)
donpopo
XLDnaute Occasionnel
il s'agissait d'un exit sub et non end sub.
Merci.
Merci.
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Discussions similaires
- Question
- Résolu(e)
- Question
- Question
- Résolu(e)