Petit souci de sélection de colone

bonsoir a tous

voila mon souci j'ai écrit cela:

Private Sub CommandButton10_Click()

' inter

Dim J As Long

Dim Ws As Worksheet

Dim Msg As String

Me.ListBox2.Clear

Set Ws = Sheets("intervenants")

For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row

Msg = Msg & vbCr & Ws.Range("A" & J)

Me.ListBox2.AddItem Ws.Range("A" & J)

Next J

End Sub

donc cela fonction bien mais je voudrai sélectionner tout les informations qui ce trouve dans la colone "A" jusqu’à la colone "H" comment puis- je faire? Car pour le moment je n'arrive juste a affiche les information de la colone "A"

Bonjour,

essaie avec :

ListBox2.list()= ws.range("A2:H" & derlig).value

eric

non desoler cela ne fonctionne pas mais merci de m'avoir aider

J'espère que tu avais noté que j'ai simplifié ma réponse et qu'il fallait que tu adaptes à ton code.

Et que bien sûr il faut que tu calcules derlig et que tu fixes la propriété columncount de ta listbox. Parce que ça marche...

eric

au temps je n'avait pas pensée que tu avais simplifier ta réponses

Si tu veux des réponses plus adaptées il faut toujours déposer un fichier exemple.

Ca nous évite d'en construire un, de plus souvent loin de la réalité.

eric