Envoye des données provenant d'une listbox

Re
Voilà ce que tu peux essayer :
Private Sub cmdEditLeDevis_Click()
Dim CoordonneesClients As String
Dim DerrLigne As Integer
DerrLigne = Sheets("DevisEtFacture").Range("A52").End(xlUp).Row + 1
Dim NbList&

With Sheets("DevisEtFacture")

CoordonneesClients = "Monsieur " & cbxNomEtPrenomClient.Value & vbCr
If txtNumeroRue.Value <> "" Then CoordonneesClients =
CoordonneesClients _
& txtNumeroRue & " "
If txtRue <> "" Then CoordonneesClients = CoordonneesClients &
txtRue & vbCr
If txtNumeroBat <> "" Then CoordonneesClients = CoordonneesClients _
& txtNumeroBat & " "
If txtBat <> "" Then CoordonneesClients = CoordonneesClients &
txtBat & vbCr
CoordonneesClients = CoordonneesClients & txtCodePostale & " " &
txtVille
.lblCoordonnesClient = CoordonneesClients

For NbList = 0 To Me.lsbListeDesTravaux.ListCount - 1
DerrLigne = Sheets("DevisEtFacture").Range("A52").End(xlUp).Row + 1

.Range("C" & DerrLigne).Value = Me.lsbListeDesTravaux.List(NbList, 0)
.Range("B" & DerrLigne).Value = Me.lsbListeDesTravaux.List(NbList, 1)
.Range("A" & DerrLigne).Value = Me.lsbListeDesTravaux.List(NbList, 2)
.Range("E" & DerrLigne).Value = Me.lsbListeDesTravaux.List(NbList, 3)
Next NbList

End With
End Sub

Cordialement
Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23SsLfBpdHHA.2088@TK2MSFTNGP05.phx.gbl...

Bonjour
Il y a quelques rectifications à faire dans ton code.
Au niveau des déclarations dans le code de ton userform :
Dim WSDonnees As Worksheet
Dim WStache As Worksheet
Dim WsListes As Worksheet
Dim Plage As Range, PlageClients As String, Plagetache As String
Dim PlageTotale As Range

Au niveau de ta procédure cmdEditLeDevis_Click, plusieurs soucis :
1°)La première colonne d'un contrôle Listbox commence à 0.
2°)Le renvoi de valeur ne se fera pas parce que la méthode que tu utilises
ne fonctionne que si la ligne est sélectionnée dans la liste.
Il faut que tu détermines le nombre d'entrées dans ta listbox pour ensuite
boucler pour positionner chaque valeur.

Cordialement
Pascal



"Jacques" <Jacques@discussions.microsoft.com> a écrit dans le message de
news: 7B696C4D-7EC3-47A2-9F86-A23DC0A3AB40@microsoft.com...

Re

Comme convenue, j'ai fait un résumé de mon fichier afin de vous montrer
mon
souci.

http://cjoint.com/?edxNxCK0XN

Merci, Jacques

Salut a toute et tous

J'ai une listbox multicolonne (5 colonnes), mais je n'enverrai dans ma
feuille que 4 colonne.

colonne 1 : Désignation
colonne 2 : Référence
colonne 3 : Quantité
colonne 4 : prix unitaire
colonne 5 : prix total (qui sert juste de visu, car le prix*quantité,
ce
fait dans la feuille)

Mes données commencent a la ligne 24 et soront envoyées comme suis :

La colonne 1 correspond a la colonne C
La colonne 2 correspond a la colonne B
La colonne 3 correspond à la colonne A
La colonne 4 correspond à la colonne E

Donc une fois ma listbox rempli, j'aimerais soit envoyé une selection
soit
tout envoyé, es-ce possible ?

Merci pour votre aide, Jacques