coller avec coordonées

cococh

XLDnaute Occasionnel
bonjour a tous,
Je m'adresse a vous car je seche sur un problème avec ecxel 2003.

j'aimerais, via une macro, remplacer une ligne d'un tableau par une ligne contenue sur une autre feuille afin "d'enregistrer les modifications".

Mon classeur est composé de 2 feuilles; la première étant mon tableau de stock (classé par références) et ma seconde étant un espace d'ajout de nouvelle référence ou de modification de référence déja enregistrée.

lorsque je veut insèrer une nouvelle référence, si celle que je tape éxiste déja dans mon stock, la ligne complette de cette ref aparait en dessous (via une formule équiv et des formules index).
j'aimerais que, via une macro, je puisse copier le contenu d'une ligne (ça, sa va encore!), et le coller en une célulle mais dont les coordonées, du moin le numéro de ligne, est une variable située dans une autre célule.

merci d'avance a tous
 

cococh

XLDnaute Occasionnel
Re : coller avec coordonées

voici donc pour de bon mon fichier éxemple.
je rapelle que le but est que:
l'orsque je m'apprete a rentrer une nouvelle référence, si celle ci est déja enregistrée, elle s'affiche plus bas et d'un simple clic sur un bouton après avoir mis la nouvelle quantité dans une cellule, la macro retrouve toute seule la quantité dans le stock et la remplace par la nouvelle.
 

Pièces jointes

  • fichier exemple.xls
    31 KB · Affichages: 43
  • fichier exemple.xls
    31 KB · Affichages: 47
  • fichier exemple.xls
    31 KB · Affichages: 44

fred65200

XLDnaute Impliqué
Re : coller avec coordonées

bonjour
à tester

Code:
Sub AjoutRef()
Dim derli As Long
derli = sheetss("stock").Columns(3).Find("*", , , , , xlPrevious).Row + 1
    Sheets("modifier le stock").Range("C8:I8").Copy Sheets("stock").Range("C" & derli)
End Sub

Sub ModifQté()
Dim Col As Long
Col = Application.Match(Sheets("modifier le stock").Range("F22"), Sheets("stock").Range("F:F"), 0)
    Sheets("stock").Range("G" & Col).Value = Sheets("modifier le stock").Range("I25").Value
End Sub
cordialement
 
Dernière édition:

Discussions similaires

Réponses
7
Affichages
558

Statistiques des forums

Discussions
312 352
Messages
2 087 539
Membres
103 583
dernier inscrit
CYP_CHZ