Additem

excel- -

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

Afficher la suite

2 réponses

Réponse 1 / 2
yg_be Contributeur
bonjour, chaque fois que tu as un message d'erreur, peux-tu nous dire sur quelle ligne il se produit?

0
Réponse 2 / 2
excel- Auteur
Bonjour et merci de me répondre, c'est sur additem je suis perdu

0
1. yg_be Contributeur
  
  cela me semble bizarre de faire AddItem de rien. que veux-tu réaliser?
  
  0
2. excel- Auteur
  
  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
  
  0
3. yg_be Contributeur
  
  peut-être:
  .AddItem Me.Cbx_article .List(.ListCount - 1, 1) = Me.Txt_nombre
  
  0
4. excel- Auteur
  
  non, cela ne fonctionne pas additem apparait toujours comme un Pb (message erreur :méthode introuvable ou de données introuvable)
  
  0
5. excel- Auteur
  
  pour tableau:
  
  Nr commande Date Nr article Nom Nombre Prix Prix total Fournisseur
  
  0

Additem

2 réponses

Discussions similaires

Newsletters