creer une boucle pour alimenter plusieur feuille avec un bouton valide

[Meloman]

Bonsoir à tous

je viens vous demander un peut de votre competence car je suis confronter à un probleme.

j'ai une listview alimenter par des textbox

dans la 3 eme colonne se trouvent le nom de mes differente feuille de base de donnée

je souhaite en appuyant sur valide copier mes differente lignes de la listview dans les feuilles respective dont le nom se trouvent dans la 3 eme colonne .

avec des info piocher ci et là j'ai fais cette macro mais sa fonctionne pas soit il me met tous dans une seul feuille soit il y à rien qui se passe

Sub valide3()
Dim Ligne As Long
With ListView1
  For Li = 1 To ListView1.ListItems.Count

    NomFeuil3 = .ListItems(Li).ListSubItems(3).Text
    
    
 
  For nl = 4 To Sheets(NomFeuil3).Range("A" & Cells.Rows.Count).End(xlUp).Row + 1


    'Sheets("Temps").Cells(Ligne + Li - 1, 1) = ListView4.ListItems(Li)
    Sheets(NomFeuil3).Cells(nl + Li - 1, 1) = .ListItems(Li).ListSubItems(1)
    Sheets(NomFeuil3).Cells(nl + Li - 1, 2) = .ListItems(Li).ListSubItems(2)
    Sheets(NomFeuil3).Cells(nl + Li - 1, 3) = .ListItems(Li).ListSubItems(3)
    Sheets(NomFeuil3).Cells(nl + Li - 1, 4) = .ListItems(Li).ListSubItems(4)
    Sheets(NomFeuil3).Cells(nl + Li - 1, 5) = .ListItems(Li).ListSubItems(5)
    Sheets(NomFeuil3).Cells(nl + Li - 1, 6) = .ListItems(Li).ListSubItems(6)
 
      Next nl
Next Li

End With
End Sub

comment dois je faire pour arriver à faire cela svp merci d'avance

 

[Bebere]

Re : creer une boucle pour alimenter plusieur feuille avec un bouton valide

bonjour Meloman
à tester

Sub valide3()
    Dim L As Long, Li As Long

    For Li = 1 To ListView1.ListItems.Count

        NomFeuil3 = .ListItems(Li).ListSubItems(3).Text

        'met les données à la 1ère ligne vide
        With Sheets(NomFeuil3)
            L = .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
            'Sheets("Temps").Cells(Ligne + Li - 1, 1) = ListView4.ListItems(Li)
            .Cells(L, 1) = .ListItems(Li).ListSubItems(1)
            .Cells(L, 2) = .ListItems(Li).ListSubItems(2)
            .Cells(L, 3) = .ListItems(Li).ListSubItems(3)
            .Cells(L, 4) = .ListItems(Li).ListSubItems(4)
            Cells(L, 5) = .ListItems(Li).ListSubItems(5)
            .Cells(L, 6) = .ListItems(Li).ListSubItems(6)
        End With

    Next Li

End Sub

si tu veux compléter une ligne il faut trouver une correspondance cellule item listview
à bientôt

 

[Meloman]

Re : creer une boucle pour alimenter plusieur feuille avec un bouton valide

Bonjour bebere dessoler pour répondre à ta contribution a mon projet aussi tard quelque petit soucis en revanche ta solution me conviens parfaitement un grand merci à toi