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

[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

[BENNASR]

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

Code :

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

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 :

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

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

[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

[BENNASR]

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