XL 2013 Modification lignes excel en même temps au niveau d'une listbox

[linko0007]

Bonsoir tout le monde,

Je vous envoie ce message par rapport à un Userform que j'ai adapté à mes besoins ci-dessous. Lors de la sélection d'un client, je veux avoir la modification via les textbox pour toutes les lignes de la listbox de client.

Merci d'avance pour toutes les personnes qui veulent m'aider.

 

[ChTi160]

Bonsoir
déjà il m'a fallu changer La ListBox1 (pas Bonne !)
puis Modifié la procédure
avec un truc du Genre (Perfectible)

Private Sub ListBox1_Click()
X = 0
indx = ListBox1.ListIndex
  For i = 0 To ListBox1.ColumnCount - 1 'NbCol  
    tmp = Me.ListBox1.List(indx, X) 
    If Not IsError(tmp) Then Me("textbox" & 1 + X) = tmp
    X = X + 1
  Next i
  Me.Enreg = Me.ListBox1.Column(NbCol) 
End Sub

Jean marie

 

[linko0007]

Bonsoir
déjà il m'a fallu changer La ListBox1 (pas Bonne !)
puis Modifié la procédure
avec un truc du Genre (Perfectible)

Private Sub ListBox1_Click()
X = 0
indx = ListBox1.ListIndex
  For i = 0 To ListBox1.ColumnCount - 1 'NbCol 
    tmp = Me.ListBox1.List(indx, X)
    If Not IsError(tmp) Then Me("textbox" & 1 + X) = tmp
    X = X + 1
  Next i
  Me.Enreg = Me.ListBox1.Column(NbCol)
End Sub

Jean marie

 

[linko0007]

Bonsoir et merci pour votre réponse,

Le code ne fonctionne pas, en fait je veux que la proprité multiselect de la listbox soit extended ou multiple. Quand je selectionne un client avec 5 lignes par exemple je valide les modifications qui seront appliquées à toutes les lignes du client en question.

merci encore pour votre aide. C'est très aimable de votre part et si c'est possible, pouvez vous mettre le fichier en pièce jointe pour le tester ?

 

[ChTi160]

Bonjour ,
A quoi et comment doivent servir tes textBox ?
Bonne Journée
Jean marie

 

[ChTi160]

Re
Regarde la vidéo et dis moi ce qui doit ce faire après la sélection des Lignes ?
Jean marie