Salut,Je reviens vers vous:
Dans ce cas ci je détermine mon TOTAL dans la cellule f35
! je rempli la zone a15:e34 par un code VBA. !! que dans la colonne F j'ai des =si(ou
1: je voudrais qu'il ce mette en dessous du dernier article donc cela peux être f17 ou f30, et que tous ce qui est en dessous remonte .
2: a savoir; que la suivante commande peux avoir 30articles et la suivante 3 articles.
je vous joint le code qui transfère et la feuilles de commande
Sheets("ficheclient").Select
Range("a13:e55").Select
ActiveCell = Prestation
'Sheets("ficheclient").Select
Application.ScreenUpdating = False
With Sheets("ficheclient")
Ligne = Sheets("ficheclient").Range("a65536").End(xlUp).Row
With ListView6
For I = 1 To .ListItems.Count ' le 1 veux dire qui l'envoi apartir de la premiere ligne
Sheets("ficheclient").Cells(Ligne + I, 1) = Numerique(.ListItems(I).Text)
For c = 1 To .ColumnHeaders.Count - 1
Sheets("ficheclient").Cells(Ligne + I, c + 1) = Numerique(.ListItems(I).ListSubItems(c).Text) ' le 1 envois au nombre de colonne dans la feuille
Next c
Next I
End With
End With
merci de votre aide
Dans ce cas ci je détermine mon TOTAL dans la cellule f35
! je rempli la zone a15:e34 par un code VBA. !! que dans la colonne F j'ai des =si(ou
1: je voudrais qu'il ce mette en dessous du dernier article donc cela peux être f17 ou f30, et que tous ce qui est en dessous remonte .
2: a savoir; que la suivante commande peux avoir 30articles et la suivante 3 articles.
je vous joint le code qui transfère et la feuilles de commande
Sheets("ficheclient").Select
Range("a13:e55").Select
ActiveCell = Prestation
'Sheets("ficheclient").Select
Application.ScreenUpdating = False
With Sheets("ficheclient")
Ligne = Sheets("ficheclient").Range("a65536").End(xlUp).Row
With ListView6
For I = 1 To .ListItems.Count ' le 1 veux dire qui l'envoi apartir de la premiere ligne
Sheets("ficheclient").Cells(Ligne + I, 1) = Numerique(.ListItems(I).Text)
For c = 1 To .ColumnHeaders.Count - 1
Sheets("ficheclient").Cells(Ligne + I, c + 1) = Numerique(.ListItems(I).ListSubItems(c).Text) ' le 1 envois au nombre de colonne dans la feuille
Next c
Next I
End With
End With
merci de votre aide