Menu

Me dit erreur de syntaxe?

- - Dernière réponse :  jp - 5 déc. 2018 à 16:01
Private Sub CommandButton1_Click()

Dim DL As Integer

if Me.Txt_société <> "" and me.Txt_désignationetréférence <> "" and me.Txt_prixunitaire <> "" and me.Txt_stockmini <>""
Sheets(3).ListObjects(1).ListRows.Add
DL = Sheets(3).Range("b9999").End(xlUp).Row

' ajouter dans le tableau '
Sheets(3).Range("b" & DL) = Me.Label_info.Caption
Sheets(3).Range("c" & DL) = Me.Txt_société
Sheets(3).Range("d" & DL) = Me.Txt_désignationetréférence
Sheets(3).Range("g" & DL) = CCur(Me.Txt_prixunitaire)
Sheets(3).Range("l" & DL) = CInt(Me.Txt_stockmini)

Sheets(5).Range("d19") = Sheets(5).Range("d19") + 1

ThisWorkbook.Save
Unload Add_Article

End If
End Sub
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7843
Date d'inscription
jeudi 30 juin 2005
Statut
Contributeur
Dernière intervention
6 décembre 2018
0
Merci
Bonjour,

Syntaxe à ajouter:

Bonjour ? SVP ? Merci d'avance ?

Et ce n'est pas des commandes de base de données (sql, oracle, mysql, Firebird) mais plutôt pour le tableur Excel.
Donc appelons un chat un chat.
Du coup il se serait plus judicieux de dire ce que vous souhaitez faire dans Excel exactement au lieu de nous balancer un bout de code sans explication.

Cdlt.
ok merci, viens de trouver mon erreur.
encore merci.

jp
Commenter la réponse de bendrop