Copier listbox

Bonsoir,

Je vous ai joint l'exemple de mon fichier

je souhaiterai copier les valeurs de location et aspect de la listbox (uniquement les 10 premieres lignes) dans la cellule F5 de "data".

Je ne sais pas comment faire ??? merci de votre aide

18exemple.xlsm (59.29 Ko)

Bonsoir Tom, bonsoir le forum,

Tu souhaiterais que la copie se fasse quand ? Le clic sur le bouton New ouvre une seconde UserForm. Au clic sur le bouton Validate ?

Bonsoir

J'ai déjà fait une réponse, à part le fait de savoir que tu voulais en F5

https://forum.excel-pratique.com/excel/trier-listbox-t66575.html

Code modifié

Private Sub CommandButton1_Click()
Dim I As Integer

  With Sheets("Data")
    For I = 0 To Application.Min(9, Me.ListBoxLocataire.ListCount - 1)
      .Range("F" & 5 + I) = Me.ListBoxLocataire.List(I, 1)
      .Range("G" & 5 + I) = Me.ListBoxLocataire.List(I, 3)
    Next I
  End With
End Sub
Rechercher des sujets similaires à "copier listbox"