Discussion :

[sjonquille]

Bonjour,

je travail actuellement sur un fichier assez volumineux et j'aimerais utiliser vba pour les rechercheV et somme.si.
J'ai écris un code vba avec vlookup et sumif sauf qu'il ne fonctionne pas sur mon fichier et je n'ai aucun message d'erreur qui apparaît. Pourriez-vous m'aider à régler le problème svp, je vous mets en pièce jointe un exemple de mon fichier.

Je vous remercie.

Problème_vba.xlsmProblème_vba.xlsm

[ARTURO83]

Bonjour,
Exemple:

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 RecupDonnees()
    Dim i As Integer
    Dim Drlig1 As Long, Drlig2 As Long
    Application.ScreenUpdating = False
    Set sh1 = Sheets("FEUIL1")
    Set sh2 = Sheets("FEUIL2")
    Range("g1") = "code"
    Range("h1") = "prénoms"
    Range("i1") = "produits"
    Range("j1") = "montant"
    Drlig1 = sh1.Range("A" & Rows.Count).End(xlUp).Row
    Drlig2 = sh2.Range("G" & Rows.Count).End(xlUp).Row
    For i = 2 To Drlig2
        sh2.Range("H" & i).Value = Application.VLookup(sh2.Range("G" & i), sh1.Range("A1:B" & Drlig1), 2, False)
        sh2.Range("I" & i).Value = Application.VLookup(sh2.Range("G" & i), sh1.Range("A1:C" & Drlig1), 3, False)
        sh2.Range("J" & i).Value = WorksheetFunction.SumIf(sh1.Range("a1:d" & Drlig1), Range("a" & i), sh1.Range("d:d"))
    Next i
End Sub

Cdlt

[Pierre Fauconnier]

Salut.

Perso, j'éviterais les boucles (toujours très lentes), et je travaillerais avec des tableaux structurés. Le code serait alors très simple et se réduirait à quatre lignes. Sur base d'un tableau des articles t_Articles et d'un tableau des ventes t_Ventes, le code suivant "fait le job"

Code :

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

1
2
3
4
5
6
7
 
Sub Test()
  Range("t_Ventes[Libellé]").Formula = "=vlookup([@Article],t_Articles,2,0)"
  Range("t_Ventes[Catégorie]").Formula = "=vlookup([@Article],t_Articles,3,0)"
  Range("t_Ventes[P.U.]").Formula = "=vlookup([@Article],t_Articles,4,0)"
  Range("t_Ventes").Value = Range("t_Ventes").Value
End Sub

Pour le SUMIF, on procède de la même façon.

Personnellement, je travaille autrement. Je plante le décor en Excel avec un tableau structuré "vide" (qui contient les formules) et je me contente en VBA d'apporter les données du tableau source. Recréer une structure de tableau et les formules en VBA n'est pas, à mon sens, la meilleure manière de travailler.

[sjonquille]

je vous remercie pour les différentes solutions, ça fonctionne.