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
comment dois je faire pour arriver à faire cela svp merci d'avance
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
Code:
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