none
VBA sur office 365 Erreur de compilation 11 RRS feed

  • Question

  •  Bonjour,

    Premier passage sur ce site. J'ai une erreur de code 11 x = 0.

    Le problème est que ce code fonctionnait et il a décidé tout à coup de me mettre ce code d'erreur.

    Quelqu'un peut m'aider?

    Il n'y as pas de choix recevoir une réponse alors je risque en vous laissant mon courriel dverrette@jdsformationplus.net

    Merci

    'Bouton budg?ter

    Private Sub budg?ter_Click()
    Dim x As Integer
    Dim payementmensuel As Double
    Dim mensuel As Double
    
    If Me.compte < 0 Or Me.montant = "" Or Me.txtdate = "" Or Me.p?riode < 0 Or Me.cat?gorie < 0 Or Me.souscat < 0 Then
    MsgBox ("Il manque des informations!")
    
    Else
            
        'V?rifier si la date de payement est pr?sent
        If Me.payement <> "" Then
            
            x = DateDiff("m", Me.txtdate, Me.payement)
            payementmensuel = CDbl(Me.montant) / x '<-- Un calcul des mensualit?s qui reste ? payer entre ces deux dates
            
            Do Until x = 0
                
                If Sheets("transaction").Range("c4") <> "" Then
                Sheets("transaction").ListObjects(1).ListRows.Add
                End If
                
                'Trouver la derni?re ligne
                dlt = Sheets("transaction").Range("B100000").End(xlUp).Row
                            
                Sheets("transaction").Range("c" & dlt) = Me.txtdate
                Sheets("transaction").Range("d" & dlt) = "Budget"
                Sheets("transaction").Range("e" & dlt) = payementmensuel
                Sheets("transaction").Range("f" & dlt) = Me.compte.Column(1)
                Sheets("transaction").Range("i" & dlt) = Me.cat?gorie
                Sheets("transaction").Range("k" & dlt) = Me.souscat
                
                Me.txtdate = DateAdd("m", 1, Me.txtdate) '<-- Ajouter un mois en plus ? la date de d?part
                x = x - 1 '<-- Compte le nombre de fois qu'il faut faire la loupe
                
            Loop
                        
        End If
    End If
    End 
    vendredi 26 avril 2019 01:38

Toutes les réponses