Copie vers autre feuille

[Demouret]

Bonsoir chers XLDistes…
J’aurai besoin de vos lumières s.v.p…

Voila j’ai un classeur composé de 3 feuilles
- « suivi »
- « ventes »
- Et « planning »

Sur ma feuille « suivi » je saisi au fur et à mesure toutes mes demandes de devis…
J’ai 4 boutons sur cette feuille « En attente, à relancer, perdu, et vendu » qui me modifient mes lignes selon leur état.

Là ou je transpire pour de bon, c’est que je voudrai en cliquant sur le bouton « vendu » pouvoir copier les cellules D, F, H (par exemple) de la ligne de la cellule active de ma feuille « suivi » et les coller automatiquement au fur et à mesure les unes à la suite des autres (lignes par lignes) dans les cellules E, H, K (par exemple) de ma feuille « ventes ».

Je sais que vous allez me faire gagner quelques Aspro … ;-)

Merci

 

[pat1545.]

Salut,

un début de soluce:

Option Explicit

Sub COPIE()
Dim Last As Integer
Dim Tout As Range
Dim Plgb, Rng
Sheets('suivi').Select
If Cells(ActiveCell.Row, 4) = '' Then Exit Sub
Set Rng = Application.Union(Cells(ActiveCell.Row, 4), _
Cells(ActiveCell.Row, 6), Cells(ActiveCell.Row, 8))
Set Plgb = Sheets('ventes').Range('A65536').End(xlUp)(2)
Rng.Copy Plgb
End Sub

Patrick

 

[Demouret]

Je vais tâcher d'essayer ça demain matin...
(Oublié ma usb au bureau :-( ...)

Merci Patrick