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
A voir également:
- Me dit erreur de syntaxe?
- Erreur upes 1025 - Forum Téléviseurs
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
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