XL 2010 VBA - RechercheV sur plusieurs feuilles

Bixente · 21 Juillet 2017

Bonjour le forum,

J'ai (encore !!!) besoin de vos lumières éclairées !!!!!!

j'ai plusieurs feuilles remplies par des salariés (dans mon exp feuil1 et feuil2).
Je voudrais que dans la feuille "total" :
- il y ait une ligne par produit différent.
- que les colonnes "fournisseur", "type de produit" et multiplicateur se remplissent automatiquement en fonction du produit.
- que la colonne "volume" soit le total des volumes de chaque feuille (pour un produit).

Merci d'avance pour toute l'aide que vous pourrez m'apporter.

à très vite j'espère.

Bixente · 21 Juillet 2017

Je modifie un peu ma demande

La feuille "total" est fixe, pour chaque produit j'ai seulement besoin de faire la somme de ce produit de toutes les feuilles.

J'ai fais un tout petit code pour 1 produit, mais comment faire des boucles sachant qu'il y a 150 produits et 50 feuilles ?

Sub test()
With Sheets("Total")
.Range("E3").Value = WorksheetFunction.VLookup(.Range("D3").Value, Sheets("Feuil2").Range("D3:E6"), 2, False) + WorksheetFunction.VLookup(.Range("D3").Value, Sheets("Feuil1").Range("D3:E6"), 2, False)
End With
End Sub

Merci encore pour votre aide !!!!!!!

Nairolf · 21 Juillet 2017

Salut,

Tu peux procéder ainsi :

VB:

Sub test()
With Sheets("Total")

for each sh in worksheets

.Range("E3").Value = .Range("E3").Value+WorksheetFunction.VLookup(.Range("D3").Value, sh.Range("D3:E6"), 2, False)

next sh

End With
End Sub

Nairolf · 21 Juillet 2017

Ou encore mieux :

VB:

Sub test()

for each sh in worksheets

calcul= calcul+WorksheetFunction.VLookup(.Range("D3").Value, sh.Range("D3:E6"), 2, False)

next sh

Sheets("Total").Range("E3").Value=calcul

End Sub

Nairolf · 21 Juillet 2017

Re,

J'avais répondu un peu vite, il y a donc des erreurs et je n'avais pas répondu à l'ensemble du problème, je pense que ça répond assez bien à ton problème (mais c'est encore perfectible) :

VB:

Sub test()

NbProduits = 5

For i = 1 To NbProduits
   
    Calcul = 0
   
    For Each sh In Worksheets
       
        If sh.Name <> "Total" Then
            Calcul = Calcul + Application.WorksheetFunction.SumIf(sh.Range("D3:D6"), Worksheets("Total").Range("D" & 2 + i), sh.Range("E3:E6"))
        End If
   
    Next sh
   
    Worksheets("Total").Range("E" & 2 + i).Value = Calcul
   
Next i

End Sub

job75 · 21 Juillet 2017

Bonjour Bixente, Nairolf,

Ce n'est guère compliqué de remplir le tableau de la feuille "Total" mais il y a un os !

Vous ne nous dites pas comment est déterminé le multiplicateur (colonne F) d'un produit.

A+

zebanx · 21 Juillet 2017

Bonsoir à tous,

@Bixente : vous ne préfériez pas un récaptiluatif de toutes les lignes sur un classeur et travaillez ensuite sur un tableau croisé. Ca demande un peu de travail en plus pour les mises à jour (cases vides du TCD) mais ça permet de faire plus de choses par la suite pour l'exploitation des données.
Si vous ne souhaitez qu'un recap, les "pros" devraient vous fournir un code adapté -)

++
thierry

Bixente · 24 Juillet 2017

Bonjour à tous.

Nairolf à dit:
Re,

J'avais répondu un peu vite, il y a donc des erreurs et je n'avais pas répondu à l'ensemble du problème, je pense que ça répond assez bien à ton problème (mais c'est encore perfectible) :

VB:

Sub test() NbProduits = 5 For i = 1 To NbProduits Calcul = 0 For Each sh In Worksheets If sh.Name <> "Total" Then Calcul = Calcul + Application.WorksheetFunction.SumIf(sh.Range("D3:D6"), Worksheets("Total").Range("D" & 2 + i), sh.Range("E3:E6")) End If Next sh Worksheets("Total").Range("E" & 2 + i).Value = Calcul Next i End Sub

Merci Nairolf ça répond exactement à ma demande !!!!!
Je le teste sur mon fichier réel et je reviens vers toi !

job75 à dit:
Bonjour Bixente, Nairolf,

Ce n'est guère compliqué de remplir le tableau de la feuille "Total" mais il y a un os !

Vous ne nous dites pas comment est déterminé le multiplicateur (colonne F) d'un produit.

A+

Toutes les colonnes sont fixes. Donc pour le produit x le multiplicateur sera toujours 0.1.

zebanx à dit:
Bonsoir à tous,

@Bixente : vous ne préfériez pas un récaptiluatif de toutes les lignes sur un classeur et travaillez ensuite sur un tableau croisé. Ca demande un peu de travail en plus pour les mises à jour (cases vides du TCD) mais ça permet de faire plus de choses par la suite pour l'exploitation des données.
Si vous ne souhaitez qu'un recap, les "pros" devraient vous fournir un code adapté -)

++
thierry

Vous voulez dire un TCD fait avec une compilation de toutes les feuilles ?

gosselien · 24 Juillet 2017

Bonjour,

il aurait été plus simple de mettre TOUT dans un seul onglet ; des sous.totaux ou des tcd permettront après d'avoir les détails par fournisseur/produit/date (colonne manquante dans l'exemple !)

P.

zebanx · 24 Juillet 2017

@Bixente et le forum

Un exemple de fichier avec un onglet TOTAL et un TCD expliqué.
Comme l'indique GOSSELIEN, cela ouvre plus de possibilité d'exploitation de centraliser les informations dans un seul onglet.
Cela permet notamment de gérer des fichiers qui ne contiennent pas le même nombre de lignes.
C'est un peu plus long pour faire un copier coller valeur des TCD mais cela, en tout cas pour moi, est une méthode pérenne.

Cdlt
thierry

Bixente · 24 Juillet 2017

Merci à tous pour votre implication.

J'ai réussi à appliquer la macro de Nairolf, ce qui m'a permis de gérer l'urgence.

Le travail de Zebanx est parfait ........ pour la prochaine fois 😀

Merci encore c'est vraiment appréciable !!!

XL 2010 VBA - RechercheV sur plusieurs feuilles

Bixente

XLDnaute Nouveau

Pièces jointes

Bixente

XLDnaute Nouveau

Pièces jointes

Nairolf

XLDnaute Accro

Nairolf

XLDnaute Accro

Nairolf

XLDnaute Accro

job75

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Bixente

XLDnaute Nouveau

gosselien

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Pièces jointes

Bixente

XLDnaute Nouveau

Discussions similaires

XL 2010 VBA - RechercheV sur plusieurs feuilles

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Accro

XLDnaute Accro

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Accro

Pièces jointes

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency