Copie multi selection dans listbox et incrémentation 1er no

Version imprimable

1 pièce(s) jointe(s)

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:

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

ci joint une copie d'écranPièce jointe 430264

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

Code:

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

28/11/2018, 14h24
phileasdav

????

Toujours pas de solution ??
ah oui j'oubliais , impossible de basculer en listview car notre environnement est en 64 Bits ; grrrrrrrrrrrrr

merci d'avance
Phileas

bonsoir
avant d'entrer dans la boucle vous fixer ce "II" avec ça :

Code:

1
2
3
4
5
6
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

donc ce qui est évident que dans la boucle la valeur reste celui de "II"

essayer d'ajouter 1 à la valeur de "II"

peut être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 
             .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
    II=II+1
    Next I

28/11/2018, 15h32
phileasdav

Bonjour BENNASR

et merci mais ça ne fonctionne pas !!
Le résultat n'incrémente pas les no , cela me donne des no de début de liste 1-2; etc au lieu de 12-13 , etc.

bonne journée
Philéas
28/11/2018, 15h33
BENNASR

merci de joindre un fichier test avec données fictives pour voir de près