XL 2019 Erreur dans une macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Mars 2020

• #2

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.

VB:

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

 

Pièces jointes

• Application Gestion Budget test (V2).xlsm

  92.4 KB · Affichages: 0

Vote positif 0 Vote négatif

PoloTaz67

XLDnaute Junior

• 1 Mars 2020

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Mars 2020

• #4

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 ?

 

Vote positif 0 Vote négatif

PoloTaz67

XLDnaute Junior

• 1 Mars 2020

• #5

oui
assurément
Merci bcp
Polo

 

Vote positif 0 Vote négatif

PoloTaz67

XLDnaute Junior

• 1 Mars 2020

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mars 2020

• #7

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

 

Vote positif 0 Vote négatif

Solution

PoloTaz67

XLDnaute Junior

• 1 Mars 2020

• #8

Merci

 

Vote positif 0 Vote négatif