Discussion :

[david.guedes]

bonjour

j ai creer un userform avec listbox avec code vba que j ai recuperer et cela fonctionne bien

par contre je ne sais comment faire pour recuperer les information de ma listbox vers feuil devis

ce que desirerai :

colonne 1 vers feuil devis j14
colonne 2 vers feuil devis d15
colonne 3 vers feuil devis j15
colonne 4 vers feuil devis j16
colonne 5 vers feuil devis j17
colonne 6 vers feuil devis j19
colonne 7 vers feuil devis j20
colonne 8 vers feuil devis j21

je joins mon fichier

si quelqu un pouvais m aider
je vous serais gré.

cordialement

[Philippe Tulliez]

Bonjour,
As-tu vu la réponse donnée hier http://www.developpez.net/forums/d14...a/#post7718792 et as-tu regardé le classeur qui est à télécharger sur le lien que je t'ai donné.
Tu peux facilement adapter le code.
Si tu publiais aussi le code qui remplit ta ListBox

Il y a un bel exemple dans ce chapitre http://silkyroad.developpez.com/VBA/...serForm/#LII-G

[david.guedes]

bonjour

pour remplir ma listbox
ca ca fonctionne

mais c est pour extraire les donnees vers feuil devis que je ne sais pas faire

cordialement

[Philippe Tulliez]

Bonjour,

pour remplir ma listbox
ca ca fonctionne

Et bien une réponse suite à l'intervention sur cette discussion aurait fait plaisir.

As-tu regardé sur le lien que je t'ai donné http://silkyroad.developpez.com/VBA/...serForm/#LII-G, il y a la réponse à ta question.

[david.guedes]

bonjour philippe

la page est introuvable
le lien ne fonctionne pas

de plus je ne connais pas le langage vba

je recupere les code un peu partout et j essais de le comprendre
mais ce que j ai vu hier soir
je ne le comprends pas

cordialement

[Philippe Tulliez]

Bonjour,
Le lien fonctionnait dans sa première publication et dans sa deuxième j'ai dû copier le point.
Celui-ci fonctionne http://silkyroad.developpez.com/VBA/...serForm/#LII-G

[david.guedes]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
    With ListBox1
        Sheets("Feuil1").Range(Cells(1, 1), Cells(.ListCount, 1)) = .List
    End With
End Sub

est ce bien ce code la
mais la je ne sais pas comment lui dire quelle cellule alimenter

cordialement

[Philippe Tulliez]

Bonjour,
Cette procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ListBox1
 Sheets("Feuil1").Range(Cells(1, 1), Cells(.ListCount, 1)) = .List
End With

écrit tous les éléments contenu dans ListBox1 de la cellule A1 jusqu'à la ligne déterminée par la propriété ListCount (Nombre de lignes dans ListBox1) et ce uniquement sur la colonne A (Range(Cells(1, 1), Cells(.ListCount, 1)).
Cependant si la feuille où l'on exporte les données n'est pas la feuille active, il y aura un bug. Il y a lieu de préciser l'objet parent de cells comme dans l'exemple ci-dessous où l'on copie le contenu de la ListBox1 vers la plage M1:O+ListCount de la feuille nommée Export

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim shtExport As Worksheet: Set shtExport = Worksheets("Export")
With Me.lstDemonstration
  shtExport.Range(shtExport.Cells(1, 13), shtExport.Cells(.ListCount, 16)).Value = .List
End With

Dans ton cas, tu dois utiliser la méthode ci-dessous.
Dans ces deux exemples, le contrôle ListBox se nomme lstDemonstration

Exemple 1 - Alimente cinq TextBox avec les valeurs des colonnes (1 à 5) de la ligne sélectionnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For c = 1 To 5
 With Me.lstDemonstration
   Me.Controls("TextBox" & c) = .List(.ListIndex, c)
 End With
Next

Exemple 2 - Ecriture sur la feuille nommée [Données] dans des cellules dont les colonnes sont dans un ordre différent des colonnes du ListBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set sht = ThisWorkbook.Worksheets("Données")
With Me.lstDemonstration
  sht.Range("M5") = .List(.ListIndex, 1)
  sht.Range("N5") = .List(.ListIndex, 2)
  sht.Range("O5") = .List(.ListIndex, 5)
  sht.Range("P5") = .List(.ListIndex, 4)
End With

[david.guedes]

bonjour philippe

merci pour ton explication

cela fonctionne

cordialement