range textebox

[mohama]

Bonjour a tous, bonjour le Forum

j'ai trouvé un exemple excel qui m'intéresse ,mais je n'est pas pu faire une range comme je le veux j'ai tous fait et j'ai n'est pas pus

je veux faire une range sur ; exemple sur la cellule (D13), ou autre cellule

je veux comprendre l'astuce de range sur les listebox


Private Sub ComdQuitter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim L As Integer
Dim Plage As String
L = Sheets("DataBase").Range("A65536").End(xlUp).Row + 1
Plage = Sheets("DataBase").Range("A2😀" & L).Address
ListBox1.RowSource = "DataBase!" & Plage
ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = 80
End Sub
Private Sub ComdValider_Click()
Dim L As Integer, x As Byte
L = Sheets("Inserer").Range("A65536").End(xlUp).Row + 1
With Me.ListBox1
For x = 0 To .ListCount - 1
If .Selected(x) = True Then
Sheets("Inserer").Range("A" & L) = .Column(0, x) 'D13
Sheets("Inserer").Range("B" & L) = .Column(1, x) 'E13
Sheets("Inserer").Range("C" & L) = .Column(2, x) 'F13
L = L + 1
End If
Next x
End With
Unload Me
End Sub

 

[mohama]

Re : range textebox

voici mon fichier

 

[mohama]

Re : range textebox

 

[fhoest]

Re : range textebox

voici ton fichier en retour
A +

 

[mohama]

Re : range textebox

merci beaucoup fhoest

Celui qui croit tout connaitre, ne connait sans doute pas grand chose.
Chacun apporte son savoir, mais on a tous tout à apprendre .... fhoest
merçi pour tous

 

[Efgé]

Re : range textebox

Re
fhoest : Peux tu mettre le fichier final en ligne en version XLS afin que je comprenne le pourquoi du comment ? (j'aimerai mourrir moins bête 😀)
Cordialement

 

[fhoest]

Re : range textebox

Efgé
En fait, il n'y a rien de spéciale dans le code il est quasi identique depuis le début
j'ai juste écrit les codes que l'on donne depuis le début et j'ai ajouté une ligne de condition sur la ligne de départ L
Voici le fichier:
A+

 

[Efgé]

Re : range textebox

Re à tous,
fhoest: Merci du retour. je "mourrirai moins bête" 😀
Cordialement