Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

skoobi

XLDnaute Barbatruc
Re : coller avec coordonées

Bonjour cococh, salut pierrejean,

en bas du post tu clic sur aller en mode avancé pour accéder aux pièces jointes (trombone)
qui doit faire moins de 48.8 ko (zippé de préférence).
 

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
578
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…