Bonjour à tous,
J'ai un petit souci. J'ai adapté grace à ce formidable forum, un code VBA permettant de recupérer des datas sur plusieurs feuilles.
Sub DESESPE()
Dim val, val2 As Variant
Dim k, i, p, c As Integer
c = 2
Application.Goto Sheets('Base Produits').Range('D5')
For k = 2 To Sheets.Count
For i = 1 To Sheets('Base Produits').Range('D65536').End(xlUp).Row
Retour:
val = Sheets('Base Produits').Cells(i, 4).value
For p = 1 To Sheets(k).Range('B65536').End(xlUp).Row
val2 = Sheets(k).Cells(p, 2).value
If val = val2 Then
Sheets(1).Cells(i, c).value = Sheets(k).Cells(p, 6).value
i = i + 1
GoTo Retour
End If
Next p
Next i
c = c + 1
Next k
End Sub
Mon classeur est composé de 13 feuilles:
-les 12 dernières feuilles sont les 12 mois de l'année. Chacune d'elle comporte les codes+nom des produits ainsi que leurs chiffres d'affaires respectifs.
-la 1ère feuille comporte un tableau récapitulatif. Il est censé être alimenté par les chiffres se trouvant dans les 12 autres. Il est constituée de 14 colonnes. Dans les 2 premières, on y trouve les codes + nom des produits. Ces deux colonnes me servent à comparer les codes+nom de produits dans chaque onglet afin de pouvoir récupéré les chiffres d'affaires de ceux-ci.
Sur un fichier test, ce code marche très bien mais dès que je le copie sur un vrai fichier. Il ne récupère que les chiffres du mois de janvier et continue à chercher, je ne sais pas trop quoi sans aboutir à grand chose. J'ignore d'où ça bloque.
Malheureusement, je ne peux pas vous joindre un fichier. J'espère que ceci n'est pas trop génant.
Merci d'avance pour votre aide