XL 2019 Erreur dans une macro

[PoloTaz67]

Bonjour
Je suis entrain de faire un document pour gérer le budget de mon fils
or j'ai un soucis avec une commande (fichier joint).
je n'arrive pas a comprendre pourquoi il y a une erreur de compilation pour une fenêtre qui est vide (Description)
je joint aussi en fichier excel en travaux.
Merci pour la réponse et si possible avec une explication ... dans le but d'apprendre bien sur
Cordialement
Polo

 

[sylvanu]

Bonjour PoloTaz,
Il y a plusieurs erreurs.
Me.Description.Value = "" ' ajouter .value
Sheets("input").Range("b3") ' manque les deux guillemets
Utilisez l'indentation, c'est plus lisible.

Private Sub CommandButton1_Click()
If Me.Description.Value = "" Or Me.Catégorie.ListIndex < 0 Or _
    Me.Subcat.ListIndex < 0 Or Me.Textdate.Value = "" Or _
    Me.Somme = "" Or Me.Compte.ListIndex < 0 Or _
    Me.Créancier = "" Then
    MsgBox ("Il manque des informations!!!")   'contrôler si le tableau de la base de donnée est vide ou non
Else
    If Sheets("input").Range("b3") <> "" Then
        Sheets("input").ListObjects(1).ListRows.Add
    End If
End If
End Sub

 

[PoloTaz67]

Bonjour,
Merci
oui effectivement c'est plus clair
petite question
or_
Or ok
_ ? signifie de passer à la suite ou une autre fonction lui est attribuée?
Merci

 

[sylvanu]

Re,
Quand les lignes sont trop longues pour être lisible, on passe à la ligne. Juste pour améliorer la lecture.
Attention au piège, le passage à la ligne n'est pas "_" mais " _" avec un espace avant le shift 8.
C'est quand même plus lisible ?

 

[PoloTaz67]

oui
assurément
Merci bcp
Polo

 

[PoloTaz67]

Ps: je n'ai tjrs pas compris comment afficher "résolu" davant le post
Comment faire?
Merci

 

[Staple1600]

Bonjour , PoloTaz, sylvanu

[Pour info]
Ce n'est pas obligatoire de passer un post en Résolu.
Mais si tu y tiens, voir le mode opératoire posté par DavidXLD

 

[PoloTaz67]

Merci