Placer le total 2 ligne plus bas que mon dernier article

[geraldvc]

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

 

[JBOBO]

Re : Placer le total 2 ligne plus bas que mon dernier article

Bonjour,

Pas tout compris mais il me semble qu'un simple filtre permet d'afficher ou non les cellules vides, ce qui pourrait peut-etre répondre à ta demande.

 

[Bebere]

Re : Placer le total 2 ligne plus bas que mon dernier article

bonjour Gerald
le plus facile serait de faire les calculs,etc.., dans le code de l'userform
à bientôt

 

[geraldvc]

oui mais.... comment dans l'userform

 

[Bebere]

Re : Re: Placer le total 2 ligne plus bas que mon dernier article

Gerald
un exemple
tu complètes les textbox
tu ajoutes dans la listview
tu as fini tu ajoutes dans la feuille
à bientôt

 

[geraldvc]

merci nickel