Calculs avec les macros /plusieurs feuilles

Fermé
bahamane Messages postés 3 Date d'inscription vendredi 29 janvier 2010 Statut Membre Dernière intervention 8 mars 2010 - 8 mars 2010 à 12:38
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 8 mars 2010 à 14:41
Bonjour,
puisse quelqu'un m'aider s'il vous plais sur les macros
j'ai un classeur de 3 feuilles . feuil1. feuil2 et feuil3. sur feuil1 j'ai des donnees a calculer dans la colonne C a partir de la ligne 7 avant ce sont des titres
numMat nom Qte
A B C
b001 bateau 12
b003 ordinat 34
b004 stylo 54
b005 ram 17
b006 disk 44

sur feuil2
A B C
numMat nom Qte
b002 2
b002 5
b002 1
je veux une macro qui prend le mot de la derniere ligne non vide de feuil2 ici "b002" puis la retrouve dans feuils2 dans la colonne A de feuil1 avec la quantite correspondante dans feuil1 ici "12"
fait la somme des quantites dans feuil1 ici 2+5+1=6
puis fait la difference 12-6 et affiche le resultat dans la colonne C de feuil3 avec corresponde de ligne
c'est a dire si boo2 est sur la ligne 10 de feuil1 alors le resultat dans feuil3 doit etre dans la colonne C et a la ligne 10 aussi
merci

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 mars 2010 à 14:41
Bonjour,

heu..... 2+5+1= 8 !!! ;-)

essaies
Sub gerer_stock()

With Sheets(2)
    lig = .Range("A65536").End(xlUp).Row
    ref = Cells(lig, 1)
    qte = Application.SumIf(.Range("A1:A" & lig), ref, .Range("C1:C" & lig))
End With

Sheets(3).Cells(lig, 3) = Sheets(1).Columns(1).Find(ref, Sheets(1).Range("A1"), xlValues).Offset(0, 2) - qte
End Sub


mais on pouvait faire ca par formules....
0