Me dit erreur de syntaxe?
jp
-
jp -
jp -
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
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
1 réponse
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.
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.
encore merci.
jp