Coller les infos d’une listview

[lanoe]

Bonjour le forum,

Le projet évoluant doucement, je reviens vers vous pour deux questions sur le code que JP14 à développer.

Je souhaite apporter deux compléments à ce code :

1- le commandbouton « envoyer » permet de coller les infos de la listview en page BL2. Je souhaite que lors de ce collage il ne prenne que les lignes « NF » de la colonne 12 de la listview (Donc qu’il enlève automatiquement les lignes notées « F ») et un code qui évite le message d’erreurs s’ il n’y a pas de « NF »

2- Actuellement le commandbouton « envoyer » colle les infos en effaçant les précédentes. Je souhaite conserver cette formule mais en plus je désire qu’il colle l’ensemble des infos de la listview dans la première ligne vide de la colonne AA. (Avec le même système pour les « NF » de la colonne 12)

Merci à vous pour votre aide et joyeuses fêtes de fin d’année.

Lanoe

 

[porcinet82]

Re : Coller les infos d’une listview

Salut,

Essais en modifiant le code comme ceci (ca devrait répondre à tes 2 questions) :

Private Sub Cmb2_Click()
Dim dl1 As Long ' dernière ligne
With Sheets("BL2")
    .Select
    .Range("AA2:AL").ClearContents
    dl1 = .Range("AA65536").End(xlUp).Row + 1
End With
 
If ComboBox11 = "" Then
    MsgBox "Sélectionner une valeur", vbCritical, "Invalide !"
    Exit Sub
End If
With ListView1
    'Boucle sur toutes les lignes
    For i = 1 To .ListItems.Count
        If .ListItems(i).ListSubItems(12).Text = "NF" Then
            Sheets("BL2").Cells(dl1, 27) = .ListItems(i).Text
            'Boucle sur les colonnes
            For j = 1 To .ColumnHeaders.Count - 1
                Sheets("BL2").Cells(dl1, j + 27) = .ListItems(i).ListSubItems(j).Text
            Next j
            dl1 = dl1 + 1
        End If
    Next i
End With
Unload Me
End Sub

@+

 

[lanoe]

Re : Coller les infos d’une listview

Re,

En modifiant un peu ton code cela fonctionne parfaitement.

Merci et joyeuses fêtes...

lanoe