Bouton valider

[kknd04]

Bonjour a tous,

Je suis pas un expert, je me débrouille, mais la je seche.

Voila je souhaiterais créer un "bouton" valider sur une feuille, qui permeterait d'enregistrer les cellules sur une autre feuille et sur la ligne en dessous de la précédante, enfin vider les cellules précédement validées.

En fait je cherche a créer un dossier fournisseurs/stock/recettes.

La feuille avec le bouton valider me permet d'entrer les matieres premieres livrées avec prix, qte, fournisseur etc.
Le bouton valider envois les données sur une feuille qui me permet de calculer le prix moyen par article, fournisseur, suivis des dates etc. (rien de compliqué), ensuite mes feuilles recettes viennent récupérer les données sur cette feuille pour calculer les prix de reviens.

Merci de votre aide

 

[Robert]

Bonjour Kknd, bonjour le forum,

Une variable Onglet Source,
une variable Onglet Destination,
une variable DEST,
à adapter...

Dim OS As Worksheet
Dim OD As Worksheet
Dim DEST As Range

Set OS = Worksheets("Feuil1")
Set OD = Worksheets("Feuil2")
Set DEST = IIF(OD.Range("A1").Value = "", OD.Range("A1"), OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1,0))
OS.Range("A1").CurrenRegion.Copy DEST