Soucis de remplissage Listbox1 vers Listview1

Bonjour,

Remplissage listview apres entetes:

        'Remplissage des colonnes 3 et 4 dans la 1ere ligne
        .ListItems.Add , , ""
        .ListItems(1).ListSubItems.Add , , ""
        .ListItems(1).ListSubItems.Add , , "Ville01"
        .ListItems(1).ListSubItems.Add , , 30
        'Remplissage des colonnes 3 et 4 dans la 2eme ligne
        .ListItems.Add , , ""
        .ListItems(2).ListSubItems.Add , , ""
        .ListItems(2).ListSubItems.Add , , "Ville02"
        .ListItems(2).ListSubItems.Add , , 27
        'Remplissage des colonnes 3 et 4 dans la 3eme ligne
        .ListItems.Add , , ""
        .ListItems(3).ListSubItems.Add , , ""
        .ListItems(3).ListSubItems.Add , , "Ville03"
        .ListItems(3).ListSubItems.Add , , 41

Soucis de remplissage Listbox1 vers Listview1

Comprends pas!!!

Bonsoir f894009,

Merci pour ta réponse, c'est gentil a toi.

Dans mon USF j'ai une Listbox avec les lignes de code de tests voir svp ci-dessous.

Je souhaiterai les adapter dans la Listview

J'ai commencer le code de la Listview par les entètes I-J-K-L-M-N-O

et je voudrais afficher le résultat de chaque ligne (If cellule) dans la Listview comme je l'indique ci dessous

le but étant de supprimer la listbox1

Merci pour ton aide

Cdlt vieuxray

 
If cellule.HasFormula Then .Column(1, j) = "OK"                                                                            'vers colonne (K)
If IsNumeric(cellule) = True Then .Column(2, j) = "OK"                                                                        'vers colonne (L)
If cellule <> "" Then .Column(3, j) = "OK"                                                                                                'vers colonne (M)
If Not IsError(cellule) Then .Column(4, j) = "OK"                                                                                          'vers colonne (N)
If cellule.Interior.ColorIndex = xlColorIndexNone Then .Column(5, j) = "OK" Else .Column(5, j) = ""                       'vers colonne (O)

Re f894009, merci

je t'envoi la macro qui est a l'origine

Afficher directement dans les colonnes de la listview1 le résultat des tests ci dessous sans passer la feuil1

Merci a toi

Cdlt vieuxray

Public Sub Tester_cellules_colonne_E_et_F()
Dim Feuil1 As Worksheet
      Set Feuil1 = ActiveSheet
            For Each cellule In Feuil1.Range("E3:F50")
                 On Error Resume Next
                 
If cellule.HasFormula Then Cells(cellule.Row, "K") = cellule.Address                                             'Pas de formule dans la colonne
If IsNumeric(cellule) = True Then Cells(cellule.Row, "L") = cellule.Address                                     'La cellule suivante n'est pas numérique
If cellule <> "" Then Cells(cellule.Row, "M") = cellule.Address                                                       'La cellule suivante est vide
If Not IsError(cellule) Then Cells(cellule.Row, "N") = cellule.Address                                              'Erreur de formule dans la cellule
If cellule.Interior.ColorIndex = xlColorIndexNone Then Cells(cellule.Row, "O") = cellule.Address       'Vérifiez le fond de la cellule
        Next
End Sub

salut f894009,

Merci beaucoup pour les modifications du code, c'est bien ce que je voulais faire pour l'affichage, merci.

Mais je comprends pas "Vous ferez les modifs (facile)"

de quel modifs sagit t'il svp ???? pas compris

Merci a toi

Vieuray

Salut f894009,

Je n'ai pas trop compris le principe de l'affichage et je n'arrives pas a attribuer les bonnes colonnes aux résultats des 5 tests (IF)

-Premier test if dans colonne (K)
- Deuxième test if dans colonne (L)
idem pour les 3 suivants
Colonne (I et J) doivent rester disponibles.

Si tu a le temps, je souhaiterai svp et si tu veux bien que tu me commentes le code que tu a réaliser, je t'avoue que je patauge et j'aimerai bien comprendre ton travail.

Je te remercie et te souhaite la bonne journée.

Cdlt Ray

Bonjour f894009,

Merci pour ta réponse et pour le code modifier et commenter, maintenant je comprends beaucoup mieux ainsi.

Donc du coup maintenant, c'est bon et fonctionne comme souhaiter
et je peux modifier.

Merci beaucoup pour ton aide, que les dieux informatiques soient toujours avec toi pour cette nouvelle année 2019.

Je te souhaite de très bonnes de fin d'année et un réveillon festif en famille.

Encore merci a toi, pour ton aide et ton savoir partager.

Bien cordialement Raymond bye bye
Meilleurs Vœux a toi et tes proches.