Aide sur Macro en VBA
Bonjour à tous,
je me permets de vous écrire car je souhaite un peu d'aide concernant un macro en vba..
En effet, je manipule un peu excel mais par contre en VBA : je débute... c'est le mot mais j'essaye....
C'est pourquoi je vous sollicite car je n'arrive pas à comprendre mon problème
Donc, le but de cette macro est de mettre à jour le stock en fonction des cessions
Voici la macro :
Sub Mettreajourstock()
'
Dim article As Variant
Dim place As Variant
Dim qte As Variant
Dim i As Variant
Dim j As Variant
Sheets("Cession").Select
i = 6
While Not Range("A" & i & "").Value = ""
i = i + 1
Wend
While Not i = 6
i = i - 1
'Selection du l'article du dessous
article = Range("A" & i & "").Value
qte = Range("B" & i & "").Value
place = Range("C" & i & "").Value
'selection du stock
Sheets("Stock").Select
'Trouver l article et l adresse
j = 1
While Not Range("A" & j & "").Value = article
j = j + 1
Wend
While Not Range("B" & j & "").Value = place
j = j + 1
Wend
Range("D" & j & "").Select
'Modifier la quantite
'Range("D" & j & "").Value = Range("D" & j & "").Value - qte
'Selectionner un onglet
Sheets("Cession").Select
'Effacer les stock mis a jour
Range("A" & i & "").Value = ""
Range("B" & i & "").Value = ""
Range("C" & i & "").Value = ""
Wend
End Sub
Milles MERCI pour votre aide ou pour tout remarques constructives concernant cette macro....
Chnordiste
Bonsoir,
Tu veux quoi exactement ?
Là tu nous mets une macro sans un mot d'explication et sans fichier.
Merci d'apporter un complément d'explication si tu veux que l'on t'aide.
A bientôt
Dan
Salut le forum
Et la balise code, tu connais pas, beaucoup plus facile à lire.
Le problème reste quand même la ....!
Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.
Sub Mettreajourstock()
Dim article As Variant
Dim place As Variant
Dim qte As Variant
Dim i As Variant
Dim j As Variant
Sheets("Cession").Select
i = 6
While Not Range("A" & i & "").Value = ""
i = i + 1
Wend
While Not i = 6
i = i - 1
'Selection du l'article du dessous
article = Range("A" & i & "").Value
qte = Range("B" & i & "").Value
place = Range("C" & i & "").Value
'selection du stock
Sheets("Stock").Select
'Trouver l article et l adresse
j = 1
While Not Range("A" & j & "").Value = article
j = j + 1
Wend
While Not Range("B" & j & "").Value = place
j = j + 1
Wend
Range("D" & j & "").Select
'Modifier la quantite
'Range("D" & j & "").Value = Range("D" & j & "").Value - qte
'Selectionner un onglet
Sheets("Cession").Select
'Effacer les stock mis a jour
Range("A" & i & "").Value = ""
Range("B" & i & "").Value = ""
Range("C" & i & "").Value = ""
Wend
End SubMytå
Bonjour,
Désolée de ne pas vous avoir répondu plus tôt mais j'ai eu quelques soucis avec Internet.
Donc pour répondre à vos questions :
je souhaite dans un fichier excel faire une petite gestion de stock.
C'est à dire qu'a partir de de données sur un stock, je peux mettre en place des cessions - qui diminurons mon stock.
Pour cela j'ai créer plusieurs fichiers qui me permettent de connaitre exactement les quantités totales dont je dispose ainsi que leur emplacement.
Mais le hic, c'est que ma macro qui normalement me sert pour mettre à jour mes données ne fonctionnent pas tout a à fait...
Pouvez vous m'aider ?
A noter, n'arrivant pas à joindre un fichier (trop lourds malgré un grand nettoyage), donner moi vos adresses pour que je puisse vous l'envoyer)
et encore merci pour votre aide
Chnordiste
Ca y est ma macro fonctionne..... Un gros merci pour votre aide..... notamment à MYTA pour son aide précieuse
Chnordiste