Erreur de Compilation VBA (erreur d'execution 424)

qnaeb Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
qnaeb Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
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</gras> = "" 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

3 réponses

Réponse 1 / 3
thev Messages postés 1985 Date d'inscription   Statut Membre Dernière intervention   713
 
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")

1
qnaeb Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup
grâce à vous cela a fonctionné
Bonne soirée
0
Réponse 2 / 3
julia Namor Messages postés 524 Date d'inscription   Statut Membre Dernière intervention   33
 
Bonjour
il faudrait renommer le 
description</gras>

en retirant le 
/

bien cordialement
0
qnaeb Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Ok Merci
mais je travail sous visual basic excel 2016
cela ne m'aide pas mais je reste ouvert à d'autre proposition
0
Réponse 3 / 3
thev Messages postés 1985 Date d'inscription   Statut Membre Dernière intervention   713
 
Bonsoir,

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

0
qnaeb Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour l'info
Cela fonctionne jusqu'à la ligne " MsgBox"
Cela m'indique la valeur contenu dans la MsgBox 'Il manque des informations'
J'avance .... les amis, mais j'ai encore besoin de soutien
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse