Contenu d'une List box a insérer dans une List box

Bonjour ,

je suis novice dans tout ce qui concerne excel VBA mais grâce a ce forum j'ai pu régler un soucis que j'avais. Mais du coup un autre problème se pose ; je m'explique:

le but de mon projet et de réaliser une gestion des commandes et les informations sont affichées comme ci dessous :

image

Quand je sélectionne une commande en haut , le reste des informations sont affichés en bas , le probleme étant maintenant de récupérer ses données et de les envoyer dans des texbox d'un formulaire de modification appélé Modif commande . Pour la List Box du haut cela fonctionne mais pour celle du bas cela ne fonctionne pas . je vous laisse le code ci dessous :

Private Sub BtnModifCommande_Click()

ModifCommande.TxtBDesignationProduit = Me.LBxCommande.Column(0)
ModifCommande.TxtBDestinataire = Me.LBxCommande.Column(1)
ModifCommande.CbBSite = Me.LBxCommande.Column(2)
ModifCommande.TxtBFournisseur = Me.LBxCommande.Column(3)
ModifCommande.CbBEtatlivraison = Me.LBxCommande.Column(4)
ModifCommande.CbBServiceFait = Me.LBxCommande.Column(5)
'ModifCommande.TxtBNumDA = Me.LBDateCommande.Column(0)
'ModifCommande.TxtBDateDA = Me.LBDateCommande.Column(1)
'ModifCommande.TxtBDV = Me.LBDateCommande.Column(2)
'ModifCommande.TxtBNumBC = Me.LBDateCommande.Column(3)
'ModifCommande.TxtBDateBC = Me.LBDateCommande.Column(4)
'ModifCommande.CbBConfirmCommande = Me.LBDateCommande.Column(5)
'ModifCommande.TxtBDateL = Me.LBDateCommande.Column(6)
'ModifCommande.Show

le code en commentaire est celui qui ne fonctionne pas en espérant que vous pourrais m'aider , Cordialement Nathan

Bonjour,

Il ne faut pas lire directement dans les listbox > mais lire la ligne de la feuille représentée par la ligne sélectionnée dans la listbox ...

Un essai ...

Private Sub BtnModifCommande_Click()
Dim X As Integer   ' integer = max 32768 lignes, pour plus utiliser Long

   With Worksheets("bdd1")

      X = LBxCommande.ListIndex + 2

      ModifCommande.TxtBDesignationProduit = .Cells(X, "A")
      ModifCommande.TxtBDestinataire = Cells(X, "B")
      ModifCommande.CbBSite = Cells(X, "C")
      ModifCommande.TxtBFournisseur = Cells(X, "D")
      ModifCommande.CbBEtatlivraison = Cells(X, "E")
      ModifCommande.CbBServiceFait = Cells(X, "F")

      ModifCommande.TxtBNumDA = Cells(X, "G")
      ModifCommande.TxtBDateDA = Cells(X, "H")
      ModifCommande.TxtBDV = Cells(X, "i")
      ModifCommande.TxtBNumBC = Cells(X, "J")
      ModifCommande.TxtBDateBC = Cells(X, "K")
      ModifCommande.TxtBDateL = Cells(X, "l")
      ModifCommande.CbBConfirmCommande = Cells(X, "M")

   End With
   ModifCommande.Show
End Sub

ric

Merci beaucoup Ric et du coup je vais donc pouvoir réutiliser ces lignes pour supprimer la commande voulu ?

Bonjour,

Bien sûr ...

ric

D'accord encore merci Ric pour l'aide que tu ma apporter

ric

Rechercher des sujets similaires à "contenu list box inserer"