Listbox vers cellule

[maval]

Bonjours,

J'ai un code pour envoyer les valeurs de la listbox sélectionner vers ma feuille.
J'aimerai que la sélection de la listbox se place a partir de la "D3:H14"

Private Sub CommandButton1_Click()
Dim i
For i = 0 To Me.Listchoix.ListCount - 1
    If Me.Listchoix.Selected(i) = True Then
        Range("d65000").End(xlUp).Offset(1, 0).Select
        ActiveCell.Offset(0, 0).Value = Listchoix.List(i)
        ActiveCell.Offset(0, 2).Value = Listchoix.List(i, 2)
        ActiveCell.Offset(0, 3).Value = Listchoix.List(i, 3)
        ActiveCell.Offset(0, 4).Value = Listchoix.List(i, 4)
    End If
Next i

End Sub

Merci pour votre aide.
Cordialement

Maval

 

[Dull]

Re : Listbox vers cellule

Salut maval, le Forum

Il suffit de remplacer

Range("d65000").End(xlUp).Offset(1, 0)

par

Range("d14").End(xlUp).Offset(1, 0)

Ceci vient du fait qu'en D14 la cellule n'est pas vide elle contient une Formule

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte, z As Byte, L As Object
For i = 0 To Me.Listchoix.ListCount - 1
    If Me.Listchoix.Selected(i) = True Then
        Set L = Range("D14").End(xlUp).Offset(1, 0)
        L.Value = Listchoix.List(i)
        For z = 2 To 4
            L.Offset(, z).Value = Listchoix.List(i, z)
        Next z
    End If
Next i
End Sub

Bonne Journée

 

[maval]

Re : Listbox vers cellule

Bonjour Dull et merci,

A chaque fois que tu me répond je pense aux vacances que j'ai passé à la Réunion "Super"
Dull je te remercie beaucoup pourrez me dire comment je peut sélectionner tous les items de la listbox?

Je te souhaite une bonne journée

Max

 

[Dull]

Re : Listbox vers cellule

Re Max, le Fil

Regardes la pièce Jointe avec un CheckBox si j'ai bien compris

Private Sub CheckBox1_Click()
For i = 0 To Listchoix.ListCount - 1
    Listchoix.Selected(i) = IIf(CheckBox1, True, False)
    CheckBox1.Caption = IIf(CheckBox1, "Tous", "Aucun")
Next i
End Sub

Bonne Journée

 

[maval]

Re : Listbox vers cellule

Re Dull,

Super je te remercie...!

Bonne journée

Max