Erreur de Compilation VBA (erreur d'execution 424) Fermé

Question

Bonjour sur le button commande je n'arrive pas à enregistrer les données dans le formulaire Le blocage se fait sur Me.description !! Private Sub CommandButton1_Click() If Me.description = "" Or Me.categorie.ListIndex < 0 Or Me.ListIndex < 0 Or Me.txtdate = "" Or Me.somme = "" Or Me.compte.ListIndex < 0 Or Me.creancier = "" Then MsgBox ("Il manque des informations") Else 'Controler si la base de données est vide oui ou non If Sheets("input").Range("B3") <> "" Then Sheets("input").ListObjects(1).ListRow.Add End If 'Trouver la dernière ligne et ajouter nos informations dlt = Sheets("input").Range("b454653").End(x1up).Row 'Désormais ajouter nos informations Sheets("input").Range("c" & dlt) = txtdate Sheets("input").Range("d" & dlt) = "sortie" Sheets("input").Range("e" & dlt) = CDbl(Me.somme) Sheets("input").Range("f" & dlt) = Me.compte.Column(1) Sheets("input").Range("g" & dlt) = Me.creancier Sheets("input").Range("h" & dlt) = Me.description Sheets("input").Range("i" & dlt) = Me.categorie Sheets("input").Range("k" & dlt) = Me.subcat Sheets("input").Range("m" & dlt) = Me.ref Sheets("input").Range("n" & dlt) = Me.remarque 'Tout vider Me.txtdate = "" Me.compte = "" Me.creancier = "" Me.somme = "" Me.categorie = "" Me.subcat.RowSource = "sortie" & Me.categorie Me.ref = "" Me.remarque = "" Me.description = "" ThisWorkbook.RefreshAll ThisWorkbook.Save Me.ListBox1.RowSource = "compte" End If End Sub

julia Namor · Answer

Bonjour il faudrait renommer le description en retirant le / bien cordialement

thev · Answer

Bonsoir,

A mon avis, ce serait plutôt :
If Me.description.Font.Bold = 0 …………………..

thev · Answer

Bonjour,

With Sheets("input").ListObjects(1)
        'Controler si la base de données est vide oui ou non
        'Trouver la dernière ligne et ajouter nos informations
        Set cell = .ListColumns(1).Range.Find("")
        If cell Is Nothing Then .ListRows.Add: dlt = .ListRows.Count _
        Else dlt = cell.Row - .HeaderRowRange.Row
        
        'Désormais ajouter nos informations
        .ListColumns(1).DataBodyRange.Rows(dlt) = txtdate
        .ListColumns(2).DataBodyRange.Rows(dlt) = "sortie"
        .ListColumns(3).DataBodyRange.Rows(dlt) = CDbl(Me.somme)
        .ListColumns(4).DataBodyRange.Rows(dlt) = Me.compte.Column(1)
        .ListColumns(5).DataBodyRange.Rows(dlt) = Me.creancier
        .ListColumns(6).DataBodyRange.Rows(dlt) = Me.Description
        .ListColumns(7).DataBodyRange.Rows(dlt) = Me.categorie
        .ListColumns(8).DataBodyRange.Rows(dlt) = Me.subcat
        .ListColumns(9).DataBodyRange.Rows(dlt) = Me.ref
        .ListColumns(10).DataBodyRange.Rows(dlt) = Me.remarque

End With


Pour prévoir l'ajout ou la modification d'une colonne, il est mieux d'indiquer le nom de la colonne de l'objet tableau. Comme ceci :
.Listcolumns("nom_de_la_colonne")

Erreur de Compilation VBA (erreur d'execution 424)

3 réponses

Discussions similaires