Discussion :

[Daphine]

Bonjour à tous,

Je suis débutante, j'ai quelques notions en vba mais là j'ai réellement besoin de votre aide.
Je vous explique ce que j'aimerai faire:
Sur un fichier Excel, j'ai deux feuilles, chaque feuille comporte un tableau (issu d'une extraction d'une base de données).
Chaque tableau comporte une colonne A avec la référence d'un article et dans la colonne E la quantité en stock.
J'aimerai avoir la comparaison des stocks sur une feuille 3 seulement des références qui n'ont pas la même quantité en stock.

J'ai commencé par faire quelques déclarations de variables mais j'ai des erreurs...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EcartStock()
 
Dim Copilote As Worksheets
Dim Oskar As Worksheets
Dim last_row_Copilote As Range
Dim last_row_Oskar As Range
 
Set Copilote = Sheets("Copilote")
Set Oskar = Sheets("Oskar")
 
Set last_row_Copilote = Copilote.Range(Application.Rows.Count, 1).End(vbup).EntireRow
 
End Sub

Pouvez vous m'aider sur mon projet?

Par avance je vous remercie de m'avoir lue et peut etre de m'aider

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set Copilote = Sheets("Copilote")
Set Oskar = Sheets("Oskar")

Je ne comprends pas l'intérêt de ces lignes. Peux-tu expliquer ?

[Daphine]

J'ai simplement voulu donner un nom plus simple à mes feuilles dans mon code pour m'y retrouver plus facilement, peut être que je me trompe...

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub EcartStock()
 
    Dim last_row_Copilote As Integer
    Dim last_row_Oskar As Integer
 
    last_row_Copilote = Sheets("Copilote").Range(Rows.Count, 1).End(xlUp).Row
    last_row_Oskar = Sheets("Oskar").Range(Rows.Count, 1).End(xlUp).Row
 
End Sub

J'aurai procédé de cette manière personnellement, ton idée de base était correcte mais il y avait quelques erreurs de syntaxes pour récupérer la dernière ligne de ta feuille "Copilote" ou "Oskar".

[Daphine]

ok merci de ton conseil, je vais tester ça.

As tu une idée de comment je devrais procéder pour la suite de ma macro?

[Invité]

La meilleur méthode serait de ne pas faire d'extraction mais de directement accéder à ta base de données via une macro mais c'est compliqué à réaliser pour un début (tu peux toujours te renseigner).

Sinon, je te conseille d'utiliser des tableaux VB pour récupérer le contenu de tes tableaux Excel. Tu pourras traiter les données de tes tableaux VB.
Je te donne ce lien qui te permettra d'apprendre l'utilisation des tableaux VB si tu ne connais pas encore :
http://silkyroad.developpez.com/vba/tableaux/