Additem

Fermé

excel- Messages postés 6 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 13 mai 2018 - 13 mai 2018 à 13:03
yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 - 13 mai 2018 à 18:56

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

A voir également:

Vba additem
Mkdir vba ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba dépassement de capacité ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 Ambassadeur 1 557
13 mai 2018 à 13:22

bonjour, chaque fois que tu as un message d'erreur, peux-tu nous dire sur quelle ligne il se produit?

Réponse 2 / 2

excel- Messages postés 6 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 13 mai 2018
13 mai 2018 à 15:03

Bonjour et merci de me répondre, c'est sur additem je suis perdu

yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 1 557
13 mai 2018 à 15:06

cela me semble bizarre de faire AddItem de rien. que veux-tu réaliser?

excel- Messages postés 6 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 13 mai 2018
13 mai 2018 à 15:11

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

yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 1 557
13 mai 2018 à 15:13

peut-être:

.AddItem  Me.Cbx_article 
.List(.ListCount - 1, 1) = Me.Txt_nombre

excel- Messages postés 6 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 13 mai 2018
13 mai 2018 à 15:19

non, cela ne fonctionne pas additem apparait toujours comme un Pb (message erreur :méthode introuvable ou de données introuvable)

excel- Messages postés 6 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 13 mai 2018
13 mai 2018 à 15:37

pour tableau:

Nr commande Date Nr article Nom Nombre Prix Prix total Fournisseur