RECHERHEV, VLOOKUP que faire

**Yullll** · 07/01/2016, 15h57

Bonjour, Je lance mon deuxième post car après de multiple recherche je ne trouve pas quelque chose qui s’apparente a mon cas.
Cependant je penses que ce type de code doit déjà exister et peut intéresser pas mal de personne.
Je ne suis pas une bête en VBA, mais j'essaye de me débrouiller.

VOici mon problème :

J'ai un classeur dans lequel j'ai une Feuil avec les stocks, une autre avec les entrées et une autres avec les sorties.
Sur une autre Feuil Analyse ou il y a toutes les références existantes, je voudrais regroupé dans une colonne les entrées, dans une autres les sorties et une autres les stocks. Je voudrais de façon automatique que une macro aille me chercher les quantités de chaque référence qu'elle va trouvée (par exemple pour le stock dans la feuil stock), puis me les recopier dans ma Feuil analyse dans la colonne stock. Pour les références qui ne figure pas dans la feuil stock je veux mettre 0 par défaut.
J’espère avoir été assez clair, mais c'étais pas facile a expliquer ...Classeur1-données stock.xls

**Philippe Tulliez** · 07/01/2016, 20h49

Bonjour,
S'il s'agit de dénombrer les sorties et entrées de stock, la fonction SOMMEPROD me semble plus adéquate.
Une feuille avec le stock, une feuille avec les mouvements de stocks ensuite des feuilles pour répartir les sorties et entrées de stocks par mois

**Yullll** · 07/01/2016, 22h17

En fait je voulais juste que la macro aille chercher les quantités des différentes catégories dans les différentes feuille et les reporter dans la feuille analyse ! Pour les références où il ne trouve pas de référence il met 0.

**Philippe Tulliez** · 08/01/2016, 08h06

Bonjour,
Je ne comprends pas ta demande. Dans le classeur que j'ai déposé, il n'y a aucune ligne de code en VBA tout est effectué avec des fonctions natives d'excel.
Le même résultat pourrait être obtenu avec un tableau croisé dynamique.
Pourquoi absolument utiliser du VBA ?

**Yullll** · 08/01/2016, 09h38

Bonjour philippe, Je sais bien évidement que avec un TCD tout fonctionnerais le problème étant que les actions que je veux faire rentre dans une sous partie d'un macro que je suis entrain d'éditer. Donc ca serait dommage de tout bloqué pour éffectué un TCD et reprendre la macro après! C'est pour cela que j'aurais besoin de faire ces actions !

Voila ce que j'ai commencé a faire :

Code :

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

1
2
3
4
5
6
Sub Analyse()
 
Sheets("Analyse").Select
Range("B:B" & derlig).Formula = "=VLOOKUP(A:A,Stock !" & Range("A:B").Address(ReferenceStyle:=xlR1C1) & ",2,FALSE)"
 
End Sub

ET j'ai l'erreur 1004 : Erreur définit par l'application ou par l'objet

Quelqu'un aurait une idée ?

**Philippe Tulliez** · 08/01/2016, 09h48

Bonjour,
Sans avoir testé il me semble que ton problème vient de là Range("B:B" & derlig)? cela équivaut à par exemple B:B100 si derlig = 100
B1:B100 serait mieux non ?
et il y a peut-être d'autres problèmes

**Yullll** · 08/01/2016, 10h59

Finalement je suis partit sur ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Analys_1()
 
Dim Plage As Range, C As Range, Teste
With Sheets("Analyse")
    Set Plage = .Range(.[A:B], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("STOCK")
    For Each C In Plage
        Teste = Application.VLookup(C.Value, .Range(.[A:B], .Cells(.Rows.Count, 1).End(xlUp)), 2, 0)
        If IsError(Teste) Then
            C.Offset(, 1) = 0
        Else
        C.Offset(, 1) = Application.VLookup(C.Value, .Range(.[A:B], .Cells(.Rows.Count, 1).End(xlUp)), 2, 0)
        End If
    Next C
End With
 
End Sub

Cependant quand je la lance, j'ai des données qui s'écrivent dans la colonne B (celles que je recherche), cela marche très bien. Par contre j'ai des zéro qui se mettent ma colonne C je ne comprend pas pourquoi ??
De plus la macro est très longue car elle traite toutes les lignes jusqu'a "la fin du classeur". N'y aurait il pas moyen de la stopper a une telle ligne ?

**Daniel.C** · 08/01/2016, 12h20

Bonjour,

Essaie ta macro modifiée :

Code :

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

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
34
35
36
37
38
39
40
41
Sub Analys_1()
 
Dim Plage As Range, C As Range, Teste
Dim Plage2 As Range, X As Range
With Sheets("Analyse")
Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("STOCK")
    .[B:B].ClearContents
    Set Plage2 = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    For Each C In Plage
        For Each X In Plage2
            If X.Value = C.Value Then
                C.Offset(, 1).Value = C.Offset(, 1).Value + X.Offset(, 1).Value
            End If
        Next X
    Next C
End With
With Sheets("Entrées")
    .[C:C].ClearContents
    Set Plage2 = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    For Each C In Plage
        For Each X In Plage2
            If X.Value = C.Value Then
                C.Offset(, 1).Value = C.Offset(, 1).Value + X.Offset(, 1).Value
            End If
        Next X
    Next C
End With
With Sheets("Sorties")
    .[D:D].ClearContents
    Set Plage2 = .Range(.[A4], .Cells(.Rows.Count, 1).End(xlUp))
    For Each C In Plage
        For Each X In Plage2
            If X.Value = C.Value Then
                C.Offset(, 1).Value = C.Offset(, 1).Value + X.Offset(, 1).Value
            End If
        Next X
    Next C
End With
End Sub

On gagnerait en rapidité d'exécution en utilisant des variables tableau mais je pense que tu aurais du mal à en comprendre le fonctionnement.

**Philippe Tulliez** · 08/01/2016, 12h25

Bonjour,
Pour écrire une formule en VBA, il faut d'abord l'écrire et la tester manuellement.
Je te conseille la lecture de ces deux billets Ecrire une formule dans Excel à l'aide d'une procédure VBA et Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

Il y a bien entendu, la solution proposée par Daniel que je salue au passage.

**Yullll** · 08/01/2016, 13h39

Salut Daniel,

Merci beaucoup pour la macro, je l'ai essayé mais elle ne fonctionne pas. Elle me met des valeur en colonne B mais certaine non et les valeurs sont erronés. J'ai essayé de chercher pourquoi car je n'ai pas de message de débogage. Je te mets le résultat en PJ.Classeur1-données stock.xls

**Daniel.C** · 08/01/2016, 14h25

Au temps pour moi :

Code :

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

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
34
35
36
37
38
39
40
41
Sub Analys_1()
 
Dim Plage As Range, C As Range, Teste
Dim Plage2 As Range, X As Range
With Sheets("Analyse")
Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("STOCK")
    .[B:B].ClearContents
    Set Plage2 = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    For Each C In Plage
        For Each X In Plage2
            If X.Value = C.Value Then
                C.Offset(, 1).Value = C.Offset(, 1).Value + X.Offset(, 1).Value
            End If
        Next X
    Next C
End With
With Sheets("Entrées")
    .[C:C].ClearContents
    Set Plage2 = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    For Each C In Plage
        For Each X In Plage2
            If X.Value = C.Value Then
                C.Offset(, 2).Value = C.Offset(, 2).Value + X.Offset(, 1).Value
            End If
        Next X
    Next C
End With
With Sheets("Sorties")
    .[D:D].ClearContents
    Set Plage2 = .Range(.[A4], .Cells(.Rows.Count, 1).End(xlUp))
    For Each C In Plage
        For Each X In Plage2
            If X.Value = C.Value Then
                C.Offset(, 3).Value = C.Offset(, 3).Value + X.Offset(, 1).Value
            End If
        Next X
    Next C
End With
End Sub

RECHERHEV, VLOOKUP que faire

Macros et VBA Excel

Discussions similaires

Partager

Partager