coller avec coordonées

  • Initiateur de la discussion Initiateur de la discussion cococh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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

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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour