Discussion :

[phileasdav]

Bonjour

J'ai une listbox dans un userform dans laquelle je veux effectuer une multi selection avec incrémentation du 1er no pour copier les lignes relatives
Voici joint le code mais le souci c'est que ça fonctionne bien pour la 1ere ligne copiée mais pour les autre j'ai le même no!!!!
Il y a surement une boucle a intégrer avec ce code mais là je cale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .Cells(Ligneacopier, 1) = .Range("a" & II).Value + 1

ci joint une copie d'écran

J'espere avoir été assez clair
Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton6_Click() '**************bouton copier
Dim I As LongPtr
Dim II As LongPtr
Dim Ligneacopier As Integer
 
 
If Sheets("data").Range("a2").Value = "" Then
II = 1
Sheets("data").Range("a2").Value = "1"
Else
II = Sheets("data").Range("a1").End(xlDown).Row
End If
 
 
    For I = 0 To lst_personnes.ListCount - 1
      If lst_personnes.Selected(I) = True Then
         With Sheets("data")
            Ligneacopier = .Range("A" & Rows.Count).End(xlUp).Row + 1
 
             .Cells(Ligneacopier, 1) = .Range("a" & II).Value + 1 'fonctionne pour la 1ere ligne sélectionné mais donne le même no aux autre lignes 
             .Cells(Ligneacopier, 2) = Format(Label101.Caption, "mm/dd/yy")
             .Cells(Ligneacopier, 3) = lst_personnes.List(I, 2)
             .Cells(Ligneacopier, 4) = lst_personnes.List(I, 3)
            .Cells(Ligneacopier, 5) = lst_personnes.List(I, 4)
         End With
      End If
    Next I
 
 
End Sub

Phileas