précision...

[polik]

Bonjour a tous,

J'ai trouvé ce code sur le programme, il ne me reste qu'à l'ajuster...
J'ai une listbox dans un userform, lorsque je sélectionne les élements de la listbox puis je clique ok il se reporte vers ma feuille mais je voudrais qu'ils se rapportent dans la cellule de la premiere celulle vide possible
bref c'est la derniere ligne de code qui doit être ajusté!
des idées ?
le code est de pierrot (merci)

Dim i As Byte, maval As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
maval = maval & ListBox1.List(i) & vbLf
End If
Next i
Range("A1").Value = maval

 

[tototiti2008]

Re : précision...

Bonjour Polik,

Je te proposerais :

Range("A65536").end(xlup).offset(1,0).value = maval

 

[polik]

Re : précision...

merci beaucoup,

j'ai essayé et cela fonctionne
good job