Additem
excel-
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à vous tous,
voilà j ai un problème avec une prg vba ,j ai Excel 2007 et j'ai un message (méthode introuvable ou de données introuvable, si quelqu'un pouvait m'aider se serait super déjà que je suis novice ,alors un peut d'aide serait la bienvenue merci
Option Explicit
Public memoire As Integer
Private Sub CommandButton1_Click()
With Me.list_order
.AddItem
.List(memoire, 0) = Me.Cbx_article
.List(memoire, 1) = Me.Txt_nombre
End With
memoire = memoire + 1
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub Txt_nombre_Change()
If Not IsNumeric(Txt_nombre) And Txt_nombre <> "" Then
MsgBox "désoler uniquement que des chiffre"
Txt_nombre = ""
End If
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Me.Label_info.Caption = Sheets(8).Range("e20")
End Sub
voilà j ai un problème avec une prg vba ,j ai Excel 2007 et j'ai un message (méthode introuvable ou de données introuvable, si quelqu'un pouvait m'aider se serait super déjà que je suis novice ,alors un peut d'aide serait la bienvenue merci
Option Explicit
Public memoire As Integer
Private Sub CommandButton1_Click()
With Me.list_order
.AddItem
.List(memoire, 0) = Me.Cbx_article
.List(memoire, 1) = Me.Txt_nombre
End With
memoire = memoire + 1
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub Txt_nombre_Change()
If Not IsNumeric(Txt_nombre) And Txt_nombre <> "" Then
MsgBox "désoler uniquement que des chiffre"
Txt_nombre = ""
End If
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Me.Label_info.Caption = Sheets(8).Range("e20")
End Sub
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, chaque fois que tu as un message d'erreur, peux-tu nous dire sur quelle ligne il se produit?
Bonjour et merci de me répondre, c'est sur additem je suis perdu
une base de données qui ajoute automatiquement article ,nom ,prix ,unité ,nombre
Option Explicit
Public memoire As Integer
Private Sub CommandButton1_Click()
Dim fart_name As String
Dim part_prix As Currency
fart_name = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 2, 0)
part_prix = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 4, 0)
With Me.list_order
AddItem
.List(memoire, 0) = Me.Cbx_article
.List(memoire, 1) = Me.Txt_nombre
.List(memoire, 2) = CCur(part_prix)
.List(memoire, 3) = Me.Txt_nombre
End With
memoire = memoire + 1
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub Txt_nombre_Change()
If Not IsNumeric(Txt_nombre) And Txt_nombre <> "" Then
MsgBox "désoler uniquement que des chiffre"
Txt_nombre = ""
End If
End Sub
Private Sub userform_clic()
End Sub
Private Sub UserForm_Initialize()
Me.Label_info.Caption = Sheets(8).Range("e20")
End Sub
Option Explicit
Public memoire As Integer
Private Sub CommandButton1_Click()
Dim fart_name As String
Dim part_prix As Currency
fart_name = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 2, 0)
part_prix = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 4, 0)
With Me.list_order
AddItem
.List(memoire, 0) = Me.Cbx_article
.List(memoire, 1) = Me.Txt_nombre
.List(memoire, 2) = CCur(part_prix)
.List(memoire, 3) = Me.Txt_nombre
End With
memoire = memoire + 1
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub Txt_nombre_Change()
If Not IsNumeric(Txt_nombre) And Txt_nombre <> "" Then
MsgBox "désoler uniquement que des chiffre"
Txt_nombre = ""
End If
End Sub
Private Sub userform_clic()
End Sub
Private Sub UserForm_Initialize()
Me.Label_info.Caption = Sheets(8).Range("e20")
End Sub
