Mise à jour de stock via une macro

Version imprimable

26/06/2017, 15h36
jess8931

1 pièce(s) jointe(s)

Mise à jour de stock via une macro

Bonjour,

J'ai un tableau de produits avec les stocks actuels (B) et les nouveaux stocks (C).
Cependant la colonne nouveau stock contient des #N/D car ces références ne sont pas dans le nouveau stock (nous avons plusieurs fournisseurs et donc plusieurs fichiers de nouveaux stocks).

Je souhaiterais mettre à jour la colonne STOCK (B)
Si la colonne NOUVEAU STOCK supérieur à STOCK alors je souhaiterais que la colonne B soit remplacée par la valeur de la colonne C
Si la colonne NOUVEAU STOCK différent de #N/D alors je souhaiterais que la colonne B soit remplacée par la valeur de la colonne C
Si la valeur de la colonne NOUVEAU STOCK = #N/D inférieure à colonne B alors je souhaiterais que la valeur de la colonne B reste identique.

Je vous met en pj le fichier

Je ne sais pas faire de macro, si quelqu'un peut m'aider...

Merci,

J'espère avoir été claire.

Merci
27/06/2017, 08h19
zoom61

Bonjour,

Les règles du forum sont claires, nous ne sommes pas là pour faire le travail à votre place mais pour vous aider. vous devez proposer quelque chose.

Il existe sur le site un tutoriel pour commencer à utiliser les macros : Utiliser oBasic dans le Tableur (Calc), par la suite vous pourrez commencer à créer votre macro, et nous pourrons vous aidez.

Cdlt.

J'ai essayé de faire une macro, mais ça ne marche pas...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
REM  *****  BASIC  *****
 
Sub Test()    Dim monDocument As Object
     Dim lesFeuilles as Object
     Dim maFeuille As Object
     Dim maCellule As Object
     Dim maPosition As Object
     Dim ValCellile as string
 
 
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Feuille1")
 
 
    maPosition = maFeuille.createCursor
    maPosition.gotoEndOfUsedArea(False)
    DerniereLig = maPosition.RangeAddress.EndRow
 
    For i = 2 to DerniereLig
        maCellule = maFeuille.getCellRangeByName("C" & i)
        ValCellule = maCellule.String
        if ValCellule <> "#N/D" then 
            maCellule = maFeuille.getCellRangeByName("B" & i)
            maCellule.Value = ValCellule 
        else ValCellule = ("C">"B") 
            maCellule = maFeuille.getCellRangeByName("C" & i)
            maCellule.Value = ValCellule 
        end if
    Next
 
 
End sub

27/06/2017, 09h48
Michel

Bonjour
je ne comprend pas ce qu'est sensé faire

Code:

ValCellule = ("C">"B")

Pour moi, cela consiste à placer True dans ValCellule; cela m'étonnerais que ce soit le but !
27/06/2017, 12h44
Michel

Code:

if ValCellule <> "#N/D"

Cela ne marche pas car #N/D est un code d'erreur et pas une chaine !
J'ai du un peu chercher :mouarf: mais ceci fonctionne dans le fichier que tu as joint, dans une cellule vide essaye :

Code:

=N(C7)

renvoie FAUX alors que

Code:

=N(C5)

renvoie VRAI
04/07/2017, 17h01
jess8931

Je vais essayer. Je reviens vers vous si jamais je n'y arrive pas.

Merci pour vos réponses