Ajout AddItem dans VBA
Bonjour,
Je souhaite alimenter un tableau avec plusieurs colonne, mais je n'arrive pas à intégrer le AddItem.
Pouvez-vous m'aider?
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 If
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ésolé uniquement des chiffres"
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 SubEdit modo : code mis entre balises, merci d'y faire attention la prochaine fois
Bonjour arbi13 et
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalites du forum à connaître
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
Merci pour votre participation
Concernant votre demande, "AddItem" doit être suivi d'arguments
https://learn.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/additem-method
Cordialement